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