X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_bill_pay.cgi;h=793ed100947aef5674a946b24225791a87dda8da;hb=cf16b23820da69e3c8d0156ae27e21c635bf1ec5;hp=46ca51e82b649124117bc362d11f7724ac51cf4a;hpb=355fe2160a24311e5d1faab56376c9a0781c6479;p=freeside.git diff --git a/httemplate/edit/cust_bill_pay.cgi b/httemplate/edit/cust_bill_pay.cgi index 46ca51e82..793ed1009 100755 --- a/httemplate/edit/cust_bill_pay.cgi +++ b/httemplate/edit/cust_bill_pay.cgi @@ -1,5 +1,5 @@ <% -# +# use strict; use vars qw( $cgi $query $custnum $paynum $amount $invnum $p1 $otaker $cust_pay ); @@ -48,7 +48,7 @@ print "Payment # $paynum". qq!!. '
Date: '. time2str("%D", $cust_pay->_date). ''. '
Amount: $'. $cust_pay->paid. ''. - "
Unapplied amount: \$$unapplied". + "
Unapplied amount: \$$unapplied" ; my @cust_bill = grep $_->owed != 0, @@ -64,7 +64,7 @@ foreach my $cust_bill ( @cust_bill ) { my $invnum = $cust_bill->invnum; my $changeto = $cust_bill->owed < $unapplied ? $cust_bill->owed - : $unapplied + : $unapplied; print <