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