diff options
Diffstat (limited to 'httemplate/edit/process')
| -rwxr-xr-x | httemplate/edit/process/cust_refund.cgi | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/httemplate/edit/process/cust_refund.cgi b/httemplate/edit/process/cust_refund.cgi index a579a02d8..d95ab46dc 100755 --- a/httemplate/edit/process/cust_refund.cgi +++ b/httemplate/edit/process/cust_refund.cgi @@ -5,6 +5,7 @@ % %my $error = ''; %if ( $cgi->param('payby') =~ /^(CARD|CHEK)$/ ) { +% my %options = (); % my $bop = $FS::payby::payby2bop{$1}; % $cgi->param('refund') =~ /^(\d*)(\.\d{2})?$/ % or die "illegal refund amount ". $cgi->param('refund'); @@ -12,9 +13,12 @@ % $cgi->param('paynum') =~ /^(\d*)$/ or die "Illegal paynum!"; % my $paynum = $1; % my $reason = $cgi->param('reason'); +% my $paydate = $cgi->param('exp_year'). '-'. $cgi->param('exp_month'). '-01'; +% $options{'paydate'} = $paydate if $paydate =~ /^\d{2,4}-\d{1,2}-01$/; % $error = $cust_main->realtime_refund_bop( $bop, 'amount' => $refund, % 'paynum' => $paynum, -% 'reason' => $reason, ); +% 'reason' => $reason, +% %options ); %} else { % die 'unimplemented'; % #my $new = new FS::cust_refund ( { |