X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_refund.cgi;h=bea3786f76cf9f427cd423bf88c5587fdf02a112;hb=833839f66761df30a0b0b965ed4314cce32f8f3d;hp=473648f4225c47035b5d43b95d13e79d08203b6d;hpb=b4647550d33068067925f7f3fe8d6fe4f02a67e4;p=freeside.git diff --git a/httemplate/edit/cust_refund.cgi b/httemplate/edit/cust_refund.cgi index 473648f42..bea3786f7 100755 --- a/httemplate/edit/cust_refund.cgi +++ b/httemplate/edit/cust_refund.cgi @@ -33,7 +33,7 @@ % $paydate = '' unless ($paydate =~ /^\d{2,4}-\d{1,2}-01$'/); % } -
Payment +
Payment <% ntable("#cccccc", 2) %> @@ -84,8 +84,7 @@ % } #if $cust_pay -
Refund - +
Refund <% ntable("#cccccc", 2) %> @@ -95,72 +94,42 @@ Amount - $ by <% FS::payby->payname($payby) %> + $ % if ( $payby eq 'BILL' ) { - Check # - + Check + % } -% elsif ($payby eq 'CHEK') { -% - -% my @cust_payby = (); -% if ( $payby eq 'CARD' ) { -% @cust_payby = $cust_main->cust_payby('CARD','DCRD'); -% } elsif ( $payby eq 'CHEK' ) { -% @cust_payby = $cust_main->cust_payby('CHEK','DCHK'); -% } else { -% die "unknown payby $payby"; -% } -% -% my $custpaybynum = length(scalar($cgi->param('custpaybynum'))) -% ? scalar($cgi->param('custpaybynum')) -% : scalar(@cust_payby) && $cust_payby[0]->custpaybynum; -<& /elements/tr-select-cust_payby.html, - 'cust_payby' => \@cust_payby, - 'curr_value' => $custpaybynum, - 'onchange' => 'cust_payby_changed(this)', -&> - - -

-

-> - - -<& /elements/cust_payby_new.html, - 'cust_payby' => \@cust_payby, - 'curr_value' => $custpaybynum, -&> +% elsif ($payby eq 'CHEK' || $payby eq 'CARD') { -
-
+ + Method + <% FS::payby->payname($real_payby) %> # <% $real_paymask %> + + +% if ($payby eq "CARD" || $payby eq "DCRD") { + +% } +% elsif ( $conf->exists("batch-enable") +% || grep $payby eq $_, $conf->config('batch-enable_payby') +% ) { +% if ( grep $payby eq $_, $conf->config('realtime-disable_payby') ) { + +% } else { + + > +    <% mt('Add to current batch') |h %> + +% } +% } -% } else { +% } else { - % } -

- <& /elements/tr-select-reason.html, 'field' => 'reasonnum', 'reason_class' => 'F', @@ -193,16 +162,18 @@ my $payby = $cgi->param('payby'); my $payinfo = $cgi->param('payinfo'); my $reason = $cgi->param('reason'); my $link = $cgi->param('popup') ? 'popup' : ''; +my $batch = $cgi->param('batch'); die "access denied" unless $FS::CurrentUser::CurrentUser->refund_access_right($payby); -my( $paynum, $cust_pay ) = ( '', '' ); +my( $paynum, $cust_pay, $batchnum ) = ( '', '', '' ); if ( $cgi->param('paynum') =~ /^(\d+)$/ ) { $paynum = $1; $cust_pay = qsearchs('cust_pay', { paynum=>$paynum } ) or die "unknown payment # $paynum"; $refund ||= $cust_pay->unrefunded; + $batchnum = $cust_pay->batchnum; if ( $custnum ) { die "payment # $paynum is not for specified customer # $custnum" unless $custnum == $cust_pay->custnum; @@ -215,6 +186,9 @@ die "no custnum or paynum specified!" unless $custnum; my $cust_main = qsearchs( 'cust_main', { 'custnum'=>$custnum } ); die "unknown custnum $custnum" unless $cust_main; +my $real_payby = $cust_main->payby; +my $real_paymask = $cust_main->paymask; + my $_date = time; my $p1 = popurl(1);