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

(-)a/C4/ClassSortRoutine.pm (-5 / +3 lines)
Lines 1-7 Link Here
1
package C4::ClassSortRoutine;
1
package C4::ClassSortRoutine;
2
2
3
# Copyright (C) 2007 LibLime
3
# Copyright 2022 Koha Development Team
4
# 
4
#
5
# This file is part of Koha.
5
# This file is part of Koha.
6
#
6
#
7
# Koha is free software; you can redistribute it and/or modify it
7
# Koha is free software; you can redistribute it and/or modify it
Lines 17-27 package C4::ClassSortRoutine; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use Class::Factory::Util;
22
use Class::Factory::Util;
24
use C4::Context;
25
23
26
our (@ISA, @EXPORT_OK);
24
our (@ISA, @EXPORT_OK);
27
BEGIN {
25
BEGIN {
(-)a/C4/ClassSource.pm (-4 / +2 lines)
Lines 1-7 Link Here
1
package C4::ClassSource;
1
package C4::ClassSource;
2
2
3
# Copyright (C) 2007 LibLime
3
# Copyright 2022 Koha Development Team
4
# 
5
# This file is part of Koha.
4
# This file is part of Koha.
6
#
5
#
7
# Koha is free software; you can redistribute it and/or modify it
6
# Koha is free software; you can redistribute it and/or modify it
Lines 17-24 package C4::ClassSource; Link Here
17
# You should have received a copy of the GNU General Public License
16
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
18
20
use strict;
19
use Modern::Perl;
21
use warnings;
22
20
23
use C4::Context;
21
use C4::Context;
24
use C4::ClassSortRoutine qw( GetClassSortKey );
22
use C4::ClassSortRoutine qw( GetClassSortKey );
(-)a/C4/ClassSplitRoutine.pm (-10 / +10 lines)
Lines 1-6 Link Here
1
package C4::ClassSplitRoutine;
1
package C4::ClassSplitRoutine;
2
2
3
# Copyright 2018 Koha Development Team
3
# Copyright 2022 Koha Development Team
4
#
4
#
5
# This file is part of Koha.
5
# This file is part of Koha.
6
#
6
#
Lines 19-28 package C4::ClassSplitRoutine; Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
require Exporter;
22
use Class::Factory::Util;
23
24
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
25
23
24
our (@ISA, @EXPORT_OK);
25
BEGIN {
26
    require Exporter;
27
    @ISA    = qw(Exporter);
28
    @EXPORT_OK = qw(
29
       GetSplitRoutineNames
30
    );
31
}
26
32
27
=head1 NAME
33
=head1 NAME
28
34
Lines 36-46 use C4::ClassSplitRoutine; Link Here
36
42
37
=cut
43
=cut
38
44
39
@ISA    = qw(Exporter);
40
@EXPORT = qw(
41
   GetSplitRoutineNames
42
);
43
44
=head2 GetSplitRoutineNames
45
=head2 GetSplitRoutineNames
45
46
46
  my @routines = GetSplitRoutineNames();
47
  my @routines = GetSplitRoutineNames();
47
- 

Return to bug 29951