- my $style_doc = $parser->parse_file($xslfile);
- my $stylesheet = $xslt->parse_stylesheet($style_doc);
+ unless ( $stylesheet ) {
+ my $xslt = XML::LibXSLT->new();
+ my $xslfile;
+ if ($interface eq 'intranet') {
+ $xslfile = C4::Context->config('intrahtdocs') .
+ '/' . C4::Context->preference("template") .
+ '/' . C4::Output::_current_language() .
+ '/xslt/' .
+ C4::Context->preference('marcflavour') .
+ "slim2intranet$xsl_suffix.xsl";
+ } else {
+ $xslfile = C4::Context->config('opachtdocs') .
+ '/' . C4::Context->preference("opacthemes") .
+ '/' . C4::Output::_current_language() .
+ '/xslt/' .
+ C4::Context->preference('marcflavour') .
+ "slim2OPAC$xsl_suffix.xsl";
+ }
+ my $style_doc = $parser->parse_file($xslfile);
+ $stylesheet = $xslt->parse_stylesheet($style_doc);
+ }