From d16a9737d61eb7b96dcce408cdf81fbbaa1c58d0 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Sun, 2 Feb 2003 04:57:47 +0000
Subject: [PATCH] Handle non-latin1 charsets

---
 MARCdetail.pl              | 20 +++++++++++++++-----
 admin/aqbookfund.pl        |  6 +++++-
 admin/aqbudget.pl          |  6 +++++-
 admin/authorised_values.pl |  6 +++++-
 readingrec.pl              |  6 +++++-
 5 files changed, 35 insertions(+), 9 deletions(-)

diff --git a/MARCdetail.pl b/MARCdetail.pl
index 28f7c0cf5a..a1573b2676 100755
--- a/MARCdetail.pl
+++ b/MARCdetail.pl
@@ -26,10 +26,17 @@ MARCdetail.pl : script to show a biblio in MARC format
 
 =head1 DESCRIPTION
 
-This script needs a biblionumber in bib parameter (bibnumber from koha style DB. Automaticaly maps to marc biblionumber).
-It shows the biblio in a (nice) MARC format depending on MARC parameters tables.
-The template is in <templates_dir>/catalogue/MARCdetail.tmpl. this template must be divided in 11 "tabs".
-The 10 firsts presents the biblio, the 11th one presents the items attached to the biblio
+This script needs a biblionumber in bib parameter (bibnumber
+from koha style DB.  Automaticaly maps to marc biblionumber).
+
+It shows the biblio in a (nice) MARC format depending on MARC
+parameters tables.
+
+The template is in <templates_dir>/catalogue/MARCdetail.tmpl.
+this template must be divided into 11 "tabs".
+
+The first 10 tabs present the biblio, the 11th one presents
+the items attached to the biblio
 
 =head1 FUNCTIONS
 
@@ -153,5 +160,8 @@ $template->param(item_loop => \@item_value_loop,
 						item_header_loop => \@header_value_loop,
 						biblionumber => $biblionumber,
 						bibid => $bibid);
-print $query->header(-cookie => $cookie),$template->output;
+print $query->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+),$template->output;
 
diff --git a/admin/aqbookfund.pl b/admin/aqbookfund.pl
index d64b4eb64e..ed16af7db9 100755
--- a/admin/aqbookfund.pl
+++ b/admin/aqbookfund.pl
@@ -42,6 +42,7 @@ use CGI;
 use C4::Auth;
 use C4::Context;
 use C4::Output;
+use C4::Charset;
 use C4::Search;
 use HTML::Template;
 
@@ -205,4 +206,7 @@ if ($op eq 'add_form') {
        $template->param(bookfund => \@loop_data);
 } #---- END $OP eq DEFAULT
 
-print $input->header(-cookie => $cookie), $template->output;
+print $input->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+), $template->output;
diff --git a/admin/aqbudget.pl b/admin/aqbudget.pl
index 57ff1a05ef..2989314e60 100755
--- a/admin/aqbudget.pl
+++ b/admin/aqbudget.pl
@@ -42,6 +42,7 @@ use CGI;
 use C4::Auth;
 use C4::Context;
 use C4::Output;
+use C4::Charset;
 use C4::Search;
 use HTML::Template;
 
@@ -226,5 +227,8 @@ if ($op eq 'add_form') {
        $template->param(budget => \@loop_data);
 } #---- END $OP eq DEFAULT
 
-print $input->header(-cookie => $cookie), $template->output;
+print $input->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+), $template->output;
 
diff --git a/admin/authorised_values.pl b/admin/authorised_values.pl
index 2a20ea3815..b36c3f00ac 100755
--- a/admin/authorised_values.pl
+++ b/admin/authorised_values.pl
@@ -22,6 +22,7 @@ use CGI;
 use C4::Auth;
 use C4::Context;
 use C4::Output;
+use C4::Charset;
 use C4::Search;
 use HTML::Template;
 use C4::Context;
@@ -188,4 +189,7 @@ if ($op eq 'add_form') {
 	}
 } #---- END $OP eq DEFAULT
 
-print $input->header(-cookie => $cookie), $template->output;
+print $input->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+), $template->output;
diff --git a/readingrec.pl b/readingrec.pl
index 2c72f2e1a7..c4d258ca4d 100755
--- a/readingrec.pl
+++ b/readingrec.pl
@@ -25,6 +25,7 @@
 use strict;
 use C4::Auth;
 use C4::Output;
+use C4::Charset;
 use CGI;
 use C4::Search;
 use HTML::Template;
@@ -72,7 +73,10 @@ $template->param(title => $data->{'title'},
 						bornum => $bornum,
 						limit => $limit,
 						loop_reading => \@loop_reading);
-print $input->header(-cookie => $cookie),$template->output;
+print $input->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+),$template->output;
 
 
 
-- 
2.20.1