- 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 $style_doc = $parser->parse_file($xslfile);
- my $stylesheet = $xslt->parse_stylesheet($style_doc);
- my $results = $stylesheet->transform($source);
- my $newxmlrecord = $stylesheet->output_string($results);
+ C4::Context->config('intrahtdocs') . '/prog' . $themelang . "/xslt/compact.xsl";
+ if ( ! -f $xslfile && $themelang ne '/en' ) {
+ $xslfile=~s#$themelang#/en#;
+ }
+ my $newxmlrecord = C4::XSLT::engine->transform($xmlrecord, $xslfile);