diff options
author | ivan <ivan> | 2009-03-24 02:36:31 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-03-24 02:36:31 +0000 |
commit | 9006e983ebf98b2000a812ab01f99dcb2335534c (patch) | |
tree | 7189499ce30fe71046170119f05f5cc7858213ca /FS/FS/h_cust_svc.pm | |
parent | 42682206b4ba30de01c82743042f5fb9d48a93ed (diff) |
bulk price plan: label as Name <email>, supress extraneous service list, RT#3519
Diffstat (limited to 'FS/FS/h_cust_svc.pm')
-rw-r--r-- | FS/FS/h_cust_svc.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/FS/FS/h_cust_svc.pm b/FS/FS/h_cust_svc.pm index e030436..d280d53 100644 --- a/FS/FS/h_cust_svc.pm +++ b/FS/FS/h_cust_svc.pm @@ -52,9 +52,15 @@ If a service is found, returns a list consisting of: =cut -sub label { +sub label { shift->_label('svc_label', @_); } +sub label_long { shift->_label('svc_label_long', @_); } + +sub _label { my $self = shift; - carp "FS::h_cust_svc::label called on $self" if $DEBUG; + my $method = shift; + + #carp "FS::h_cust_svc::_label called on $self" if $DEBUG; + warn "FS::h_cust_svc::_label called on $self for $method" if $DEBUG; my $svc_x = $self->h_svc_x(@_); return () unless $svc_x; my $part_svc = $self->part_svc; @@ -65,7 +71,7 @@ sub label { } my @label; - eval { @label = $self->_svc_label($svc_x, @_); }; + eval { @label = $self->$method($svc_x, @_); }; if ($@) { carp 'while resolving history record for svcdb/svcnum ' . |