View | Details | Raw Unified | Return to bug 12758
Collapse All | Expand All

(-)a/Koha/XSLT/Base.pm (-3 / +9 lines)
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
- 

Return to bug 12758