From fc2daff31e23478c55e8493590dc70cd44caace1 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Sun, 2 Feb 2003 00:13:10 +0000
Subject: [PATCH] Handle non-latin1 charsets

---
 search.marc/search.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/search.marc/search.pl b/search.marc/search.pl
index 795516cbf4..7bc0ced68f 100755
--- 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;
-- 
2.39.5