X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Fedit%2Fcust_bill_pay.cgi;h=61c8a1785c20fea2363405b175f6898e307dacd9;hb=2d53ea6d86d638d65f0d14ef5921daf46981269e;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..61c8a1785 100755
--- a/httemplate/edit/cust_bill_pay.cgi
+++ b/httemplate/edit/cust_bill_pay.cgi
@@ -1,8 +1,8 @@
 <%
-#<!-- $Id: cust_bill_pay.cgi,v 1.1 2001-12-18 19:30:31 ivan Exp $ -->
+#<!-- $Id: cust_bill_pay.cgi,v 1.3 2001-12-18 19:34:08 ivan Exp $ -->
 
 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;
@@ -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 <<END;
   if ( cust_bill == $invnum ) {
     what.form.amount.value = "$changeto";