Bug 9456: (follow-up) remove whitespaces and tab

[koha.git] / admin / admin-home.pl

diff --git a/admin/admin-home.pl b/admin/admin-home.pl
index 3205978..bf3d9af 100755 (executable)
--- a/admin/admin-home.pl
+++ b/admin/admin-home.pl
@@ -16,10 +16,11 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use warnings;
+
 use CGI;
 use C4::Auth;
 use C4::Output;
-use C4::Interface::CGI::Output;
 
 
 
@@ -29,8 +30,10 @@ my ($template, $loggedinuser, $cookie)
                             query => $query,
                             type => "intranet",
                             authnotrequired => 0,
-                            flagsrequired => {parameters => 1},
+                 flagsrequired => {parameters => '*'},
                             debug => 1,
                             });
 
+$template->param( SearchEngine => C4::Context->preference('SearchEngine') );
+
 output_html_with_http_headers $query, $cookie, $template->output;