projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
854f8d1
)
apply credits!!
author
ivan
<ivan>
Wed, 26 Dec 2001 15:11:33 +0000
(15:11 +0000)
committer
ivan
<ivan>
Wed, 26 Dec 2001 15:11:33 +0000
(15:11 +0000)
httemplate/edit/process/cust_credit.cgi
patch
|
blob
|
history
diff --git
a/httemplate/edit/process/cust_credit.cgi
b/httemplate/edit/process/cust_credit.cgi
index
415000f
..
3bbd749
100755
(executable)
--- a/
httemplate/edit/process/cust_credit.cgi
+++ b/
httemplate/edit/process/cust_credit.cgi
@@
-1,5
+1,5
@@
<%
<%
-#<!-- $Id: cust_credit.cgi,v 1.
4 2001-12-26 15:07:06
ivan Exp $ -->
+#<!-- $Id: cust_credit.cgi,v 1.
5 2001-12-26 15:11:33
ivan Exp $ -->
use strict;
use vars qw( $cgi $custnum $new $error );
use strict;
use vars qw( $cgi $custnum $new $error );
@@
-35,7
+35,7
@@
if ( $error ) {
if ( $cgi->param('apply') eq 'yes' ) {
my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum })
or die "unknown custnum $custnum";
if ( $cgi->param('apply') eq 'yes' ) {
my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum })
or die "unknown custnum $custnum";
- $cust_main->apply_
paymen
ts;
+ $cust_main->apply_
credi
ts;
}
print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum");
}
}
print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum");
}