diff options
author | jeff <jeff> | 2007-06-15 18:44:17 +0000 |
---|---|---|
committer | jeff <jeff> | 2007-06-15 18:44:17 +0000 |
commit | eb9f717502fa1259c30c91cbfedba36f0cc47380 (patch) | |
tree | a4fb3184cac68882fd4830a614963b53f4744c0b /httemplate/edit/process/cust_refund.cgi | |
parent | 8607eda7be33ce9032dfa4ddf159a171ddfbf90a (diff) |
paydate option for realtime_refund_bop and UI entry for cust_pay records without it (#1662 UI)
Diffstat (limited to 'httemplate/edit/process/cust_refund.cgi')
-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 ( { |