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

(-)a/C4/Accounts.pm (-19 / +18 lines)
Lines 29-54 use Koha::Account; Link Here
29
29
30
use Data::Dumper qw(Dumper);
30
use Data::Dumper qw(Dumper);
31
31
32
use vars qw(@ISA @EXPORT);
32
our (@ISA, @EXPORT_OK);
33
34
BEGIN {
33
BEGIN {
35
	require Exporter;
34
    require Exporter;
36
	@ISA    = qw(Exporter);
35
    @ISA = qw( Exporter );
37
	@EXPORT = qw(
36
    @EXPORT_OK = qw(
38
		&makepayment
37
      &makepayment
39
		&manualinvoice
38
      &manualinvoice
40
		&getnextacctno
39
      &getnextacctno
41
		&getcharges
40
      &getcharges
42
		&ModNote
41
      &ModNote
43
		&getcredits
42
      &getcredits
44
		&getrefunds
43
      &getrefunds
45
		&chargelostitem
44
      &chargelostitem
46
		&ReversePayment
45
      &ReversePayment
47
        &makepartialpayment
46
      &makepartialpayment
48
        &recordpayment_selectaccts
47
      &recordpayment_selectaccts
49
        &WriteOffFee
48
      &WriteOffFee
50
        &purge_zero_balance_fees
49
      &purge_zero_balance_fees
51
	);
50
    );
52
}
51
}
53
52
54
=head1 NAME
53
=head1 NAME
(-)a/C4/Acquisition.pm (-7 / +4 lines)
Lines 40-50 use MARC::Record; Link Here
40
40
41
use Time::localtime;
41
use Time::localtime;
42
42
43
use vars qw(@ISA @EXPORT);
43
our (@ISA, @EXPORT_OK);
44
45
BEGIN {
44
BEGIN {
45
46
    require Exporter;
46
    require Exporter;
47
    @ISA    = qw(Exporter);
47
    @ISA = qw( Exporter );
48
48
    @EXPORT = qw(
49
    @EXPORT = qw(
49
        &GetBasket &NewBasket &CloseBasket &ReopenBasket &DelBasket &ModBasket
50
        &GetBasket &NewBasket &CloseBasket &ReopenBasket &DelBasket &ModBasket
50
        &GetBasketAsCSV &GetBasketGroupAsCSV
51
        &GetBasketAsCSV &GetBasketGroupAsCSV
Lines 92-101 BEGIN { Link Here
92
    );
93
    );
93
}
94
}
94
95
95
96
97
98
99
sub GetOrderFromItemnumber {
96
sub GetOrderFromItemnumber {
100
    my ($itemnumber) = @_;
97
    my ($itemnumber) = @_;
101
    my $dbh          = C4::Context->dbh;
98
    my $dbh          = C4::Context->dbh;
(-)a/C4/AuthoritiesMarc.pm (-28 / +27 lines)
Lines 33-69 use Koha::Authority; Link Here
33
use Koha::SearchEngine;
33
use Koha::SearchEngine;
34
use Koha::SearchEngine::Search;
34
use Koha::SearchEngine::Search;
35
35
36
use vars qw(@ISA @EXPORT);
36
our (@ISA, @EXPORT_OK);
37
38
BEGIN {
37
BEGIN {
39
38
40
	require Exporter;
39
    require Exporter;
41
	@ISA = qw(Exporter);
40
    @ISA = qw( Exporter );
42
	@EXPORT = qw(
41
    @EXPORT_OK = qw(
43
	    &GetTagsLabels
42
      &GetTagsLabels
44
    	&GetAuthMARCFromKohaField 
43
      &GetAuthMARCFromKohaField
45
44
46
    	&AddAuthority
45
      &AddAuthority
47
    	&ModAuthority
46
      &ModAuthority
48
    	&DelAuthority
47
      &DelAuthority
49
    	&GetAuthority
48
      &GetAuthority
50
    	&GetAuthorityXML
49
      &GetAuthorityXML
51
52
    	&CountUsage
53
    	&CountUsageChildren
54
    	&SearchAuthorities
55
    
56
        &BuildSummary
57
        &BuildAuthHierarchies
58
        &BuildAuthHierarchy
59
        &GenerateHierarchy
60
    
61
    	&merge
62
    	&FindDuplicateAuthority
63
50
64
        &GuessAuthTypeCode
51
      &CountUsage
65
        &GuessAuthId
52
      &CountUsageChildren
66
 	);
53
      &SearchAuthorities
54
55
      &BuildSummary
56
      &BuildAuthHierarchies
57
      &BuildAuthHierarchy
58
      &GenerateHierarchy
59
60
      &merge
61
      &FindDuplicateAuthority
62
63
      &GuessAuthTypeCode
64
      &GuessAuthId
65
    );
67
}
66
}
68
67
69
68
(-)a/C4/Budgets.pm (-5 / +5 lines)
Lines 22-34 use strict; Link Here
22
use C4::Context;
22
use C4::Context;
23
use Koha::Database;
23
use Koha::Database;
24
use C4::Debug;
24
use C4::Debug;
25
use vars qw(@ISA @EXPORT);
26
25
26
our (@ISA, @EXPORT_OK);
27
BEGIN {
27
BEGIN {
28
	require Exporter;
29
	@ISA    = qw(Exporter);
30
	@EXPORT = qw(
31
28
29
    require Exporter;
30
    @ISA = qw( Exporter );
31
    @EXPORT_OK = qw(
32
        &GetBudget
32
        &GetBudget
33
        &GetBudgetByOrderNumber
33
        &GetBudgetByOrderNumber
34
        &GetBudgetByCode
34
        &GetBudgetByCode
Lines 37-43 BEGIN { Link Here
37
        &GetBudgetsReport
37
        &GetBudgetsReport
38
        &GetBudgetReport
38
        &GetBudgetReport
39
        &GetBudgetHierarchy
39
        &GetBudgetHierarchy
40
	    &AddBudget
40
        &AddBudget
41
        &ModBudget
41
        &ModBudget
42
        &DelBudget
42
        &DelBudget
43
        &GetBudgetSpent
43
        &GetBudgetSpent
(-)a/C4/Contract.pm (-5 / +5 lines)
Lines 23-40 use strict; Link Here
23
use C4::Context;
23
use C4::Context;
24
use Koha::Database;
24
use Koha::Database;
25
25
26
use vars qw(@ISA @EXPORT);
26
our (@ISA, @EXPORT_OK);
27
28
BEGIN {
27
BEGIN {
28
29
    require Exporter;
29
    require Exporter;
30
	@ISA    = qw(Exporter);
30
    @ISA = qw( Exporter );
31
	@EXPORT = qw(
31
    @EXPORT_OK = qw(
32
        &GetContracts
32
        &GetContracts
33
        &GetContract
33
        &GetContract
34
        &AddContract
34
        &AddContract
35
        &ModContract
35
        &ModContract
36
        &DelContract
36
        &DelContract
37
	);
37
    );
38
}
38
}
39
39
40
=head1 NAME
40
=head1 NAME
(-)a/C4/Creators.pm (-3 / +6 lines)
Lines 17-26 package C4::Creators; 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
our (@ISA, @EXPORT_OK);
20
BEGIN {
21
BEGIN {
21
    use vars qw(@EXPORT @ISA);
22
22
    @ISA = qw(Exporter);
23
    require Exporter;
23
    our @EXPORT = qw(get_all_templates
24
    @ISA = qw( Exporter );
25
    @EXPORT_OK = qw(
26
                     get_all_templates
24
                     get_all_layouts
27
                     get_all_layouts
25
                     get_all_profiles
28
                     get_all_profiles
26
                     get_all_image_names
29
                     get_all_image_names
(-)a/C4/Creators/Lib.pm (-2 / +6 lines)
Lines 25-33 use autouse 'Data::Dumper' => qw(Dumper); Link Here
25
use C4::Context;
25
use C4::Context;
26
use C4::Debug;
26
use C4::Debug;
27
27
28
our (@ISA, @EXPORT_OK);
28
BEGIN {
29
BEGIN {
29
    use base qw(Exporter);
30
30
    our @EXPORT = qw(get_all_templates
31
    require Exporter;
32
    @ISA = qw( Exporter );
33
    @EXPORT_OK = qw(
34
                     get_all_templates
31
                     get_all_layouts
35
                     get_all_layouts
32
                     get_all_profiles
36
                     get_all_profiles
33
                     get_all_image_names
37
                     get_all_image_names
(-)a/C4/External/Amazon.pm (-4 / +4 lines)
Lines 21-32 package C4::External::Amazon; Link Here
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
23
24
use vars qw(@ISA @EXPORT);
24
our (@ISA, @EXPORT_OK);
25
26
BEGIN {
25
BEGIN {
26
27
    require Exporter;
27
    require Exporter;
28
    @ISA = qw(Exporter);
28
    @ISA = qw( Exporter );
29
    @EXPORT = qw(
29
    @EXPORT_OK = qw(
30
        get_amazon_tld
30
        get_amazon_tld
31
    );
31
    );
32
}
32
}
(-)a/C4/External/OverDrive.pm (-2 / +4 lines)
Lines 28-37 use HTTP::Request::Common; Link Here
28
use LWP::Authen::Basic;
28
use LWP::Authen::Basic;
29
use LWP::UserAgent;
29
use LWP::UserAgent;
30
30
31
our (@ISA, @EXPORT_OK);
31
BEGIN {
32
BEGIN {
33
32
    require Exporter;
34
    require Exporter;
33
    our @ISA = qw( Exporter ) ;
35
    @ISA = qw( Exporter );
34
    our @EXPORT = qw(
36
    @EXPORT_OK = qw(
35
        IsOverDriveEnabled
37
        IsOverDriveEnabled
36
        GetOverDriveToken
38
        GetOverDriveToken
37
    );
39
    );
(-)a/C4/External/Syndetics.pm (-4 / +4 lines)
Lines 26-37 use HTTP::Request::Common; Link Here
26
use strict;
26
use strict;
27
use warnings;
27
use warnings;
28
28
29
use vars qw(@ISA @EXPORT);
29
our (@ISA, @EXPORT_OK);
30
31
BEGIN {
30
BEGIN {
31
32
    require Exporter;
32
    require Exporter;
33
    @ISA = qw(Exporter);
33
    @ISA = qw( Exporter );
34
    @EXPORT = qw(
34
    @EXPORT_OK = qw(
35
        &get_syndetics_index
35
        &get_syndetics_index
36
        &get_syndetics_summary
36
        &get_syndetics_summary
37
        &get_syndetics_toc
37
        &get_syndetics_toc
(-)a/C4/Images.pm (-3 / +4 lines)
Lines 25-37 use 5.010; Link Here
25
use C4::Context;
25
use C4::Context;
26
use GD;
26
use GD;
27
27
28
use vars qw($debug $noimage @ISA @EXPORT);
28
use vars qw($debug $noimage);
29
29
30
our (@ISA, @EXPORT_OK);
30
BEGIN {
31
BEGIN {
31
32
32
    require Exporter;
33
    require Exporter;
33
    @ISA    = qw(Exporter);
34
    @ISA = qw( Exporter );
34
    @EXPORT = qw(
35
    @EXPORT_OK = qw(
35
      &PutImage
36
      &PutImage
36
      &RetrieveImage
37
      &RetrieveImage
37
      &ListImagesForBiblio
38
      &ListImagesForBiblio
(-)a/C4/Log.pm (-4 / +8 lines)
Lines 30-41 use C4::Context; Link Here
30
use Koha::DateUtils;
30
use Koha::DateUtils;
31
use Koha::Logger;
31
use Koha::Logger;
32
32
33
use vars qw(@ISA @EXPORT);
33
34
our ( @ISA, @EXPORT_OK );
34
35
35
BEGIN {
36
BEGIN {
36
        require Exporter;
37
37
        @ISA = qw(Exporter);
38
    require Exporter;
38
        @EXPORT = qw(&logaction &cronlogaction &GetLogStatus &displaylog &GetLogs);
39
    @ISA       = qw( Exporter );
40
    @EXPORT_OK = qw(
41
      &logaction &cronlogaction &GetLogStatus &displaylog &GetLogs
42
    );
39
}
43
}
40
44
41
=head1 NAME
45
=head1 NAME
(-)a/C4/MarcModificationTemplates.pm (-4 / +5 lines)
Lines 24-36 use DateTime; Link Here
24
use C4::Context;
24
use C4::Context;
25
use Koha::SimpleMARC;
25
use Koha::SimpleMARC;
26
26
27
use vars qw(@ISA @EXPORT);
28
29
use constant DEBUG => 0;
27
use constant DEBUG => 0;
28
our ( @ISA, @EXPORT_OK );
30
29
31
BEGIN {
30
BEGIN {
32
    @ISA = qw(Exporter);
31
33
    @EXPORT = qw(
32
    require Exporter;
33
    @ISA       = qw( Exporter );
34
    @EXPORT_OK = qw(
34
        &GetModificationTemplates
35
        &GetModificationTemplates
35
        &AddModificationTemplate
36
        &AddModificationTemplate
36
        &DelModificationTemplate
37
        &DelModificationTemplate
(-)a/C4/NewsChannels.pm (-4 / +6 lines)
Lines 22-32 use Modern::Perl; Link Here
22
use C4::Context;
22
use C4::Context;
23
use Koha::DateUtils;
23
use Koha::DateUtils;
24
24
25
use vars qw(@ISA @EXPORT);
25
our ( @ISA, @EXPORT_OK );
26
26
27
BEGIN { 
27
BEGIN {
28
    @ISA = qw(Exporter);
28
29
    @EXPORT = qw(
29
    require Exporter;
30
    @ISA       = qw( Exporter );
31
    @EXPORT_OK = qw(
30
        &GetNewsToDisplay
32
        &GetNewsToDisplay
31
        &add_opac_new &upd_opac_new &del_opac_new &get_opac_new &get_opac_news
33
        &add_opac_new &upd_opac_new &del_opac_new &get_opac_new &get_opac_news
32
    );
34
    );
(-)a/C4/OAI/Sets.pm (-3 / +4 lines)
Lines 32-43 OAI Set description can be found L<here|http://www.openarchives.org/OAI/openarch Link Here
32
use Modern::Perl;
32
use Modern::Perl;
33
use C4::Context;
33
use C4::Context;
34
34
35
use vars qw(@ISA @EXPORT);
35
our ( @ISA, @EXPORT_OK );
36
36
37
BEGIN {
37
BEGIN {
38
38
    require Exporter;
39
    require Exporter;
39
    @ISA = qw(Exporter);
40
    @ISA       = qw( Exporter );
40
    @EXPORT = qw(
41
    @EXPORT_OK = qw(
41
        &GetOAISets &GetOAISet &GetOAISetBySpec &ModOAISet &DelOAISet &AddOAISet
42
        &GetOAISets &GetOAISet &GetOAISetBySpec &ModOAISet &DelOAISet &AddOAISet
42
        &GetOAISetsMappings &GetOAISetMappings &ModOAISetMappings
43
        &GetOAISetsMappings &GetOAISetMappings &ModOAISetMappings
43
        &GetOAISetsBiblio &ModOAISetsBiblios &AddOAISetsBiblios
44
        &GetOAISetsBiblio &ModOAISetsBiblios &AddOAISetsBiblios
(-)a/C4/Patroncards.pm (-3 / +7 lines)
Lines 1-9 Link Here
1
package C4::Patroncards;
1
package C4::Patroncards;
2
2
3
our ( @ISA, @EXPORT_OK );
4
3
BEGIN {
5
BEGIN {
4
    use vars qw(@EXPORT @ISA);
6
5
    @ISA = qw(Exporter);
7
    require Exporter;
6
    our @EXPORT = qw(unpack_UTF8
8
    @ISA       = qw( Exporter );
9
    @EXPORT_OK = qw(
10
                     unpack_UTF8
7
                     text_alignment
11
                     text_alignment
8
                     leading
12
                     leading
9
                     box
13
                     box
(-)a/C4/Patroncards/Lib.pm (-2 / +7 lines)
Lines 25-33 use autouse 'Data::Dumper' => qw(Dumper); Link Here
25
use C4::Context;
25
use C4::Context;
26
use C4::Debug;
26
use C4::Debug;
27
27
28
our ( @ISA, @EXPORT_OK );
29
28
BEGIN {
30
BEGIN {
29
    use base qw(Exporter);
31
30
    our @EXPORT = qw(unpack_UTF8
32
    require Exporter;
33
    @ISA       = qw( Exporter );
34
    @EXPORT_OK = qw(
35
                     unpack_UTF8
31
                     text_alignment
36
                     text_alignment
32
                     leading
37
                     leading
33
                     box
38
                     box
(-)a/C4/Print.pm (-4 / +5 lines)
Lines 21-32 use strict; Link Here
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use C4::Context;
22
use C4::Context;
23
23
24
use vars qw(@ISA @EXPORT);
24
our ( @ISA, @EXPORT_OK );
25
25
26
BEGIN {
26
BEGIN {
27
	require Exporter;
27
28
	@ISA    = qw(Exporter);
28
    require Exporter;
29
    @EXPORT = qw(&NetworkPrint);
29
    @ISA       = qw( Exporter );
30
    @EXPORT_OK = qw(&NetworkPrint);
30
}
31
}
31
32
32
=head1 NAME
33
=head1 NAME
(-)a/C4/Record.pm (-6 / +5 lines)
Lines 40-53 use Koha::CsvProfiles; Link Here
40
use Koha::AuthorisedValues;
40
use Koha::AuthorisedValues;
41
use Carp;
41
use Carp;
42
42
43
use vars qw(@ISA @EXPORT);
43
our ( @ISA, @EXPORT_OK );
44
44
45
BEGIN {
45
46
46
@ISA = qw(Exporter);
47
    require Exporter;
47
48
    @ISA       = qw( Exporter );
48
# only export API methods
49
    @EXPORT_OK = qw(
49
50
@EXPORT = qw(
51
  &marc2endnote
50
  &marc2endnote
52
  &marc2marc
51
  &marc2marc
53
  &marc2marcxml
52
  &marc2marcxml
(-)a/C4/Ris.pm (-7 / +6 lines)
Lines 63-81 package C4::Ris; Link Here
63
use Modern::Perl;
63
use Modern::Perl;
64
64
65
use List::MoreUtils qw/uniq/;
65
use List::MoreUtils qw/uniq/;
66
use vars qw(@ISA @EXPORT);
67
66
68
use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField);
67
use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField);
69
use Koha::SimpleMARC qw(read_field);
68
use Koha::SimpleMARC qw(read_field);
70
69
70
our ( @ISA, @EXPORT_OK );
71
71
72
@ISA = qw(Exporter);
72
BEGIN {
73
73
74
# only export API methods
74
    require Exporter;
75
75
    @ISA       = qw( Exporter );
76
@EXPORT = qw(
76
    @EXPORT_OK = qw(&marc2ris);
77
  &marc2ris
77
}
78
);
79
78
80
our $marcprint = 0; # Debug flag;
79
our $marcprint = 0; # Debug flag;
81
80
(-)a/C4/RotatingCollections.pm (-5 / +5 lines)
Lines 33-41 use DBI; Link Here
33
33
34
use Data::Dumper;
34
use Data::Dumper;
35
35
36
use vars qw(@ISA @EXPORT);
37
38
39
=head1 NAME
36
=head1 NAME
40
37
41
C4::RotatingCollections - Functions for managing rotating collections
38
C4::RotatingCollections - Functions for managing rotating collections
Lines 44-53 C4::RotatingCollections - Functions for managing rotating collections Link Here
44
41
45
=cut
42
=cut
46
43
44
our (@ISA, @EXPORT_OK);
47
BEGIN {
45
BEGIN {
46
48
    require Exporter;
47
    require Exporter;
49
    @ISA    = qw( Exporter );
48
    @ISA = qw( Exporter );
50
    @EXPORT = qw(
49
50
    @EXPORT_OK = qw(
51
      CreateCollection
51
      CreateCollection
52
      UpdateCollection
52
      UpdateCollection
53
      DeleteCollection
53
      DeleteCollection
(-)a/C4/Serials/Frequency.pm (-4 / +5 lines)
Lines 22-33 use warnings; Link Here
22
22
23
use C4::Context;
23
use C4::Context;
24
24
25
use vars qw(@ISA @EXPORT);
25
our (@ISA, @EXPORT_OK);
26
27
BEGIN {
26
BEGIN {
27
28
    require Exporter;
28
    require Exporter;
29
    @ISA    = qw(Exporter);
29
    @ISA = qw( Exporter );
30
    @EXPORT = qw(
30
31
    @EXPORT_OK = qw(
31
      &GetSubscriptionFrequencies
32
      &GetSubscriptionFrequencies
32
      &GetSubscriptionFrequency
33
      &GetSubscriptionFrequency
33
      &AddSubscriptionFrequency
34
      &AddSubscriptionFrequency
(-)a/C4/Serials/Numberpattern.pm (-4 / +4 lines)
Lines 22-34 use warnings; Link Here
22
22
23
use C4::Context;
23
use C4::Context;
24
24
25
use vars qw(@ISA @EXPORT);
25
our (@ISA, @EXPORT_OK);
26
27
BEGIN {
26
BEGIN {
28
27
29
    require Exporter;
28
    require Exporter;
30
    @ISA    = qw(Exporter);
29
    @ISA = qw( Exporter );
31
    @EXPORT = qw(
30
31
    @EXPORT_OK = qw(
32
        &GetSubscriptionNumberpatterns
32
        &GetSubscriptionNumberpatterns
33
        &GetSubscriptionNumberpattern
33
        &GetSubscriptionNumberpattern
34
        &GetSubscriptionNumberpatternByName
34
        &GetSubscriptionNumberpatternByName
(-)a/C4/Stats.pm (-7 / +9 lines)
Lines 24-39 require Exporter; Link Here
24
use Carp;
24
use Carp;
25
use C4::Context;
25
use C4::Context;
26
use C4::Debug;
26
use C4::Debug;
27
use vars qw(@ISA @EXPORT);
28
27
29
our $debug;
28
our $debug;
30
29
our (@ISA, @EXPORT_OK);
31
BEGIN {
30
BEGIN {
32
	@ISA    = qw(Exporter);
31
33
	@EXPORT = qw(
32
    require Exporter;
34
		&UpdateStats
33
    @ISA = qw( Exporter );
35
		&TotalPaid
34
36
	);
35
    @EXPORT_OK = qw(
36
        &UpdateStats
37
        &TotalPaid
38
    );
37
}
39
}
38
40
39
41
(-)a/C4/XSLT.pm (-4 / +5 lines)
Lines 35-51 use Koha::Libraries; Link Here
35
35
36
use Encode;
36
use Encode;
37
37
38
use vars qw(@ISA @EXPORT);
39
40
my $engine; #XSLT Handler object
38
my $engine; #XSLT Handler object
41
my %authval_per_framework;
39
my %authval_per_framework;
42
    # Cache for tagfield-tagsubfield to decode per framework.
40
    # Cache for tagfield-tagsubfield to decode per framework.
43
    # Should be preferably be placed in Koha-core...
41
    # Should be preferably be placed in Koha-core...
44
42
43
our (@ISA, @EXPORT_OK);
45
BEGIN {
44
BEGIN {
45
46
    require Exporter;
46
    require Exporter;
47
    @ISA = qw(Exporter);
47
    @ISA = qw( Exporter );
48
    @EXPORT = qw(
48
49
    @EXPORT_OK = qw(
49
        &XSLTParse4Display
50
        &XSLTParse4Display
50
    );
51
    );
51
    $engine=Koha::XSLT_Handler->new( { do_not_return_source => 1 } );
52
    $engine=Koha::XSLT_Handler->new( { do_not_return_source => 1 } );
(-)a/Koha/DateUtils.pm (-4 / +9 lines)
Lines 21-31 use DateTime; Link Here
21
use C4::Context;
21
use C4::Context;
22
use Carp;
22
use Carp;
23
23
24
use base 'Exporter';
24
our (@ISA, @EXPORT_OK);
25
BEGIN {
25
26
26
our @EXPORT = (
27
    require Exporter;
27
    qw( dt_from_string output_pref format_sqldatetime )
28
    @ISA = qw( Exporter );
28
);
29
30
    @EXPORT_OK = qw(
31
        dt_from_string output_pref format_sqldatetime
32
    );
33
}
29
34
30
=head1 DateUtils
35
=head1 DateUtils
31
36
(-)a/Koha/I18N.pm (-1 / +10 lines)
Lines 34-40 use Locale::Maketext::Lexicon { Link Here
34
    '_style' => 'gettext',
34
    '_style' => 'gettext',
35
};
35
};
36
36
37
our @EXPORT = qw( gettext );
37
our (@ISA, @EXPORT_OK);
38
BEGIN {
39
40
    require Exporter;
41
    @ISA = qw( Exporter );
42
43
    @EXPORT_OK = qw(
44
        gettext
45
    );
46
}
38
47
39
my %language_handles;
48
my %language_handles;
40
49
(-)a/Koha/List/Patron.pm (-4 / +9 lines)
Lines 31-39 use Carp; Link Here
31
31
32
use Koha::Database;
32
use Koha::Database;
33
33
34
use base 'Exporter';
34
our (@ISA, @EXPORT_OK);
35
our @EXPORT = (
35
BEGIN {
36
    qw(
36
37
    require Exporter;
38
    @ISA = qw( Exporter );
39
40
    @EXPORT_OK = qw(
41
37
      GetPatronLists
42
      GetPatronLists
38
43
39
      DelPatronList
44
      DelPatronList
Lines 42-48 our @EXPORT = ( Link Here
42
47
43
      AddPatronsToList
48
      AddPatronsToList
44
      DelPatronsFromList
49
      DelPatronsFromList
45
      )
50
    )
46
);
51
);
47
52
48
=head2 GetPatronLists
53
=head2 GetPatronLists
(-)a/Koha/Patron/Debarments.pm (-9 / +14 lines)
Lines 21-39 use Modern::Perl; Link Here
21
21
22
use C4::Context;
22
use C4::Context;
23
23
24
use parent qw( Exporter );
24
our (@ISA, @EXPORT_OK);
25
BEGIN {
25
26
26
our @EXPORT = qw(
27
    require Exporter;
27
  GetDebarments
28
    @ISA = qw( Exporter );
28
29
29
  AddDebarment
30
    @EXPORT_OK = qw(
30
  DelDebarment
31
      GetDebarments
31
  ModDebarment
32
32
33
  AddUniqueDebarment
33
      AddDebarment
34
  DelUniqueDebarment
34
      DelDebarment
35
      ModDebarment
35
36
36
);
37
      AddUniqueDebarment
38
      DelUniqueDebarment
39
40
    );
41
}
37
42
38
=head1 Koha::Patron::Debarments
43
=head1 Koha::Patron::Debarments
39
44
(-)a/Koha/Util/Normalize.pm (-8 / +13 lines)
Lines 19-32 package Koha::Util::Normalize; Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use parent qw( Exporter );
22
our (@ISA, @EXPORT_OK);
23
23
BEGIN {
24
our @EXPORT = qw(
24
25
  legacy_default
25
    require Exporter;
26
  remove_spaces
26
    @ISA = qw( Exporter );
27
  upper_case
27
28
  lower_case
28
    @EXPORT_OK = qw(
29
);
29
      legacy_default
30
      remove_spaces
31
      upper_case
32
      lower_case
33
    );
34
}
30
35
31
=head1 NAME
36
=head1 NAME
32
37
(-)a/acqui/pdfformat/layout2pages.pm (-4 / +4 lines)
Lines 32-42 use Koha::Number::Price; Link Here
32
use Koha::DateUtils;
32
use Koha::DateUtils;
33
use Koha::Libraries;
33
use Koha::Libraries;
34
34
35
our (@ISA, @EXPORT_OK);
35
BEGIN {
36
BEGIN {
36
         use Exporter   ();
37
    require Exporter;
37
         our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
38
    @ISA    = qw( Exporter );
38
	@ISA    = qw(Exporter);
39
    @EXPORT_OK = qw( printpdf );
39
	@EXPORT = qw(printpdf);
40
}
40
}
41
41
42
42
(-)a/acqui/pdfformat/layout2pagesde.pm (-4 / +4 lines)
Lines 31-41 use Koha::Number::Price; Link Here
31
use Koha::DateUtils;
31
use Koha::DateUtils;
32
use Koha::Libraries;
32
use Koha::Libraries;
33
33
34
our(@ISA, @EXPORT_OK);
34
BEGIN {
35
BEGIN {
35
         use Exporter   ();
36
    require Exporter;
36
         our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
37
    @ISA    = qw( Exporter );
37
	@ISA    = qw(Exporter);
38
    @EXPORT_OK = qw( printpdf );
38
	@EXPORT = qw(printpdf);
39
}
39
}
40
40
41
41
(-)a/acqui/pdfformat/layout3pages.pm (-5 / +4 lines)
Lines 33-46 use Koha::Number::Price; Link Here
33
use Koha::DateUtils;
33
use Koha::DateUtils;
34
use Koha::Libraries;
34
use Koha::Libraries;
35
35
36
our (@ISA, @EXPORT_OK);
36
BEGIN {
37
BEGIN {
37
         use Exporter   ();
38
    require Exporter;
38
         our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
39
    @ISA = qw( Exporter );
39
	@ISA    = qw(Exporter);
40
    @EXPORT_OK = qw( printpdf );
40
	@EXPORT = qw(printpdf);
41
}
41
}
42
42
43
44
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
43
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
45
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
44
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
46
use constant mm => 25.4 / 72;
45
use constant mm => 25.4 / 72;
(-)a/acqui/pdfformat/layout3pagesfr.pm (-4 / +4 lines)
Lines 32-42 use Koha::Number::Price; Link Here
32
use Koha::DateUtils;
32
use Koha::DateUtils;
33
use Koha::Libraries;
33
use Koha::Libraries;
34
34
35
our (@ISA, @EXPORT_OK);
35
BEGIN {
36
BEGIN {
36
         use Exporter   ();
37
    require Exporter;
37
         our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
38
    @ISA = qw( Exporter );
38
         @ISA    = qw(Exporter);
39
    @EXPORT_OK = qw( printpdf );
39
         @EXPORT = qw(printpdf);
40
}
40
}
41
41
42
42
(-)a/install_misc/UpgradeBackup.pm (-4 / +9 lines)
Lines 26-35 use File::Find; Link Here
26
use File::Spec;
26
use File::Spec;
27
use Exporter;
27
use Exporter;
28
28
29
use vars qw(@ISA @EXPORT );
29
our (@ISA, @EXPORT_OK);
30
BEGIN {
30
31
31
@ISA = ('Exporter');
32
    require Exporter;
32
@EXPORT = ('backup_changed_files');
33
    @ISA = qw( Exporter );
34
35
    @EXPORT_OK = qw(
36
        backup_changed_files
37
    );
38
}
33
39
34
=head1 NAME
40
=head1 NAME
35
41
36
- 

Return to bug 17600