diff options
| author | ivan <ivan> | 2002-04-16 22:56:58 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-04-16 22:56:58 +0000 |
| commit | dcea1a8d60c672a36f82dfb9da3c86223f6fd740 (patch) | |
| tree | 7ae68bd85bd7f70d012361d43069c06502ccebde /FS | |
| parent | 95a40a1b8ebf86c76784c220d0d561f952d934ef (diff) | |
further debugging...
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_bill.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 2c21f1e46..a419ca8f9 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -483,7 +483,9 @@ sub realtime_card { if ( $conf->exists('business-onlinepayment-description') ) { my $dtempl = $conf->config('business-onlinepayment-description'); - my $agent_obj = $cust_main->agent; + my $agent_obj = $cust_main->agent + or die "can't retreive agent for $cust_main (agentnum ". + $cust_main->agentnum. ")"; my $agent = $agent_obj->agent; my $pkgs = join(', ', map { $_->cust_pkg->part_pkg->pkg } @@ -945,7 +947,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.31 2002-04-16 22:52:14 ivan Exp $ +$Id: cust_bill.pm,v 1.32 2002-04-16 22:56:58 ivan Exp $ =head1 BUGS |