|
Lines 39-44
Koha::XSLT::Base - Facilitate use of XSLT transformations
Link Here
|
| 39 |
via the err attribute. |
39 |
via the err attribute. |
| 40 |
Reloading XSLT files can be done with the refresh method. |
40 |
Reloading XSLT files can be done with the refresh method. |
| 41 |
|
41 |
|
|
|
42 |
The module refers to a (temporary) helper module Koha::XSLT::HTTPS that |
| 43 |
resolves issues in libxml2/libxslt for https references. |
| 44 |
|
| 42 |
=head1 METHODS |
45 |
=head1 METHODS |
| 43 |
|
46 |
|
| 44 |
=head2 new |
47 |
=head2 new |
|
Lines 117-122
Koha::XSLT::Base - Facilitate use of XSLT transformations
Link Here
|
| 117 |
use Modern::Perl; |
120 |
use Modern::Perl; |
| 118 |
use XML::LibXML; |
121 |
use XML::LibXML; |
| 119 |
use XML::LibXSLT; |
122 |
use XML::LibXSLT; |
|
|
123 |
use Koha::XSLT::HTTPS; |
| 120 |
use Koha::XSLT::Security; |
124 |
use Koha::XSLT::Security; |
| 121 |
|
125 |
|
| 122 |
use base qw(Class::Accessor); |
126 |
use base qw(Class::Accessor); |
|
Lines 349-356
sub _load {
Link Here
|
| 349 |
} |
353 |
} |
| 350 |
|
354 |
|
| 351 |
sub _load_xml_args { |
355 |
sub _load_xml_args { |
| 352 |
my $self = shift; |
356 |
my ( $self, $filename, $code ) = @_; |
| 353 |
return $_[1]? { 'string' => $_[1]//'' }: { 'location' => $_[0]//'' }; |
357 |
return Koha::XSLT::HTTPS->load($filename) if $filename && $filename =~ /^https/i; |
|
|
358 |
# Workaround for current problems with https location in libxml2/libxslt |
| 359 |
# Returns response like { string => SOME_CODE } |
| 360 |
return $code ? { string => $code } : { location => $filename }; |
| 354 |
} |
361 |
} |
| 355 |
|
362 |
|
| 356 |
# _set_error |
363 |
# _set_error |
| 357 |
- |
|
|