Bug 11926 [Follow-up] HEA - Render community koha statistic usages

[srvgit] / admin / env_tz_test.pl

diff --git a/admin/env_tz_test.pl b/admin/env_tz_test.pl
index ae70a1a..eb6a4b1 100755 (executable)
--- a/admin/env_tz_test.pl
+++ b/admin/env_tz_test.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl 
 
+use strict;
+use warnings;
 use CGI;
 # use Data::Dumper;
 
@@ -7,14 +9,16 @@ use C4::Context;
 use C4::Auth;
 
 my $q = CGI->new();
-my ($template, $loggedinuser, $cookie) = get_template_and_user({
-          template_name => "admin/admin-home.tmpl",    # whatever, we don't really use the template anyway.
-                          query => $q,
-                               type => "intranet",
-        authnotrequired => 0,
-          flagsrequired => {parameters => 1},
-                      debug => 1,
-});
+my ($template, $loggedinuser, $cookie) = get_template_and_user(
+    {
+        template_name   => "admin/admin-home.tt", # whatever, we don't really use the template anyway.
+        query           => $q,
+        type            => "intranet",
+        authnotrequired => 0,
+        flagsrequired   => {parameters => 'parameters_remaining_permissions'},
+        debug           => 1,
+    }
+);
 
 my $dbh = C4::Context->dbh;
 my  $tz_sth = $dbh->prepare("SHOW VARIABLES LIKE 'time_zone'");