diff options
author | khoff <khoff> | 2005-04-07 03:28:20 +0000 |
---|---|---|
committer | khoff <khoff> | 2005-04-07 03:28:20 +0000 |
commit | 60e238561db85ef177934640caab3c02694afb3f (patch) | |
tree | c8bd81a2a5ae9f6ccbd2cd538b411baa2154ad23 /FS/FS/h_cust_svc.pm | |
parent | dfd4f9377b21a5eab563e1739f296e04668ce6ca (diff) |
Using current (non-history) records in place of missing history records.
Diffstat (limited to 'FS/FS/h_cust_svc.pm')
-rw-r--r-- | FS/FS/h_cust_svc.pm | 27 |
1 files changed, 16 insertions, 11 deletions
diff --git a/FS/FS/h_cust_svc.pm b/FS/FS/h_cust_svc.pm index 0cbac4a..dbb16a2 100644 --- a/FS/FS/h_cust_svc.pm +++ b/FS/FS/h_cust_svc.pm @@ -9,7 +9,7 @@ use FS::cust_svc; @ISA = qw( FS::h_Common FS::cust_svc ); -$DEBUG = 0; +$DEBUG = 1; sub table { 'h_cust_svc'; } @@ -73,16 +73,21 @@ cancelled before START_TIMESTAMP. sub h_svc_x { my $self = shift; my $svcdb = $self->part_svc->svcdb; - #if ( $svcdb eq 'svc_acct' && $self->{'_svc_acct'} ) { - # $self->{'_svc_acct'}; - #} else { - warn "requiring FS/h_$svcdb.pm" if $DEBUG; - require "FS/h_$svcdb.pm"; - qsearchs( "h_$svcdb", - { 'svcnum' => $self->svcnum, }, - "FS::h_$svcdb"->sql_h_searchs(@_), - ); - #} + + warn "requiring FS/h_$svcdb.pm" if $DEBUG; + require "FS/h_$svcdb.pm"; + my $svc_x = qsearchs( + "h_$svcdb", + { 'svcnum' => $self->svcnum, }, + "FS::h_$svcdb"->sql_h_searchs(@_), + ) || $self->SUPER::svc_x + or die "no history ${svcdb}.svcnum for cust_svc.svcnum ". $self->svcnum; + + carp "Using $svcdb in place of missing h_${svcdb} record." + if ($svc_x->isa('FS::' . $svcdb) and $DEBUG); + + return $svc_x; + } =back |