quiet warnings about CGI::param in list context

[freeside.git] / httemplate / search / pay_batch.html

diff --git a/httemplate/search/pay_batch.html b/httemplate/search/pay_batch.html
index a966f68..5907169 100644 (file)
--- a/httemplate/search/pay_batch.html
+++ b/httemplate/search/pay_batch.html
@@ -25,3 +25,9 @@
 </FORM>
 
 <% include('/elements/footer.html') %>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
+
+</%init>