Bugzilla – Attachment 5958 Details for
Bug 5616
UTF-8 problem in Card View
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 5616: UTF-8 problem in Card View / Follow up
Bug-5616-UTF-8-problem-in-Card-View--Follow-up.patch (text/plain), 1.92 KB, created by
Paul Poulain
on 2011-10-18 15:39:39 UTC
(
hide
)
Description:
Bug 5616: UTF-8 problem in Card View / Follow up
Filename:
MIME Type:
Creator:
Paul Poulain
Created:
2011-10-18 15:39:39 UTC
Size:
1.92 KB
patch
obsolete
>From d8dbf0fff95f57acb1692f65bbfd7472c7416ddd Mon Sep 17 00:00:00 2001 >From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> >Date: Mon, 10 Oct 2011 13:04:34 +0200 >Subject: [PATCH] Bug 5616: UTF-8 problem in Card View / Follow up > >Decode data only if needed. >Add instruction to use UTF8 in html header. >Force utf8 on output handle. > >Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> >Umlauts and other diacritics in card view of z39.50 search are now >correctly displayed. > >Signed-off-by: Paul Poulain <paul.poulain@biblibre.com> > removed 2 commented lines >--- > catalogue/showmarc.pl | 13 ++++++++----- > 1 files changed, 8 insertions(+), 5 deletions(-) > >diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl >index bd557e9..5e03798 100755 >--- a/catalogue/showmarc.pl >+++ b/catalogue/showmarc.pl >@@ -25,9 +25,12 @@ > use strict; > #use warnings; FIXME - Bug 2505 > >+use open OUT=>':utf8', ':std'; >+ > # standard or CPAN modules used > use CGI qw(:standard); > use DBI; >+use Encode; > > # Koha modules used > use C4::Context; >@@ -75,10 +78,8 @@ my $style_doc = $parser->parse_file($xslfile); > my $stylesheet = $xslt->parse_stylesheet($style_doc); > my $results = $stylesheet->transform($source); > my $newxmlrecord = $stylesheet->output_string($results); >-#warn $newxmlrecord; >-print "Content-type: text/html\n\n"; >-utf8::encode($newxmlrecord); >-print $newxmlrecord; >+$newxmlrecord=Encode::decode_utf8($newxmlrecord) unless utf8::is_utf8($newxmlrecord); #decode only if not in perl internal format >+print $input->header(-charset => 'UTF-8'), $newxmlrecord; > > } else { > >@@ -87,5 +88,7 @@ $record =GetMarcBiblio($biblionumber) unless $record; > my $formatted = $record->as_formatted; > $template->param( MARC_FORMATTED => $formatted ); > >-output_html_with_http_headers $input, $cookie, $template->output; >+my $output= $template->output; >+$output=Encode::decode_utf8($output) unless utf8::is_utf8($output); >+output_html_with_http_headers $input, $cookie, $output; > } >-- >1.7.5.4
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 5616
:
2987
|
3074
|
5826
|
5853
|
5866
| 5958 |
6203
|
6204