X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htdocs%2Fview%2Fcust_main.cgi;h=ff169fdaee95f9033b761e88de6b60cbfd7ec57f;hb=9bdcd4171c17f020420b6d8c8e7b335695b2abb1;hp=de9ff7f890a159a1215c8950996e9a0754ce6e51;hpb=ab210fc8d75ee85574c5d4ca345c33190d9d5e2e;p=freeside.git diff --git a/htdocs/view/cust_main.cgi b/htdocs/view/cust_main.cgi index de9ff7f89..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.17 1999-04-15 16:44:36 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,15 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: cust_main.cgi,v $ -# Revision 1.17 1999-04-15 16:44:36 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 # delete customers # # Revision 1.16 1999/04/09 04:22:34 ivan @@ -257,8 +265,11 @@ print qq!!, &table(), "\n", qq!\n!; #get package info -@packages = $cust_main->all_pkgs; -#@packages = $cust_main->ncancelled_pkgs; +if ( $conf->exists('hidecancelledpackages') ) { + @packages = $cust_main->ncancelled_pkgs; +} else { + @packages = $cust_main->all_pkgs; +} $n1 = ''; foreach $package (@packages) { @@ -325,7 +336,7 @@ foreach $bill (@bills) { push @history, $bref->{_date} . qq!\tInvoice #! . $bref->{invnum} . - qq! (Balance \$! . $bref->{owed} . qq!)\t! . + qq! (Balance \$! . $bill->owed . qq!)\t! . $bref->{charged} . qq!\t\t\t!; my(@payments)=qsearch('cust_pay',{'invnum'=> $bref->{invnum} } );