|
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 = ( |