View | Details | Raw Unified | Return to bug 6996
Collapse All | Expand All

(-)a/opac/opac-showmarc.pl (-3 / +5 lines)
Lines 27-34 Link Here
27
use strict;
27
use strict;
28
use warnings;
28
use warnings;
29
29
30
use open OUT=>':utf8', ':std';
31
30
# standard or CPAN modules used
32
# standard or CPAN modules used
31
use CGI;
33
use CGI;
34
use Encode;
32
35
33
# Koha modules used
36
# Koha modules used
34
use C4::Context;
37
use C4::Context;
Lines 79-86 if ($view eq 'card' || $view eq 'html') { Link Here
79
    my $stylesheet = $xslt->parse_stylesheet($style_doc);
82
    my $stylesheet = $xslt->parse_stylesheet($style_doc);
80
    my $results = $stylesheet->transform($source);
83
    my $results = $stylesheet->transform($source);
81
    my $newxmlrecord = $stylesheet->output_string($results);
84
    my $newxmlrecord = $stylesheet->output_string($results);
82
    print $input->header(), $newxmlrecord;
85
    $newxmlrecord = Encode::decode_utf8($newxmlrecord) unless utf8::is_utf8($newxmlrecord);
83
    exit;
86
    print $input->header(-charset => 'UTF-8'), $newxmlrecord;
84
} else {
87
} else {
85
    $record =GetMarcBiblio($biblionumber) unless $record; 
88
    $record =GetMarcBiblio($biblionumber) unless $record; 
86
    $template->param( MARC_FORMATTED => $record->as_formatted );
89
    $template->param( MARC_FORMATTED => $record->as_formatted );
87
- 

Return to bug 6996