diff options
author | ivan <ivan> | 2003-03-29 02:19:44 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-03-29 02:19:44 +0000 |
commit | 5ffebc5c151bd680cdae15e4720ba788ad51121b (patch) | |
tree | d89a61e1d07e08b0cfbe803fc2277c95f7dc004b /FS/FS | |
parent | 51ddce1cd517621308c85fac1a04e7f970ba8eba (diff) |
cust_svc and svc_x methods
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/part_export.pm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm index b46d843..789e845 100644 --- a/FS/FS/part_export.pm +++ b/FS/FS/part_export.pm @@ -305,6 +305,30 @@ sub part_svc { #confess "FS::part_export::part_svc deprecated"; } +=item svc_x + +Returns a list of associate FS::svc_* records. + +=cut + +sub svc_x { + my $self = shift; + map { $_->svc_x } $self->cust_svc; +} + +=item cust_svc + +Returns a list of associated FS::cust_svc records. + +=cut + +sub cust_svc { + my $self = shift; + map { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) } + grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) } + $self->export_svc; +} + =item export_svc Returns a list of associated FS::export_svc records. |