X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_refund.cgi;h=9f7ac8deeca6f599c8963b322cd53c349072b2f5;hb=447f1a906b47868497485edc3ba190a808539956;hp=94c0993d77be108c47dbe13d4df3f4fb3abe4387;hpb=46a7257273fdae101658c8a1ee74f654ca0876b5;p=freeside.git
diff --git a/httemplate/edit/cust_refund.cgi b/httemplate/edit/cust_refund.cgi
index 94c0993d7..9f7ac8dee 100755
--- a/httemplate/edit/cust_refund.cgi
+++ b/httemplate/edit/cust_refund.cgi
@@ -41,14 +41,14 @@
- Date <% time2str("%D",$cust_pay->_date) %>
+ Date <% time2str($date_format, $cust_pay->_date) %>
Method <% $payby %> # <% $paymask %>
-% unless ( $paydate ) { # possibly other reasons: i.e. card has since expired
+% unless ( $paydate || $cust_pay->payby ne 'CARD' ) { # possibly other reasons: i.e. card has since expired
Expiration
<% include( '/elements/select-month_year.html',
@@ -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
@@ -93,12 +89,12 @@
Date
- <% time2str("%D",$_date) %>
+ <% time2str($date_format, $_date) %>
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' => "document.getElementById('confirm_refund_button')",
+ 'cgi' => $cgi,
+&>
+
-
+
@@ -130,10 +129,9 @@
<%init>
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Refund payment');
-
my $conf = new FS::Conf;
+my $date_format = $conf->config('date_format') || '%m/%d/%Y';
+
my $custnum = $cgi->param('custnum');
my $refund = $cgi->param('refund');
my $payby = $cgi->param('payby');
@@ -141,6 +139,17 @@ 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|MCRD)$/;
+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);
+
my( $paynum, $cust_pay ) = ( '', '' );
if ( $cgi->param('paynum') =~ /^(\d+)$/ ) {
$paynum = $1;