diff options
author | ivan <ivan> | 2010-07-16 23:45:24 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-07-16 23:45:24 +0000 |
commit | 556b8e9650155e74416496238cfc0e4abe64c53a (patch) | |
tree | 26a6cac98ec8a944361a0d913392eab6abd53b6a /FS/FS/cust_tag.pm | |
parent | 9414a814e49a86a832e4f56ec1a6bcc927f55e6b (diff) |
customer tags, RT#9192
Diffstat (limited to 'FS/FS/cust_tag.pm')
-rw-r--r-- | FS/FS/cust_tag.pm | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/FS/FS/cust_tag.pm b/FS/FS/cust_tag.pm index 1d174d1..5dfd156 100644 --- a/FS/FS/cust_tag.pm +++ b/FS/FS/cust_tag.pm @@ -2,7 +2,9 @@ package FS::cust_tag; use strict; use base qw( FS::Record ); -use FS::Record qw( qsearch qsearchs ); +use FS::Record qw( qsearchs ); +use FS::cust_main; +use FS::part_tag; =head1 NAME @@ -112,6 +114,25 @@ sub check { $self->SUPER::check; } +=item cust_main + +=cut + +sub cust_main { + my $self = shift; + qsearchs( 'cust_main', { 'custnum' => $self->custnum } ); +} + +=item part_tag + +=cut + +sub part_tag { + my $self = shift; + qsearchs( 'part_tag', { 'tagnum' => $self->tagnum } ); +} + + =back =head1 BUGS |