Lines 163-168
sub _get_best_default_xslt_filename {
Link Here
|
163 |
} |
163 |
} |
164 |
return $xslfilename; |
164 |
return $xslfilename; |
165 |
} |
165 |
} |
|
|
166 |
=head2 get_xslt_sysprefs |
167 |
|
168 |
returns XML xslt sysprefs |
169 |
|
170 |
=cut |
166 |
|
171 |
|
167 |
sub get_xslt_sysprefs { |
172 |
sub get_xslt_sysprefs { |
168 |
my $sysxml = "<sysprefs>\n"; |
173 |
my $sysxml = "<sysprefs>\n"; |
Lines 263-269
sub XSLTParse4Display {
Link Here
|
263 |
my $itemsxml = buildKohaItemsNamespace($biblionumber, $hidden_items); |
268 |
my $itemsxml = buildKohaItemsNamespace($biblionumber, $hidden_items); |
264 |
my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); |
269 |
my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); |
265 |
|
270 |
|
266 |
$variables ||= {}; |
271 |
my $variables ||= {}; |
267 |
if (C4::Context->preference('OPACShowOpenURL')) { |
272 |
if (C4::Context->preference('OPACShowOpenURL')) { |
268 |
my @biblio_itemtypes; |
273 |
my @biblio_itemtypes; |
269 |
my $biblio = Koha::Biblios->find($biblionumber); |
274 |
my $biblio = Koha::Biblios->find($biblionumber); |
Lines 416-422
sub CustomXSLTExportList {
Link Here
|
416 |
'/' . C4::Context->preference( $opac ? "opacthemes" : "template") . |
421 |
'/' . C4::Context->preference( $opac ? "opacthemes" : "template") . |
417 |
'/' . C4::Languages::getlanguage() . |
422 |
'/' . C4::Languages::getlanguage() . |
418 |
'/xslt/biblioexport'; |
423 |
'/xslt/biblioexport'; |
419 |
my @files = <$dir/*.xsl>; |
424 |
my @files = glob qq("$dir/*.xsl"); |
420 |
foreach my $file (@files) { |
425 |
foreach my $file (@files) { |
421 |
if ( -f "$file" ) { |
426 |
if ( -f "$file" ) { |
422 |
(my $text = $file) =~ s/.*\///g; |
427 |
(my $text = $file) =~ s/.*\///g; |
Lines 433-439
sub CustomXSLTExportList {
Link Here
|
433 |
# Get output format |
438 |
# Get output format |
434 |
# There should only be one xsl:output node, so taking the first one only is OK |
439 |
# There should only be one xsl:output node, so taking the first one only is OK |
435 |
$node = @{$node->findnodes("xsl:output")}[0]; |
440 |
$node = @{$node->findnodes("xsl:output")}[0]; |
436 |
my $outputformat = $node->{"method"} if $node; |
441 |
my $outputformat= ""; |
|
|
442 |
$outputformat = $node->{"method"} if $node; |
437 |
$outputformat = "txt" if ($outputformat eq "" || $outputformat eq "text"); |
443 |
$outputformat = "txt" if ($outputformat eq "" || $outputformat eq "text"); |
438 |
|
444 |
|
439 |
my %row = ( |
445 |
my %row = ( |