projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
95a40a1
)
further debugging...
author
ivan
<ivan>
Tue, 16 Apr 2002 22:56:58 +0000
(22:56 +0000)
committer
ivan
<ivan>
Tue, 16 Apr 2002 22:56:58 +0000
(22:56 +0000)
FS/FS/cust_bill.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_bill.pm
b/FS/FS/cust_bill.pm
index
2c21f1e
..
a419ca8
100644
(file)
--- 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');
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 }
my $agent = $agent_obj->agent;
my $pkgs = join(', ',
map { $_->cust_pkg->part_pkg->pkg }
@@
-945,7
+947,7
@@
sub print_text {
=head1 VERSION
=head1 VERSION
-$Id: cust_bill.pm,v 1.3
1 2002-04-16 22:52:14
ivan Exp $
+$Id: cust_bill.pm,v 1.3
2 2002-04-16 22:56:58
ivan Exp $
=head1 BUGS
=head1 BUGS