invoice_sections_with_taxes per-agent, RT#79636

[freeside.git] / httemplate / view / cust_main / payment_history / refund.html

diff --git a/httemplate/view/cust_main/payment_history/refund.html b/httemplate/view/cust_main/payment_history/refund.html
index f14713c..e82df90 100644 (file)
--- a/httemplate/view/cust_main/payment_history/refund.html
+++ b/httemplate/view/cust_main/payment_history/refund.html
@@ -1,12 +1,10 @@
 <% $refund %> 
 (<% "$payby$payinfo" %>)
-<% "$view$delete" %>
+<% "$view$email$delete" %>
 <%init>
 
 my( $cust_refund, %opt ) = @_;
 
-my $curuser = $FS::CurrentUser::CurrentUser;
-
 my $payby = $cust_refund->payby;
 my $payinfo = $payby eq 'CARD'
                 ? $cust_refund->paymask
@@ -28,14 +26,22 @@ my $view =
                ).
    ')';
 
+my $email = $opt{'has_email_address'} ? 
+  q! (<A HREF="javascript:void(0)" ONCLICK="areyousure_popup('Send email receipt for refund to customer?','!.
+  "${p}view/cust_refund.html?link=email;refundnum=".
+  $cust_refund->refundnum.
+  q!','Email Refund Receipt')" TITLE="Send email receipt">email&nbsp;receipt</A>)!
+  : '';
+
 my $delete = '';
 $delete = areyousure_link("${p}misc/delete-cust_refund.cgi?".$cust_refund->refundnum,
                            emt('Are you sure you want to delete this refund?'),
                            emt('Delete this refund from the database completely - not recommended'),
                            emt('delete')
                           ) 
-    if ( $cust_refund->closed !~ /^Y/i && $opt{'deleterefunds'} 
-                                && $curuser->access_right('Delete refund') );
+  if $cust_refund->closed !~ /^Y/i
+  && $opt{'deleterefunds'} 
+  && $opt{'Delete refund'};
 
 </%init>