X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fpayment_history%2Frefund.html;h=e82df90dcd667d134aac9f04bdb0d14961e0c454;hb=11bbf29de447fe39e9d7155fe280a0df70fa8c3c;hp=f14713cda12c56344c9d78cd73d75fc620acc417;hpb=998f029ef805c73e90543b34192e16d38a23c69c;p=freeside.git

diff --git a/httemplate/view/cust_main/payment_history/refund.html b/httemplate/view/cust_main/payment_history/refund.html
index f14713cda..e82df90dc 100644
--- 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>