<%
-#<!-- $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;
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";