diff options
Diffstat (limited to 'FS/FS/h_cust_svc.pm')
-rw-r--r-- | FS/FS/h_cust_svc.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/FS/FS/h_cust_svc.pm b/FS/FS/h_cust_svc.pm index 718f2c7..af0bf60 100644 --- a/FS/FS/h_cust_svc.pm +++ b/FS/FS/h_cust_svc.pm @@ -80,13 +80,15 @@ sub h_svc_x { "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; + ) || $self->SUPER::svc_x; - carp "Using $svcdb in place of missing h_${svcdb} record." - if ($svc_x->isa('FS::' . $svcdb) and $DEBUG); - - return $svc_x; + if ($svc_x) { + carp "Using $svcdb in place of missing h_${svcdb} record." + if ($svc_x->isa('FS::' . $svcdb) and $DEBUG); + return $svc_x; + } else { + return ''; + } } |