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 |
- |
|
|