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

(-)a/C4/Installer/PerlDependencies.pm (-2 / +2 lines)
Lines 738-745 our $PERL_DEPS = { Link Here
738
        'min_ver'  => '0.91',
738
        'min_ver'  => '0.91',
739
    },
739
    },
740
    'LWP::Protocol::https' => {
740
    'LWP::Protocol::https' => {
741
        'usage'    => 'OverDrive integration',
741
        'usage'    => 'Core',
742
        'required' => '0',
742
        'required' => '1',
743
        'min_ver'  => '5.836',
743
        'min_ver'  => '5.836',
744
    },
744
    },
745
};
745
};
(-)a/Koha/XSLT_Handler.pm (-2 / +12 lines)
Lines 311-317 sub _load { Link Here
311
311
312
sub _load_xml_args {
312
sub _load_xml_args {
313
    my $self = shift;
313
    my $self = shift;
314
    return $_[1]? { 'string' => $_[1]//'' }: { 'location' => $_[0]//'' };
314
    my $https_code = $self->_https_workaround(@_);
315
    return $https_code || $_[1]?
316
        { 'string' => $https_code // $_[1] }: { 'location' => $_[0]//'' };
317
}
318
319
sub _https_workaround { # Routine added for bug 12758 (part 1)
320
    my ( $self, $file, $code ) = @_;
321
    return if $file!~/^https/i;
322
    require LWP::UserAgent;
323
    my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 } );
324
    my $resp = $ua->get( $file );
325
    return $resp->decoded_content if $resp->is_success; #undef otherwise
315
}
326
}
316
327
317
# _set_error
328
# _set_error
318
- 

Return to bug 12758