From 4f3f0faadc6238ee3a78b239ee9673910dbfdff2 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Sun, 26 Jan 2003 04:23:34 +0000
Subject: [PATCH] Handle non-latin1 charsets

---
 admin/branches.pl | 6 +++++-
 reports-home.pl   | 6 +++++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/admin/branches.pl b/admin/branches.pl
index 0e7c14db2e..7094bf7b4a 100755
--- a/admin/branches.pl
+++ b/admin/branches.pl
@@ -26,6 +26,7 @@ use CGI;
 use C4::Auth;
 use C4::Context;
 use C4::Output;
+use C4::Charset;
 use HTML::Template;
 
 # Fixed variables
@@ -376,4 +377,7 @@ sub checkdatabasefor {
     return $message;
 }
 
-print $input->header(-cookie => $cookie), $template->output;
+print $input->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+), $template->output;
diff --git a/reports-home.pl b/reports-home.pl
index 602df139c5..4a86630b3e 100755
--- a/reports-home.pl
+++ b/reports-home.pl
@@ -4,6 +4,7 @@ use strict;
 use CGI;
 use C4::Auth;
 use C4::Output;
+use C4::Charset;
 use C4::Context;
 use HTML::Template;
 
@@ -16,4 +17,7 @@ my ($template, $loggedinuser, $cookie)
 				flagsrequired => {permissions => 1},
 				debug => 1,
 				});
-print $query->header(-cookie => $cookie),$template->output;
+print $query->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+),$template->output;
-- 
2.39.5