httemplate/view/cust_main/payment_history/refund.html

   1 <% $refund %>
   2 (<% "$payby$payinfo" %>)
   3 <% "$view$delete" %>
   4 <%init>
   5
   6 my( $cust_refund, %opt ) = @_;
   7
   8 my $curuser = $FS::CurrentUser::CurrentUser;
   9
  10 my $payby = $cust_refund->payby;
  11 my $payinfo = $payby eq 'CARD'
  12                 ? $cust_refund->paymask
  13                 : $cust_refund->payinfo;
  14 $payby = translate_payby_refund($payby,$payinfo);
  15
  16 my $refund = mt("Refund by [_1]",$cust_refund->otaker);
  17 $refund = '<B><FONT COLOR="#FF0000">'
  18     . mt("Unapplied Refund by [_1]",$cust_refund->otaker)
  19     . '</FONT></B>'
  20     if $cust_refund->unapplied > 0;
  21
  22 my $view =
  23   ' ('. include('/elements/popup_link.html',
  24                   'label'     => mt('view receipt'),
  25                   'action'    => "${p}view/cust_refund.html?link=popup;".
  26                                  'refundnum='. $cust_refund->refundnum,
  27                   'actionlabel' => mt('Payment Receipt'),
  28                ).
  29    ')';
  30
  31 my $delete = '';
  32 $delete = areyousure_link("${p}misc/delete-cust_refund.cgi?".$cust_refund->refundnum,
  33                            mt('Are you sure you want to delete this refund?'),
  34                            mt('Delete this refund from the database completely - not recommended'),
  35                            mt('delete')
  36                           )
  37     if ( $cust_refund->closed !~ /^Y/i && $opt{'deleterefunds'}
  38                                 && $curuser->access_right('Delete refund') );
  39
  40 </%init>
  41