Handle non-latin1 charsets

diff --git a/search.marc/search.pl b/search.marc/search.pl
index 795516c..7bc0ced 100755 (executable)
--- a/search.marc/search.pl
+++ b/search.marc/search.pl
@@ -26,6 +26,7 @@ use C4::Context;
 use C4::Search;
 use C4::Auth;
 use C4::Output;
+use C4::Charset;
 use C4::Biblio;
 use C4::SearchMarc;
 
@@ -107,4 +108,7 @@ if ($op eq "do_search") {
        $template->param("marclist" => $marclist);
 }
 # Print the page
-print $query->header(-cookie => $cookie), $template->output;
+print $query->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+), $template->output;