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

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

Return to bug 6996