Lines 131-154
sub get_xslt_sysprefs {
Link Here
|
131 |
} |
131 |
} |
132 |
|
132 |
|
133 |
sub get_xsl_filename { |
133 |
sub get_xsl_filename { |
134 |
my ( $xslsyspref ) = @_; |
134 |
my ( $xslsyspref, $xslfilename ) = @_; |
135 |
|
135 |
|
136 |
my $lang = C4::Languages::getlanguage(); |
136 |
my $lang = C4::Languages::getlanguage(); |
137 |
|
137 |
|
138 |
my $xslfilename = C4::Context->preference($xslsyspref) || "default"; |
138 |
$xslfilename ||= C4::Context->preference($xslsyspref) || "default"; |
139 |
|
139 |
|
140 |
if ($xslsyspref eq "XSLTCustomExport") { |
140 |
if ($xslsyspref eq "XSLTCustomExport") { |
141 |
my $dir; |
141 |
my $dir; |
142 |
$dir = C4::Context->config('intrahtdocs') . |
142 |
$dir = C4::Context->config('intrahtdocs') . |
143 |
'/' . C4::Context->preference("template") . |
143 |
'/' . C4::Context->preference("template") . |
144 |
'/' . C4::Languages::getlanguage() . |
144 |
'/' . $lang . |
145 |
'/xslt/biblioexport'; |
145 |
'/xslt/biblioexport'; |
146 |
$xslfilename = $dir . "/" . $xslfilename; |
146 |
$xslfilename = $dir . "/" . $xslfilename; |
147 |
} elsif ($xslsyspref eq "OPACXSLTCustomExport") { |
147 |
} elsif ($xslsyspref eq "OPACXSLTCustomExport") { |
148 |
my $dir; |
148 |
my $dir; |
149 |
$dir = C4::Context->config('opachtdocs') . |
149 |
$dir = C4::Context->config('opachtdocs') . |
150 |
'/' . C4::Context->preference("opacthemes") . |
150 |
'/' . C4::Context->preference("opacthemes") . |
151 |
'/' . C4::Languages::getlanguage() . |
151 |
'/' . $lang . |
152 |
'/xslt/biblioexport'; |
152 |
'/xslt/biblioexport'; |
153 |
$xslfilename = $dir . "/" . $xslfilename; |
153 |
$xslfilename = $dir . "/" . $xslfilename; |
154 |
} elsif ( $xslfilename =~ /^\s*"?default"?\s*$/i ) { |
154 |
} elsif ( $xslfilename =~ /^\s*"?default"?\s*$/i ) { |
Lines 209-219
sub XSLTParse4Display {
Link Here
|
209 |
my $hidden_items = $params->{hidden_items} || []; |
209 |
my $hidden_items = $params->{hidden_items} || []; |
210 |
my $variables = $params->{xslt_variables}; |
210 |
my $variables = $params->{xslt_variables}; |
211 |
my $items_rs = $params->{items_rs}; |
211 |
my $items_rs = $params->{items_rs}; |
|
|
212 |
my $xslfilename = $params->{xslfilename}; |
212 |
|
213 |
|
213 |
die "Mandatory \$params->{xsl_syspref} was not provided, called with biblionumber $params->{biblionumber}" |
214 |
die "Mandatory \$params->{xsl_syspref} was not provided, called with biblionumber $params->{biblionumber}" |
214 |
if not defined $params->{xsl_syspref}; |
215 |
if not defined $params->{xsl_syspref}; |
215 |
|
216 |
|
216 |
my $xslfilename = get_xsl_filename( $xslsyspref); |
217 |
$xslfilename = get_xsl_filename( $xslsyspref, $xslfilename); |
217 |
|
218 |
|
218 |
my $frameworkcode = GetFrameworkCode($biblionumber) || ''; |
219 |
my $frameworkcode = GetFrameworkCode($biblionumber) || ''; |
219 |
my $record_processor = Koha::RecordProcessor->new( |
220 |
my $record_processor = Koha::RecordProcessor->new( |
Lines 237-243
sub XSLTParse4Display {
Link Here
|
237 |
my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); |
238 |
my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); |
238 |
|
239 |
|
239 |
my $biblio; |
240 |
my $biblio; |
240 |
my $variables ||= {}; |
241 |
$variables ||= {}; |
241 |
|
242 |
|
242 |
if (C4::Context->preference('OPACShowOpenURL')) { |
243 |
if (C4::Context->preference('OPACShowOpenURL')) { |
243 |
my @biblio_itemtypes; |
244 |
my @biblio_itemtypes; |