From 7a9298f08e8aaed340de971d0a5708ae8e91cced Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@theke.io>
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 <tomascohen@theke.io>

Signed-off-by: David Nind <david@davidnind.com>

JD amended patch
-    ) unless scalar @{$sets} > 0;
+    ) unless @$sets;

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
(cherry picked from commit abe9abf47083d26300a4e09100ba362e6facf6dc)

Signed-off-by: Andrew Fuerste-Henry <andrew@bywatersolutions.com>
---
 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 2fb8da78ea..02785b5912 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 @$sets;
+
     foreach my $set (@$sets) {
         if ($pos < $token->{cursor}) {
             $pos++;
-- 
2.39.5