Preliminary fix of the CGI.pm problem of always assuming that everything is

[koha.git] / catalogue-home.pl

diff --git a/catalogue-home.pl b/catalogue-home.pl
index df94438..95ae211 100755 (executable)
--- a/catalogue-home.pl
+++ b/catalogue-home.pl
@@ -4,6 +4,7 @@ use strict;
 use CGI;
 use C4::Auth;
 use C4::Output;
+use C4::Charset;
 use C4::Database;
 use HTML::Template;
 
@@ -26,4 +27,7 @@ $template->param(loggedinuser => $loggedinuser,
                                                classlist => $classlist,
                                                type => 'intranet',);
 
-print $query->header(-cookie => $cookie), $template->output;
+print $query->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+), $template->output;