From d16a9737d61eb7b96dcce408cdf81fbbaa1c58d0 Mon Sep 17 00:00:00 2001 From: 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 /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 /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.39.5