From 6af1b1bfa25e5ececef5e0dcd38b55917121cee2 Mon Sep 17 00:00:00 2001 From: jeff Date: Sat, 26 Aug 2006 23:15:14 +0000 Subject: batch refactor continued --- httemplate/edit/process/cust_refund.cgi | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'httemplate/edit/process/cust_refund.cgi') diff --git a/httemplate/edit/process/cust_refund.cgi b/httemplate/edit/process/cust_refund.cgi index fadfffb62..3a58d9aa5 100755 --- a/httemplate/edit/process/cust_refund.cgi +++ b/httemplate/edit/process/cust_refund.cgi @@ -1,4 +1,4 @@ -% + % % %$cgi->param('custnum') =~ /^(\d*)$/ or die "Illegal custnum!"; %my $custnum = $1; @@ -7,11 +7,7 @@ % %my $error = ''; %if ( $cgi->param('payby') =~ /^(CARD|CHEK)$/ ) { -% my %payby2bop = ( -% 'CARD' => 'CC', -% 'CHEK' => 'ECHECK', -% ); -% my $bop = $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"; -- cgit v1.2.1