Bug 17600: Standardize our EXPORT_OK

[srvgit] / admin / admin-home.pl

diff --git a/admin/admin-home.pl b/admin/admin-home.pl
index 7c1d058..73f2cc8 100755 (executable)
--- a/admin/admin-home.pl
+++ b/admin/admin-home.pl
@@ -18,19 +18,25 @@
 use Modern::Perl;
 
 use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use Koha::Plugins;
+
+my $query = CGI->new;
+
+my $plugins_enabled = C4::Context->config("enable_plugins");
+my $mana_url        = C4::Context->config('mana_config');
 
-my $query = new CGI;
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
         template_name   => "admin/admin-home.tt",
         query           => $query,
         type            => "intranet",
-        authnotrequired => 0,
         flagsrequired   => { parameters => '*' },
-        debug           => 1,
     }
 );
 
+$template->param( plugins_enabled => $plugins_enabled, );
+$template->param( mana_url        => $mana_url, );
+
 output_html_with_http_headers $query, $cookie, $template->output;