Bug 21890: Handle can_reset_password on the staff interface

[srvgit] / admin / admin-home.pl

diff --git a/admin/admin-home.pl b/admin/admin-home.pl
index 7c1d058..f6a7b23 100755 (executable)
--- a/admin/admin-home.pl
+++ b/admin/admin-home.pl
@@ -20,8 +20,13 @@ use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
+use Koha::Plugins;
 
 my $query = new CGI;
+
+my $plugins_enabled = C4::Context->preference('UseKohaPlugins') && C4::Context->config("enable_plugins");
+my $mana_url        = C4::Context->config('mana_config');
+
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
         template_name   => "admin/admin-home.tt",
@@ -33,4 +38,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     }
 );
 
+$template->param( plugins_enabled => $plugins_enabled, );
+$template->param( mana_url        => $mana_url, );
+
 output_html_with_http_headers $query, $cookie, $template->output;