projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
355fe21
)
typo
author
ivan
<ivan>
Tue, 18 Dec 2001 19:34:08 +0000
(19:34 +0000)
committer
ivan
<ivan>
Tue, 18 Dec 2001 19:34:08 +0000
(19:34 +0000)
httemplate/edit/cust_bill_pay.cgi
patch
|
blob
|
history
diff --git
a/httemplate/edit/cust_bill_pay.cgi
b/httemplate/edit/cust_bill_pay.cgi
index
46ca51e
..
61c8a17
100755
(executable)
--- a/
httemplate/edit/cust_bill_pay.cgi
+++ b/
httemplate/edit/cust_bill_pay.cgi
@@
-1,5
+1,5
@@
<%
<%
-#<!-- $Id: cust_bill_pay.cgi,v 1.
2 2001-12-18 19:32:56
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 $cust_pay );
use strict;
use vars qw( $cgi $query $custnum $paynum $amount $invnum $p1 $otaker $cust_pay );
@@
-64,7
+64,7
@@
foreach my $cust_bill ( @cust_bill ) {
my $invnum = $cust_bill->invnum;
my $changeto = $cust_bill->owed < $unapplied
? $cust_bill->owed
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";
print <<END;
if ( cust_bill == $invnum ) {
what.form.amount.value = "$changeto";