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

(-)a/Koha/OAI/Server/Identify.pm (+1 lines)
Lines 33-38 sub new { Link Here
33
    my $baseURL = $repository->self_url();
33
    my $baseURL = $repository->self_url();
34
    $baseURL = $+{base_url}
34
    $baseURL = $+{base_url}
35
        if $baseURL =~ m/(?<base_url>.*)\?.*/;
35
        if $baseURL =~ m/(?<base_url>.*)\?.*/;
36
    $baseURL =~ s{/$}{};    # Strip trailing slash for CGI.pm 4.68+ compatibility
36
37
37
    my $self = $class->SUPER::new(
38
    my $self = $class->SUPER::new(
38
        baseURL           => $baseURL,
39
        baseURL           => $baseURL,
(-)a/Koha/OAI/Server/Repository.pm (-1 / +5 lines)
Lines 157-162 sub new { Link Here
157
        $response = $class->new( $self, %attr );
157
        $response = $class->new( $self, %attr );
158
    }
158
    }
159
159
160
    # Strip trailing slash from requestURL for CGI.pm 4.68+ compatibility
161
    my $url = $response->requestURL();
162
    $url =~ s{/$}{};
163
    $response->requestURL($url);
164
160
    $response->set_handler( XML::SAX::Writer->new( Output => *STDOUT ) );
165
    $response->set_handler( XML::SAX::Writer->new( Output => *STDOUT ) );
161
    $response->xslt("/opac-tmpl/xslt/OAI.xslt");
166
    $response->xslt("/opac-tmpl/xslt/OAI.xslt");
162
    $response->generate;
167
    $response->generate;
163
- 

Return to bug 6473