X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_bill_pay.cgi;h=793ed100947aef5674a946b24225791a87dda8da;hb=85e18d1c25a16b3d37ff87484b36a9e17d17cbcf;hp=a4ed94462939f43d902f2e2cc679a385e52ff26c;hpb=91135a208282b03644cc766ed917b64fe24f374c;p=freeside.git
diff --git a/httemplate/edit/cust_bill_pay.cgi b/httemplate/edit/cust_bill_pay.cgi
index a4ed94462..793ed1009 100755
--- a/httemplate/edit/cust_bill_pay.cgi
+++ b/httemplate/edit/cust_bill_pay.cgi
@@ -1,8 +1,8 @@
<%
-#
+#
use strict;
-use vars qw( $cgi $query $custnum $paynum $amount $invnum $p1 $otaker ); # $reason $cust_credit );
+use vars qw( $cgi $query $custnum $paynum $amount $invnum $p1 $otaker $cust_pay );
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Date::Format;
@@ -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 <