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 |
- |
|
|