Lines 34-39
sub new {
Link Here
|
34 |
my $token = Koha::OAI::Server::ResumptionToken->new(%args); |
34 |
my $token = Koha::OAI::Server::ResumptionToken->new(%args); |
35 |
my $sets = GetOAISets; |
35 |
my $sets = GetOAISets; |
36 |
my $pos = 0; |
36 |
my $pos = 0; |
|
|
37 |
|
38 |
return HTTP::OAI::Response->new( |
39 |
requestURL => $repository->self_url(), |
40 |
errors => [ |
41 |
HTTP::OAI::Error->new( |
42 |
code => 'noSetHierarchy', |
43 |
message => 'There are no OAI sets defined', |
44 |
) |
45 |
], |
46 |
) unless scalar @{$sets} > 0; |
47 |
|
37 |
foreach my $set (@$sets) { |
48 |
foreach my $set (@$sets) { |
38 |
if ($pos < $token->{cursor}) { |
49 |
if ($pos < $token->{cursor}) { |
39 |
$pos++; |
50 |
$pos++; |
40 |
- |
|
|