X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Freport_cust_credit.html;h=9932097639478c76768e860c5b8e6d43080b8487;hb=590603ecaea3184f64530755a76626be8205da49;hp=ab481025e34c92e1f8d0d28ebf6aeb0cbd1800a9;hpb=14e3560b43ca8a747f4210bd784a0315daeb5e9e;p=freeside.git

diff --git a/httemplate/search/report_cust_credit.html b/httemplate/search/report_cust_credit.html
index ab481025e..993209763 100644
--- a/httemplate/search/report_cust_credit.html
+++ b/httemplate/search/report_cust_credit.html
@@ -42,6 +42,9 @@
 
 <%init>
 
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
+
 my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_credit")
   or die dbh->errstr;
 $sth->execute or die $sth->errstr;