projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
01d90ee
)
fix FS::payby::payby2bop usage
author
ivan
<ivan>
Tue, 5 Sep 2006 16:27:19 +0000
(16:27 +0000)
committer
ivan
<ivan>
Tue, 5 Sep 2006 16:27:19 +0000
(16:27 +0000)
httemplate/edit/process/cust_refund.cgi
patch
|
blob
|
history
diff --git
a/httemplate/edit/process/cust_refund.cgi
b/httemplate/edit/process/cust_refund.cgi
index
3a58d9a
..
8f63c1f
100755
(executable)
--- a/
httemplate/edit/process/cust_refund.cgi
+++ b/
httemplate/edit/process/cust_refund.cgi
@@
-1,5
+1,3
@@
- %
-%
%$cgi->param('custnum') =~ /^(\d*)$/ or die "Illegal custnum!";
%my $custnum = $1;
%my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
%$cgi->param('custnum') =~ /^(\d*)$/ or die "Illegal custnum!";
%my $custnum = $1;
%my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
@@
-7,7
+5,7
@@
%
%my $error = '';
%if ( $cgi->param('payby') =~ /^(CARD|CHEK)$/ ) {
%
%my $error = '';
%if ( $cgi->param('payby') =~ /^(CARD|CHEK)$/ ) {
-% my $bop = FS::payby::
$payby2bop
{$1};
+% my $bop = FS::payby::
payby2bop->
{$1};
% $cgi->param('refund') =~ /^(\d*)(\.\d{2})?$/
% or die "illegal refund amount ". $cgi->param('refund');
% my $refund = "$1$2";
% $cgi->param('refund') =~ /^(\d*)(\.\d{2})?$/
% or die "illegal refund amount ". $cgi->param('refund');
% my $refund = "$1$2";
@@
-34,6
+32,3
@@
%} else {
% print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum");
%}
%} else {
% print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum");
%}
-%
-%
-