From fc10c3fb896305884387335edbf542f92a0f621a Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 15 Nov 2021 09:52:15 -0300 Subject: [PATCH] Bug 29484: Make ListSets return noSetHierarchy when no sets defined This simple patch makes our OAI-PMH server return the appropriate error code when no sets are defined. To test: 1. Apply the regression tests 2. Run: $ kshell k$ t/db_dependent/OAI/Server.t => FAIL: Tests fail. Boo! 3. Apply this patch 4. Repeat 2 => SUCCESS: Tests pass! YAY! 5. Sign off :-D Bonus: you can check with the tool mentioned on the bug report, that the error is gone. No sets need to be defined. Signed-off-by: Tomas Cohen Arazi --- Koha/OAI/Server/ListSets.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/Koha/OAI/Server/ListSets.pm b/Koha/OAI/Server/ListSets.pm index 6fc245daeb..281fd23c57 100644 --- a/Koha/OAI/Server/ListSets.pm +++ b/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++; -- 2.32.0