diff options
author | ivan <ivan> | 2005-05-02 06:32:10 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-05-02 06:32:10 +0000 |
commit | 2eb5fc5cdbe002fd17a4d3ee5bde71b4f5422f8b (patch) | |
tree | 688b5ca9926f3144dc413781426adc760b737775 /FS/FS/svc_Common.pm | |
parent | aea197c3f695b917a0dbdef5ec056d583f6df55d (diff) |
move httemplate/search/svc_domain to the new search template along with svc_www and svc_forward
Diffstat (limited to 'FS/FS/svc_Common.pm')
-rw-r--r-- | FS/FS/svc_Common.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm index db2fbbe..80d5e21 100644 --- a/FS/FS/svc_Common.pm +++ b/FS/FS/svc_Common.pm @@ -6,6 +6,7 @@ use FS::Record qw( qsearch qsearchs fields dbh ); use FS::cust_svc; use FS::part_svc; use FS::queue; +use FS::cust_main; @ISA = qw( FS::Record ); @@ -546,6 +547,20 @@ sub clone_kludge_unsuspend { shift; } +=item cust_name + +Given a svc_ object that contains fields from cust_main (say, from a +JOINed search. See httemplate/search/svc_* for examples), returns the +equivalent of "$svc_x->cust_svc->cust_pkg->name" (but much more efficient), +or "(unlinked)" if this service is not linked to a customer. + +=cut + +sub cust_name { + my $svc_x = shift; + $svc_x->custnum ? FS::cust_main::name($svc_x) : '(unlinked)'; +} + =back =head1 BUGS |