diff options
Diffstat (limited to 'htdocs/view/cust_main.cgi')
| -rwxr-xr-x | htdocs/view/cust_main.cgi | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/htdocs/view/cust_main.cgi b/htdocs/view/cust_main.cgi index 055256570..ff169fdae 100755 --- a/htdocs/view/cust_main.cgi +++ b/htdocs/view/cust_main.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main.cgi,v 1.18 1999-08-12 04:16:01 ivan Exp $ +# $Id: cust_main.cgi,v 1.19 2001-04-22 01:38:39 ivan Exp $ # # Usage: cust_main.cgi custnum # http://server.name/path/cust_main.cgi?custnum @@ -31,7 +31,12 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: cust_main.cgi,v $ -# Revision 1.18 1999-08-12 04:16:01 ivan +# Revision 1.19 2001-04-22 01:38:39 ivan +# svc_domain needs to import dbh sub from Record +# view/cust_main.cgi needs to use ->owed method, not check (depriciated) owed field +# search/cust_bill.cgi redirect error when there's only one invoice +# +# Revision 1.18 1999/08/12 04:16:01 ivan # hidecancelledpackages config option # # Revision 1.17 1999/04/15 16:44:36 ivan @@ -331,7 +336,7 @@ foreach $bill (@bills) { push @history, $bref->{_date} . qq!\t<A HREF="!. popurl(2). qq!view/cust_bill.cgi?! . $bref->{invnum} . qq!">Invoice #! . $bref->{invnum} . - qq! (Balance \$! . $bref->{owed} . qq!)</A>\t! . + qq! (Balance \$! . $bill->owed . qq!)</A>\t! . $bref->{charged} . qq!\t\t\t!; my(@payments)=qsearch('cust_pay',{'invnum'=> $bref->{invnum} } ); |