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

(-)a/Koha/OAI/Set.pm (+46 lines)
Line 0 Link Here
1
package Koha::OAI::Set;
2
3
# Copyright 2025 Aleisha Amohia <aleisha@catalyst.net.nz>
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it
8
# under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 3 of the License, or
10
# (at your option) any later version.
11
#
12
# Koha is distributed in the hope that it will be useful, but
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
16
#
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <https://www.gnu.org/licenses>.
19
20
use Modern::Perl;
21
22
use Koha::Database;
23
24
use base qw(Koha::Object);
25
26
=head1 NAME
27
28
Koha::OAI::Set - Koha OaiSet Object class
29
30
=head1 API
31
32
=head2 Class methods
33
34
=cut
35
36
=head2 Internal methods
37
38
=head3 _type
39
40
=cut
41
42
sub _type {
43
    return 'OaiSet';
44
}
45
46
1;
(-)a/Koha/OAI/Set/Biblio.pm (+46 lines)
Line 0 Link Here
1
package Koha::OAI::Set::Biblio;
2
3
# Copyright 2025 Aleisha Amohia <aleisha@catalyst.net.nz>
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it
8
# under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 3 of the License, or
10
# (at your option) any later version.
11
#
12
# Koha is distributed in the hope that it will be useful, but
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
16
#
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <https://www.gnu.org/licenses>.
19
20
use Modern::Perl;
21
22
use Koha::Database;
23
24
use base qw(Koha::Object);
25
26
=head1 NAME
27
28
Koha::OAI::Set::Biblio - Koha OaiSetsBiblio Object class
29
30
=head1 API
31
32
=head2 Class methods
33
34
=cut
35
36
=head2 Internal methods
37
38
=head3 _type
39
40
=cut
41
42
sub _type {
43
    return 'OaiSetsBiblio';
44
}
45
46
1;
(-)a/Koha/OAI/Set/Biblios.pm (+55 lines)
Line 0 Link Here
1
package Koha::OAI::Set::Biblios;
2
3
# Copyright 2025 Aleisha Amohia <aleisha@catalyst.net.nz>
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it
8
# under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 3 of the License, or
10
# (at your option) any later version.
11
#
12
# Koha is distributed in the hope that it will be useful, but
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
16
#
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <https://www.gnu.org/licenses>.
19
20
use Modern::Perl;
21
22
use Koha::Database;
23
use Koha::OAI::Set::Biblio;
24
25
use base qw(Koha::Objects);
26
27
=head1 NAME
28
29
Koha::OAI::Set::Biblios - Koha OaiSetsBiblio Object set class
30
31
=head1 API
32
33
=head2 Class methods
34
35
=cut
36
37
=head2 Internal methods
38
39
=head3 _type
40
41
=cut
42
43
sub _type {
44
    return 'OaiSetsBiblio';
45
}
46
47
=head3 object_class
48
49
=cut
50
51
sub object_class {
52
    return 'Koha::OAI::Set::Biblio';
53
}
54
55
1;
(-)a/Koha/OAI/Sets.pm (-1 / +55 lines)
Line 0 Link Here
0
- 
1
package Koha::OAI::Sets;
2
3
# Copyright 2025 Aleisha Amohia <aleisha@catalyst.net.nz>
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it
8
# under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 3 of the License, or
10
# (at your option) any later version.
11
#
12
# Koha is distributed in the hope that it will be useful, but
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
16
#
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <https://www.gnu.org/licenses>.
19
20
use Modern::Perl;
21
22
use Koha::Database;
23
use Koha::OAI::Set;
24
25
use base qw(Koha::Objects);
26
27
=head1 NAME
28
29
Koha::OAI::Sets - Koha OaiSets Object set class
30
31
=head1 API
32
33
=head2 Class methods
34
35
=cut
36
37
=head2 Internal methods
38
39
=head3 _type
40
41
=cut
42
43
sub _type {
44
    return 'OaiSet';
45
}
46
47
=head3 object_class
48
49
=cut
50
51
sub object_class {
52
    return 'Koha::OAI::Set::Biblio';
53
}
54
55
1;

Return to bug 41462