|
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 268-274
sub XSLTParse4Display {
Link Here
|
| 268 |
} |
274 |
} |
| 269 |
my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); |
275 |
my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); |
| 270 |
|
276 |
|
| 271 |
$variables ||= {}; |
277 |
my $variables ||= {}; |
| 272 |
if (C4::Context->preference('OPACShowOpenURL')) { |
278 |
if (C4::Context->preference('OPACShowOpenURL')) { |
| 273 |
my @biblio_itemtypes; |
279 |
my @biblio_itemtypes; |
| 274 |
my $biblio = Koha::Biblios->find($biblionumber); |
280 |
my $biblio = Koha::Biblios->find($biblionumber); |
|
Lines 426-432
sub CustomXSLTExportList {
Link Here
|
| 426 |
'/' . C4::Context->preference( $opac ? "opacthemes" : "template") . |
432 |
'/' . C4::Context->preference( $opac ? "opacthemes" : "template") . |
| 427 |
'/' . C4::Languages::getlanguage() . |
433 |
'/' . C4::Languages::getlanguage() . |
| 428 |
'/xslt/biblioexport'; |
434 |
'/xslt/biblioexport'; |
| 429 |
my @files = <$dir/*.xsl>; |
435 |
my @files = glob qq("$dir/*.xsl"); |
| 430 |
foreach my $file (@files) { |
436 |
foreach my $file (@files) { |
| 431 |
if ( -f "$file" ) { |
437 |
if ( -f "$file" ) { |
| 432 |
(my $text = $file) =~ s/.*\///g; |
438 |
(my $text = $file) =~ s/.*\///g; |
|
Lines 443-449
sub CustomXSLTExportList {
Link Here
|
| 443 |
# Get output format |
449 |
# Get output format |
| 444 |
# There should only be one xsl:output node, so taking the first one only is OK |
450 |
# There should only be one xsl:output node, so taking the first one only is OK |
| 445 |
$node = @{$node->findnodes("xsl:output")}[0]; |
451 |
$node = @{$node->findnodes("xsl:output")}[0]; |
| 446 |
my $outputformat = $node->{"method"} if $node; |
452 |
my $outputformat= ""; |
|
|
453 |
$outputformat = $node->{"method"} if $node; |
| 447 |
$outputformat = "txt" if ($outputformat eq "" || $outputformat eq "text"); |
454 |
$outputformat = "txt" if ($outputformat eq "" || $outputformat eq "text"); |
| 448 |
|
455 |
|
| 449 |
my %row = ( |
456 |
my %row = ( |