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 |
my $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 205-215
sub XSLTParse4Display {
Link Here
|
205 |
my $variables = $params->{xslt_variables}; |
205 |
my $variables = $params->{xslt_variables}; |
206 |
my $items_rs = $params->{items_rs}; |
206 |
my $items_rs = $params->{items_rs}; |
207 |
my $interface = C4::Context->interface; |
207 |
my $interface = C4::Context->interface; |
|
|
208 |
my $xslfilename = $params->{xslfilename}; |
208 |
|
209 |
|
209 |
die "Mandatory \$params->{xsl_syspref} was not provided, called with biblionumber $params->{biblionumber}" |
210 |
die "Mandatory \$params->{xsl_syspref} was not provided, called with biblionumber $params->{biblionumber}" |
210 |
if not defined $params->{xsl_syspref}; |
211 |
if not defined $params->{xsl_syspref}; |
211 |
|
212 |
|
212 |
my $xslfilename = get_xsl_filename($xslsyspref); |
213 |
my $xslfilename = get_xsl_filename($xslsyspref, $xslfilename); |
213 |
|
214 |
|
214 |
my $frameworkcode = GetFrameworkCode($biblionumber) || ''; |
215 |
my $frameworkcode = GetFrameworkCode($biblionumber) || ''; |
215 |
my $record_processor = Koha::RecordProcessor->new( |
216 |
my $record_processor = Koha::RecordProcessor->new( |