Handle non-latin1 charsets

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;

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;

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.
 #