diff options
author | ivan <ivan> | 2005-07-14 10:52:46 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-07-14 10:52:46 +0000 |
commit | 08662d58e7b9a13cf841e9c89daa39b28655724e (patch) | |
tree | bb6415dcfc8c94a30639c8a913051a38c31780ad /FS/FS/svc_Common.pm | |
parent | c91e5cd4ce307d5f3573ea309cbcf03186ea3de4 (diff) |
move account search (httemplate/search/svc_acct.cgi) to new template, cust-fields configuration value to control which customer fields are shown on reports
Diffstat (limited to 'FS/FS/svc_Common.pm')
-rw-r--r-- | FS/FS/svc_Common.pm | 21 |
1 files changed, 4 insertions, 17 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm index 80d5e21a6..205c33078 100644 --- a/FS/FS/svc_Common.pm +++ b/FS/FS/svc_Common.pm @@ -3,15 +3,16 @@ package FS::svc_Common; use strict; use vars qw( @ISA $noexport_hack $DEBUG ); use FS::Record qw( qsearch qsearchs fields dbh ); +use FS::cust_main_Mixin; use FS::cust_svc; use FS::part_svc; use FS::queue; use FS::cust_main; -@ISA = qw( FS::Record ); +@ISA = qw( FS::cust_main_Mixin FS::Record ); -$DEBUG = 0; -#$DEBUG = 1; +#$DEBUG = 0; +$DEBUG = 1; =head1 NAME @@ -547,20 +548,6 @@ 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 |