# Koha library project www.koha-community.org
-# Licensed under the GPL
-
# Copyright 2007 Liblime
# Parts copyright 2010 BibLibre
#
$xmlrecord = $record->as_xml();
}
}
-
-if($view eq 'card') {
-$xmlrecord = GetXmlBiblio($biblionumber) unless $xmlrecord;
-my $xslfile = C4::Context->config('intrahtdocs')."/prog/en/xslt/compact.xsl";
+if($view eq 'card') {
+ my $themelang = '/' . C4::Context->preference("opacthemes") . '/' . C4::Templates::_current_language();
+ $xmlrecord = GetXmlBiblio($biblionumber) unless $xmlrecord;
+my $xslfile = C4::Context->config('intrahtdocs').$themelang."/xslt/compact.xsl";
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
my $source = $parser->parse_string($xmlrecord);
my $newxmlrecord = $stylesheet->output_string($results);
$newxmlrecord=Encode::decode_utf8($newxmlrecord) unless utf8::is_utf8($newxmlrecord); #decode only if not in perl internal format
print $input->header(-charset => 'UTF-8'), $newxmlrecord;
-
} else {
+ $record =GetMarcBiblio($biblionumber) unless $record;
-$record =GetMarcBiblio($biblionumber) unless $record;
-
-my $formatted = $record->as_formatted;
-$template->param( MARC_FORMATTED => $formatted );
+ my $formatted = $record->as_formatted;
+ $template->param( MARC_FORMATTED => $formatted );
my $output= $template->output;
$output=Encode::decode_utf8($output) unless utf8::is_utf8($output);
$record = MARC::Record->new_from_usmarc($marc) ;
if($view eq 'card') {
$xmlrecord = $record->as_xml();
- }
+ }
}
-
if ($view eq 'card' || $view eq 'html') {
$xmlrecord = GetXmlBiblio($biblionumber) unless $xmlrecord;
my $xslfile;
+ my $themelang = '/' . C4::Context->preference("opacthemes") . '/' . C4::Templates::_current_language();
+
if ($view eq 'card'){
- $xslfile = C4::Context->config('opachtdocs')."/prog/en/xslt/compact.xsl";
+ $xslfile = C4::Context->config('opachtdocs').$themelang."/xslt/compact.xsl";
}
else { # must be html
- $xslfile = C4::Context->config('opachtdocs')."/prog/en/xslt/MARC21slim2OPACMARCdetail.xsl";
+ $xslfile = C4::Context->config('opachtdocs').$themelang."/xslt/MARC21slim2OPACMARCdetail.xsl";
}
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();