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 <