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