@@ -, +, @@ everywhere --- catalogue/detail.pl | 18 +++++++++++++----- opac/opac-detail.pl | 16 ++++++++++++---- opac/opac-tags.pl | 17 +++++++++++++---- 3 files changed, 38 insertions(+), 13 deletions(-) --- a/catalogue/detail.pl +++ a/catalogue/detail.pl @@ -16,8 +16,7 @@ # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Acquisition qw( GetHistory ); @@ -84,9 +83,18 @@ my $showallitems = $query->param('showallitems'); my $marcflavour = C4::Context->preference("marcflavour"); # XSLT processing of some stuff -if (C4::Context->preference("XSLTDetailsDisplay") ) { - $template->param('XSLTDetailsDisplay' =>'1', - 'XSLTBloc' => XSLTParse4Display($biblionumber, $record, "XSLTDetailsDisplay") ); +my $xslfile = C4::Context->preference('XSLTDetailsDisplay'); +my $lang = $xslfile ? C4::Languages::getlanguage() : undef; +my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef; + +if ( $xslfile ) { + $template->param( + XSLTDetailsDisplay => '1', + XSLTBloc => XSLTParse4Display( + $biblionumber, $record, "XSLTDetailsDisplay", + 1, undef, $sysxml, $xslfile, $lang + ) + ); } $template->param( 'SpineLabelShowPrintOnBibDetails' => C4::Context->preference("SpineLabelShowPrintOnBibDetails") ); --- a/opac/opac-detail.pl +++ a/opac/opac-detail.pl @@ -20,8 +20,7 @@ # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Acquisition qw( SearchOrders ); @@ -141,8 +140,17 @@ my $marcflavour = C4::Context->preference("marcflavour"); my $ean = GetNormalizedEAN( $record, $marcflavour ); # XSLT processing of some stuff -if (C4::Context->preference("OPACXSLTDetailsDisplay") ) { - $template->param( 'XSLTBloc' => XSLTParse4Display($biblionumber, $record, "OPACXSLTDetailsDisplay" ) ); +my $xslfile = C4::Context->preference('OPACXSLTDetailsDisplay'); +my $lang = $xslfile ? C4::Languages::getlanguage() : undef; +my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef; + +if ( $xslfile ) { + $template->param( + XSLTBloc => XSLTParse4Display( + $biblionumber, $record, "OPACXSLTDetailsDisplay", + 1, undef, $sysxml, $xslfile, $lang + ) + ); } my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults"); --- a/opac/opac-tags.pl +++ a/opac/opac-tags.pl @@ -30,8 +30,8 @@ C4::Scrubber is used to remove all markup content from the sumitted text. =cut -use strict; -use warnings; +use Modern::Perl; + use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before having CGI parse the POST request @@ -234,9 +234,18 @@ if ($loggedinuser) { $tag->{subtitle} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $tag->{biblionumber} ) ); $tag->{title} = $biblio->{title}; $tag->{author} = $biblio->{author}; - if (C4::Context->preference("OPACXSLTResultsDisplay")) { - $tag->{XSLTBloc} = XSLTParse4Display($tag->{biblionumber}, $record, "OPACXSLTResultsDisplay"); + + my $xslfile = C4::Context->preference('OPACXSLTResultsDisplay'); + my $lang = $xslfile ? C4::Languages::getlanguage() : undef; + my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef; + + if ( $xslfile ) { + $tag->{XSLTBloc} = XSLTParse4Display( + $tag->{ biblionumber }, $record, "OPACXSLTResultsDisplay", + 1, undef, $sysxml, $xslfile, $lang + ); } + my $date = $tag->{date_created} || ''; $date =~ /\s+(\d{2}\:\d{2}\:\d{2})/; $tag->{time_created_display} = $1; --