@@ -, +, @@ defined $ kshell k$ t/db_dependent/OAI/Server.t --- Koha/OAI/Server/ListSets.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) --- a/Koha/OAI/Server/ListSets.pm +++ a/Koha/OAI/Server/ListSets.pm @@ -34,6 +34,17 @@ sub new { my $token = Koha::OAI::Server::ResumptionToken->new(%args); my $sets = GetOAISets; my $pos = 0; + + return HTTP::OAI::Response->new( + requestURL => $repository->self_url(), + errors => [ + HTTP::OAI::Error->new( + code => 'noSetHierarchy', + message => 'There are no OAI sets defined', + ) + ], + ) unless scalar @{$sets} > 0; + foreach my $set (@$sets) { if ($pos < $token->{cursor}) { $pos++; --