diff options
Diffstat (limited to 'FS/FS/cust_svc.pm')
| -rw-r--r-- | FS/FS/cust_svc.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm index 8914e8c73..a76076185 100644 --- a/FS/FS/cust_svc.pm +++ b/FS/FS/cust_svc.pm @@ -1,7 +1,7 @@ package FS::cust_svc; use strict; -use vars qw( @ISA $DEBUG $ignore_quantity ); +use vars qw( @ISA $DEBUG $me $ignore_quantity ); use Carp qw( carp cluck ); use FS::Conf; use FS::Record qw( qsearch qsearchs dbh ); @@ -22,6 +22,7 @@ use FS::cdr; @ISA = qw( FS::Record ); $DEBUG = 0; +$me = '[cust_svc]'; $ignore_quantity = 0; @@ -353,6 +354,9 @@ sub svc_x { $self->{'_svc_acct'}; } else { #require "FS/$svcdb.pm"; + warn "$me svc_x: part_svc.svcpart ". $self->part_svc->svcpart. + ", so searching for $svcdb.svcnum ". $self->svcnum. "\n" + if $DEBUG; qsearchs( $svcdb, { 'svcnum' => $self->svcnum } ); } } |