View | Details | Raw Unified | Return to bug 29484
Collapse All | Expand All

(-)a/Koha/OAI/Server/ListSets.pm (-1 / +11 lines)
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
- 

Return to bug 29484