1 # Copyright Tamil s.a.r.l. 2008-2015
2 # Copyright Biblibre 2008-2015
4 # This file is part of Koha.
6 # Koha is free software; you can redistribute it and/or modify it
7 # under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 3 of the License, or
9 # (at your option) any later version.
11 # Koha is distributed in the hope that it will be useful, but
12 # WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with Koha; if not, see <http://www.gnu.org/licenses>.
19 package Koha
::OAI
::Server
::ListSets
;
23 use Koha
::OAI
::Server
::ResumptionToken
;
24 use Koha
::OAI
::Server
::Description
;
27 use base
("HTTP::OAI::ListSets");
31 my ( $class, $repository, %args ) = @_;
33 my $self = HTTP
::OAI
::ListSets
->new(%args);
34 my $token = Koha
::OAI
::Server
::ResumptionToken
->new(%args);
35 my $sets = GetOAISets
;
37 foreach my $set (@
$sets) {
38 if ($pos < $token->{offset
}) {
42 my @descriptions = map {
43 Koha
::OAI
::Server
::Description
->new( setDescription
=> $_ );
44 } @
{$set->{'descriptions'}};
47 setSpec
=> $set->{'spec'},
48 setName
=> $set->{'name'},
49 setDescription
=> \
@descriptions,
53 last if ($pos + 1 - $token->{offset
}) > $repository->{koha_max_count
};
56 $self->resumptionToken(
57 Koha
::OAI
::Server
::ResumptionToken
->new(
58 metadataPrefix
=> $token->{metadata_prefix
},
61 ) if ( $pos > $token->{offset
} );