<%
-#<!-- $Id: cust_bill_pay.cgi,v 1.2 2001-12-18 19:32:56 ivan Exp $ -->
+#<!-- $Id: cust_bill_pay.cgi,v 1.4 2001-12-18 19:36:21 ivan Exp $ -->
use strict;
use vars qw( $cgi $query $custnum $paynum $amount $invnum $p1 $otaker $cust_pay );
qq!<INPUT TYPE="hidden" NAME="paynum" VALUE="$paynum">!.
'<BR>Date: <B>'. time2str("%D", $cust_pay->_date). '</B>'.
'<BR>Amount: $<B>'. $cust_pay->paid. '</B>'.
- "<BR>Unapplied amount: \$<B>$unapplied</B>".
+ "<BR>Unapplied amount: \$<B>$unapplied</B>"
;
my @cust_bill = grep $_->owed != 0,
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";