Lines 55-69
if(!ref $record) {
Link Here
|
55 |
} |
55 |
} |
56 |
|
56 |
|
57 |
if($view eq 'card') { |
57 |
if($view eq 'card') { |
58 |
my $themelang = '/' . C4::Languages::getlanguage($input); |
58 |
my $xml = $importid ? $record->as_xml(): GetXmlBiblio($biblionumber); |
59 |
my $xmlrecord= $importid? $record->as_xml(): GetXmlBiblio($biblionumber); |
59 |
my $xsl = C4::Context->preference('marcflavour') eq 'UNIMARC' |
60 |
my $xslfile = |
60 |
? 'UNIMARC_compact.xsl' : 'compact.xsl'; |
61 |
C4::Context->config('intrahtdocs') . '/prog' . $themelang . "/xslt/compact.xsl"; |
61 |
my $htdocs = C4::Context->config('intrahtdocs'); |
62 |
if ( ! -f $xslfile && $themelang ne '/en' ) { |
62 |
my ($theme, $lang) = C4::Templates::themelanguage($htdocs, $xsl, 'intranet', $input); |
63 |
$xslfile=~s#$themelang#/en#; |
63 |
$xsl = "$htdocs/$theme/$lang/xslt/$xsl"; |
64 |
} |
64 |
print $input->header(-charset => 'UTF-8'), |
65 |
my $newxmlrecord = C4::XSLT::engine->transform($xmlrecord, $xslfile); |
65 |
Encode::encode_utf8(C4::XSLT::engine->transform($xml, $xsl)); |
66 |
print $input->header(-charset => 'UTF-8'), Encode::encode_utf8($newxmlrecord); |
|
|
67 |
} |
66 |
} |
68 |
else { |
67 |
else { |
69 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
68 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |