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 78-84
if ($view eq 'card' || $view eq 'html') {
Link Here
|
78 |
my $style_doc = $parser->parse_file($xslfile); |
79 |
my $style_doc = $parser->parse_file($xslfile); |
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 = Encode::decode_utf8($stylesheet->output_string($results)); |
82 |
print $input->header(), $newxmlrecord; |
83 |
print $input->header(), $newxmlrecord; |
83 |
exit; |
84 |
exit; |
84 |
} else { |
85 |
} else { |
85 |
- |
|
|