diff options
author | ivan <ivan> | 2006-09-05 16:27:19 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-09-05 16:27:19 +0000 |
commit | 31ce194a3315d3a5a69869b11947d63fc135d9a0 (patch) | |
tree | 99325aac159eff385201075938c9b1ab73767972 | |
parent | 01d90ee58ee915b838fe3fe4d7f2c472af238429 (diff) |
fix FS::payby::payby2bop usage
-rwxr-xr-x | httemplate/edit/process/cust_refund.cgi | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/httemplate/edit/process/cust_refund.cgi b/httemplate/edit/process/cust_refund.cgi index 3a58d9aa5..8f63c1f78 100755 --- 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 } ) @@ -7,7 +5,7 @@ % %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"; @@ -34,6 +32,3 @@ %} else { % print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum"); %} -% -% - |