event refactor, landing on HEAD!

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

diff --git a/httemplate/search/report_cust_credit.html b/httemplate/search/report_cust_credit.html
index ab48102..0490f43 100644 (file)
--- a/httemplate/search/report_cust_credit.html
+++ b/httemplate/search/report_cust_credit.html
@@ -18,8 +18,8 @@
   </TR>
 
   <% include( '/elements/tr-select-agent.html',
-                 $cgi->param('agentnum'),
-                 'label' => 'for agent: ',
+                 'curr_value' => scalar( $cgi->param('agentnum') ),
+                 'label'      => 'for agent: ',
              )
   %>
 
@@ -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;