X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_refund.cgi;h=bfcbfe725dae9cb05d49235e38bbc13c179f091e;hb=38444ef88b5e93aa9aa724369ae8fe17c97fa480;hp=6fcb01113ab295f249b1dbe1b6425d2f6747263c;hpb=25130cc2e205c1d2c31fc9a14135148b5b2aa835;p=freeside.git
diff --git a/httemplate/edit/cust_refund.cgi b/httemplate/edit/cust_refund.cgi
index 6fcb01113..bfcbfe725 100755
--- a/httemplate/edit/cust_refund.cgi
+++ b/httemplate/edit/cust_refund.cgi
@@ -59,33 +59,29 @@
% }
-
-%
-% #false laziness w/FS/FS/cust_main::realtime_refund_bop
-% if ( $cust_pay->paybatch =~ /^(\w+):(\w+)(:(\w+))?$/ ) {
-% my ( $processor, $auth, $order_number ) = ( $1, $2, $4 );
-%
-
-
+% if ( $cust_pay->processor ) {
- Processor | <% $processor %> |
+ Processor |
+ <% $cust_pay->processor %> |
-% if ( length($auth) ) {
+% if ( length($cust_pay->auth) ) {
- Authorization | <% $auth %> |
+ Authorization |
+ <% $cust_pay->auth %> |
% }
-% if ( length($order_number) ) {
+% if ( length($cust_pay->order_number) ) {
- Order number | <% $order_number %> |
+ Order number |
+ <% $cust_pay->order_number %> |
% }
-% }
+% } # if ($cust_pay->processor)
-% }
+% } #if $cust_pay
Refund
@@ -98,7 +94,7 @@
Amount |
- $ by <% FS::payby->payname($payby) %> |
+ $ by <% FS::payby->payname($payby) %> |
% if ( $payby eq 'BILL' ) {
@@ -110,14 +106,17 @@
% }
-
- Reason |
- |
-
+<& /elements/tr-select-reason.html,
+ 'field' => 'reasonnum',
+ 'reason_class' => 'F',
+ 'control_button' => "confirm_refund_button",
+ 'cgi' => $cgi,
+&>
+
-
+
@@ -140,16 +139,8 @@ my $payinfo = $cgi->param('payinfo');
my $reason = $cgi->param('reason');
my $link = $cgi->param('popup') ? 'popup' : '';
-my @rights = ();
-push @rights, 'Post refund' if $payby =~ /^(BILL|CASH)$/;
-push @rights, 'Post check refund' if $payby eq 'BILL';
-push @rights, 'Post cash refund ' if $payby eq 'CASH';
-push @rights, 'Refund payment' if $payby =~ /^(CARD|CHEK)$/;
-push @rights, 'Refund credit card payment' if $payby eq 'CARD';
-push @rights, 'Refund Echeck payment' if $payby eq 'CHEK';
-
die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right(\@rights);
+ unless $FS::CurrentUser::CurrentUser->refund_access_right($payby);
my( $paynum, $cust_pay ) = ( '', '' );
if ( $cgi->param('paynum') =~ /^(\d+)$/ ) {