From 48bd1f1b3cb14b86af83985a0f7e9a865641723f Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Sun, 26 Jan 2003 23:21:49 +0000
Subject: [PATCH] Handle non-latin1 charsets

---
 acqui.simple/addbiblio.pl  | 6 +++++-
 acqui.simple/additem.pl    | 6 +++++-
 acqui.simple/marcimport.pl | 9 ++++++++-
 3 files changed, 18 insertions(+), 3 deletions(-)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index e1769dcf0a..ee52c4f690 100755
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -23,6 +23,7 @@ use strict;
 use CGI;
 use C4::Auth;
 use C4::Output;
+use C4::Charset;
 use C4::Biblio;
 use C4::Context;
 use HTML::Template;
@@ -305,4 +306,7 @@ if ($op eq "addbiblio") {
 							oldbiblioitemnumtagsubfield => $oldbiblioitemnumtagsubfield,
 							oldbiblioitemnumber => $oldbiblioitemnumber);
 }
-print $input->header(-cookie => $cookie),$template->output;
+print $input->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+),$template->output;
diff --git a/acqui.simple/additem.pl b/acqui.simple/additem.pl
index cceac85c3b..86dd779cd7 100755
--- a/acqui.simple/additem.pl
+++ b/acqui.simple/additem.pl
@@ -23,6 +23,7 @@ use CGI;
 use strict;
 use C4::Auth;
 use C4::Output;
+use C4::Charset;
 use C4::Biblio;
 use C4::Context;
 use HTML::Template;
@@ -250,4 +251,7 @@ $template->param(item_loop => \@item_value_loop,
 						itemtagsubfield =>$itemtagsubfield,
 						op => $nextop,
 						opisadd => ($nextop eq "saveitem")?0:1);
-print $input->header(-cookie => $cookie),$template->output;
+print $input->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+),$template->output;
diff --git a/acqui.simple/marcimport.pl b/acqui.simple/marcimport.pl
index afaaf7e500..80b5d156a9 100755
--- a/acqui.simple/marcimport.pl
+++ b/acqui.simple/marcimport.pl
@@ -36,6 +36,7 @@ use DBI;
 # Koha modules used
 use C4::Context;
 use C4::Output;
+use C4::Charset;
 use C4::Input;
 use C4::Biblio;
 use MARC::File::USMARC;
@@ -150,7 +151,10 @@ if ($uploadmarc && length($uploadmarc)>0) {
 
 }
 
-print "Content-Type: text/html\n\n",$template->output;
+print $input->header(
+    -type => guesstype($template->output),
+    -cookie => $cookie
+),$template->output;
 my $menu;
 my $file;
 
@@ -806,6 +810,9 @@ sub FormatMarcText {
 #---------------
 # log cleared, as marcimport is (almost) rewritten from scratch.
 # $Log$
+# Revision 1.27  2003/01/26 23:21:49  acli
+# Handle non-latin1 charsets
+#
 # Revision 1.26  2003/01/23 12:26:41  tipaul
 # upgrading import in breeding farm (you can now search on ISBN or on title) AND character encoding.
 #
-- 
2.39.5