Handle non-latin1 charsets

diff --git a/MARCdetail.pl b/MARCdetail.pl
index 28f7c0c..a1573b2 100755 (executable)
--- 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 d64b4eb..ed16af7 100755 (executable)
--- 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 57ff1a0..2989314 100755 (executable)
--- 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 2a20ea3..b36c3f0 100755 (executable)
--- 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 2c72f2e..c4d258c 100755 (executable)
--- 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;