Lines 34-39
use Koha::ItemTypes;
Link Here
|
34 |
use Koha::XSLT_Handler; |
34 |
use Koha::XSLT_Handler; |
35 |
use Koha::Libraries; |
35 |
use Koha::Libraries; |
36 |
|
36 |
|
|
|
37 |
use XML::LibXML; |
38 |
|
37 |
use Encode; |
39 |
use Encode; |
38 |
|
40 |
|
39 |
use vars qw(@ISA @EXPORT); |
41 |
use vars qw(@ISA @EXPORT); |
Lines 48-53
BEGIN {
Link Here
|
48 |
@ISA = qw(Exporter); |
50 |
@ISA = qw(Exporter); |
49 |
@EXPORT = qw( |
51 |
@EXPORT = qw( |
50 |
&XSLTParse4Display |
52 |
&XSLTParse4Display |
|
|
53 |
&CustomXSLTExportList |
51 |
); |
54 |
); |
52 |
$engine=Koha::XSLT_Handler->new( { do_not_return_source => 1 } ); |
55 |
$engine=Koha::XSLT_Handler->new( { do_not_return_source => 1 } ); |
53 |
} |
56 |
} |
Lines 190-202
sub get_xslt_sysprefs {
Link Here
|
190 |
} |
193 |
} |
191 |
|
194 |
|
192 |
sub XSLTParse4Display { |
195 |
sub XSLTParse4Display { |
193 |
my ( $biblionumber, $orig_record, $xslsyspref, $fixamps, $hidden_items, $sysxml, $xslfilename, $lang, $variables ) = @_; |
196 |
my ( $biblionumber, $orig_record, $xslsyspref, $fixamps, $hidden_items, $sysxml, $xslfilename, $lang , $opac) = @_; |
194 |
|
197 |
|
195 |
$sysxml ||= C4::Context->preference($xslsyspref); |
198 |
$sysxml ||= C4::Context->preference($xslsyspref); |
196 |
$xslfilename ||= C4::Context->preference($xslsyspref); |
199 |
$xslfilename ||= C4::Context->preference($xslsyspref); |
197 |
$lang ||= C4::Languages::getlanguage(); |
200 |
$lang ||= C4::Languages::getlanguage(); |
198 |
|
201 |
|
199 |
if ( $xslfilename =~ /^\s*"?default"?\s*$/i ) { |
202 |
if ($xslsyspref eq "XSLTCustomExport") { |
|
|
203 |
my $dir; |
204 |
if ($opac) { |
205 |
$dir = C4::Context->config('opachtdocs') . |
206 |
'/' . C4::Context->preference("opacthemes") . |
207 |
'/' . C4::Languages::getlanguage() . |
208 |
'/xslt/biblioexport'; |
209 |
} else { |
210 |
$dir = C4::Context->config('intrahtdocs') . |
211 |
'/' . C4::Context->preference("template") . |
212 |
'/' . C4::Languages::getlanguage() . |
213 |
'/xslt/biblioexport'; |
214 |
} |
215 |
$xslfilename = $dir . "/" . $xslfilename; |
216 |
} elsif( $xslfilename =~ /^\s*"?default"?\s*$/i ) { |
200 |
my $htdocs; |
217 |
my $htdocs; |
201 |
my $theme; |
218 |
my $theme; |
202 |
my $xslfile; |
219 |
my $xslfile; |
Lines 377-382
sub engine {
Link Here
|
377 |
return $engine; |
394 |
return $engine; |
378 |
} |
395 |
} |
379 |
|
396 |
|
|
|
397 |
=head2 CustomXSLTExportList |
398 |
|
399 |
Returns list of file for custom xslt conversion |
400 |
|
401 |
=cut |
402 |
|
403 |
sub CustomXSLTExportList { |
404 |
my $opac = shift; # opac (1) vs intranet (0) |
405 |
my @tabFiles; |
406 |
|
407 |
my $dir = C4::Context->config( $opac ? 'opachtdocs' : 'intrahtdocs') . |
408 |
'/' . C4::Context->preference( $opac ? "opacthemes" : "template") . |
409 |
'/' . C4::Languages::getlanguage() . |
410 |
'/xslt/biblioexport'; |
411 |
my @files = <$dir/*.xsl>; |
412 |
foreach my $file (@files) { |
413 |
if ( -f "$file" ) { |
414 |
(my $text = $file) =~ s/.*\///g; |
415 |
|
416 |
## Get title of the option |
417 |
my $dom = XML::LibXML->load_xml( location => $file ); |
418 |
my $node = $dom->documentElement(); |
419 |
my $title = $node->{"title"}; |
420 |
($title = $text) =~ s/\.xsl// unless defined $title; |
421 |
|
422 |
# Get output format |
423 |
# There should only be one xsl:output node, so taking the first one only is OK |
424 |
$node = @{$node->findnodes("xsl:output")}[0]; |
425 |
my $outputformat = $node->{"method"} if $node; |
426 |
$outputformat = "txt" if ($outputformat eq "" || $outputformat eq "text"); |
427 |
|
428 |
my %row = ( |
429 |
value => $text, |
430 |
filename => $title, |
431 |
format => $outputformat, |
432 |
); |
433 |
|
434 |
push @tabFiles, \%row; |
435 |
} |
436 |
} |
437 |
return \@tabFiles; |
438 |
} |
439 |
|
440 |
|
380 |
1; |
441 |
1; |
381 |
|
442 |
|
382 |
__END__ |
443 |
__END__ |