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

(-)a/Koha/OAI/Server/Identify.pm (-2 / +4 lines)
Lines 28-34 use base ("HTTP::OAI::Identify"); Link Here
28
sub new {
28
sub new {
29
    my ($class, $repository) = @_;
29
    my ($class, $repository) = @_;
30
30
31
    my ($baseURL) = $repository->self_url() =~ /(.*)\?.*/;
31
    my $baseURL = $repository->self_url();
32
    $baseURL = $+{base_url}
33
        if $baseURL =~ m/(?<base_url>.*)\?.*/;
34
32
    my $self = $class->SUPER::new(
35
    my $self = $class->SUPER::new(
33
        baseURL             => $baseURL,
36
        baseURL             => $baseURL,
34
        repositoryName      => C4::Context->preference("LibraryName"),
37
        repositoryName      => C4::Context->preference("LibraryName"),
35
- 

Return to bug 21105