Attachment #64468 for bug #17600

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





use Data::Dumper qw(Dumper);

our (@ISA, @EXPORT_OK);

BEGIN {
    require Exporter;
    @ISA = qw( Exporter );
    @EXPORT_OK = qw(
      &manualinvoice
      &getnextacctno
      &getcharges





use Time::localtime;

our (@ISA, @EXPORT_OK);

BEGIN {

    require Exporter;
    @ISA = qw( Exporter );

    @EXPORT = qw(
        &GetBasket &NewBasket &CloseBasket &ReopenBasket &DelBasket &ModBasket
        &GetBasketAsCSV &GetBasketGroupAsCSV

    );
}





sub GetOrderFromItemnumber {
    my ($itemnumber) = @_;
    my $dbh          = C4::Context->dbh;




use Koha::SearchEngine;
use Koha::SearchEngine::Search;

our (@ISA, @EXPORT_OK);

BEGIN {

    require Exporter;
    @ISA = qw( Exporter );
    @EXPORT_OK = qw(
      &GetTagsLabels
      &GetAuthMARCFromKohaField

      &AddAuthority
      &ModAuthority
      &DelAuthority
      &GetAuthority
      &GetAuthorityXML

    	&CountUsage
    	&CountUsageChildren
    	&SearchAuthorities
    
        &BuildSummary
        &BuildAuthHierarchies
        &BuildAuthHierarchy
        &GenerateHierarchy
    
    	&merge
    	&FindDuplicateAuthority

      &CountUsage
      &CountUsageChildren
      &SearchAuthorities

      &BuildSummary
      &BuildAuthHierarchies
      &BuildAuthHierarchy
      &GenerateHierarchy

      &merge
      &FindDuplicateAuthority

      &GuessAuthTypeCode
      &GuessAuthId
    );
}






use C4::Context;
use Koha::Database;
use C4::Debug;
use vars qw(@ISA @EXPORT);

our (@ISA, @EXPORT_OK);
BEGIN {
	require Exporter;
	@ISA    = qw(Exporter);
	@EXPORT = qw(

    require Exporter;
    @ISA = qw( Exporter );
    @EXPORT_OK = qw(
        &GetBudget
        &GetBudgetByOrderNumber
        &GetBudgetByCode

        &GetBudgetsReport
        &GetBudgetReport
        &GetBudgetHierarchy
        &AddBudget
        &ModBudget
        &DelBudget
        &GetBudgetSpent




use C4::Context;
use Koha::Database;

our (@ISA, @EXPORT_OK);

BEGIN {

    require Exporter;
    @ISA = qw( Exporter );
    @EXPORT_OK = qw(
        &GetContracts
        &GetContract
        &AddContract
        &ModContract
        &DelContract
    );
}

=head1 NAME

Lines 17-26 package C4::Creators; Link Here

(-)a/C4/Creators.pm (-3 / +6 lines)
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

Lines 25-33 use autouse 'Data::Dumper' => qw(Dumper); Link Here

(-)a/C4/Creators/Lib.pm (-2 / +6 lines)
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




use strict;
use warnings;

our (@ISA, @EXPORT_OK);

BEGIN {

    require Exporter;
    @ISA = qw( Exporter );
    @EXPORT_OK = qw(
        get_amazon_tld
    );
}




use LWP::Authen::Basic;
use LWP::UserAgent;

our (@ISA, @EXPORT_OK);
BEGIN {

    require Exporter;
    @ISA = qw( Exporter );
    @EXPORT_OK = qw(
        IsOverDriveEnabled
        GetOverDriveToken
    );




use strict;
use warnings;

our (@ISA, @EXPORT_OK);

BEGIN {

    require Exporter;
    @ISA = qw( Exporter );
    @EXPORT_OK = qw(
        &get_syndetics_index
        &get_syndetics_summary
        &get_syndetics_toc




use C4::Context;
use GD;

use vars qw($debug $noimage);

our (@ISA, @EXPORT_OK);
BEGIN {

    require Exporter;
    @ISA = qw( Exporter );
    @EXPORT_OK = qw(
      &PutImage
      &RetrieveImage
      &ListImagesForBiblio

Lines 30-41 use C4::Context; Link Here

(-)a/C4/Log.pm (-4 / +8 lines)
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




use C4::Context;
use Koha::SimpleMARC;

use vars qw(@ISA @EXPORT);

use constant DEBUG => 0;
our ( @ISA, @EXPORT_OK );

BEGIN {

    require Exporter;
    @ISA       = qw( Exporter );
    @EXPORT_OK = qw(
        &GetModificationTemplates
        &AddModificationTemplate
        &DelModificationTemplate

Lines 22-32 use Modern::Perl; Link Here

(-)a/C4/NewsChannels.pm (-4 / +6 lines)
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	);




use Modern::Perl;
use C4::Context;

our ( @ISA, @EXPORT_OK );

BEGIN {

    require Exporter;
    @ISA       = qw( Exporter );
    @EXPORT_OK = qw(
        &GetOAISets &GetOAISet &GetOAISetBySpec &ModOAISet &DelOAISet &AddOAISet
        &GetOAISetsMappings &GetOAISetMappings &ModOAISetMappings
        &GetOAISetsBiblio &ModOAISetsBiblios &AddOAISetsBiblios

Lines 1-9 Link Here

(-)a/C4/Patroncards.pm (-3 / +7 lines)
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

Lines 25-33 use autouse 'Data::Dumper' => qw(Dumper); Link Here

(-)a/C4/Patroncards/Lib.pm (-2 / +7 lines)
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




#use warnings; FIXME - Bug 2505
use C4::Context;

our ( @ISA, @EXPORT_OK );

BEGIN {

    require Exporter;
    @ISA       = qw( Exporter );
    @EXPORT_OK = qw(&NetworkPrint);
}

=head1 NAME




use Koha::AuthorisedValues;
use Carp;

our ( @ISA, @EXPORT_OK );

BEGIN {

    require Exporter;
    @ISA       = qw( Exporter );
    @EXPORT_OK = qw(

@EXPORT = qw(
  &marc2endnote
  &marc2marc
  &marc2marcxml




use Modern::Perl;

use List::MoreUtils qw/uniq/;
use vars qw(@ISA @EXPORT);

use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField);
use Koha::SimpleMARC qw(read_field);

our ( @ISA, @EXPORT_OK );

BEGIN {

    require Exporter;
    @ISA       = qw( Exporter );
    @EXPORT_OK = qw(&marc2ris);
}
);

our $marcprint = 0; # Debug flag;






use Data::Dumper;

use vars qw(@ISA @EXPORT);


=head1 NAME

C4::RotatingCollections - Functions for managing rotating collections


=cut

our (@ISA, @EXPORT_OK);
BEGIN {

    require Exporter;
    @ISA = qw( Exporter );

    @EXPORT_OK = qw(
      CreateCollection
      UpdateCollection
      DeleteCollection





use C4::Context;

our (@ISA, @EXPORT_OK);

BEGIN {

    require Exporter;
    @ISA = qw( Exporter );

    @EXPORT_OK = qw(
      &GetSubscriptionFrequencies
      &GetSubscriptionFrequency
      &AddSubscriptionFrequency





use C4::Context;

our (@ISA, @EXPORT_OK);

BEGIN {

    require Exporter;
    @ISA = qw( Exporter );

    @EXPORT_OK = qw(
        &GetSubscriptionNumberpatterns
        &GetSubscriptionNumberpattern
        &GetSubscriptionNumberpatternByName




use Carp;
use C4::Context;
use C4::Debug;
use vars qw(@ISA @EXPORT);

our $debug;
our (@ISA, @EXPORT_OK);
BEGIN {

    require Exporter;
    @ISA = qw( Exporter );

    @EXPORT_OK = qw(
        &UpdateStats
        &TotalPaid
    );
}







use Encode;

use vars qw(@ISA @EXPORT);

my $engine; #XSLT Handler object
my %authval_per_framework;
    # Cache for tagfield-tagsubfield to decode per framework.
    # Should be preferably be placed in Koha-core...

our (@ISA, @EXPORT_OK);
BEGIN {

    require Exporter;
    @ISA = qw( Exporter );

    @EXPORT_OK = qw(
        &XSLTParse4Display
    );
    $engine=Koha::XSLT_Handler->new( { do_not_return_source => 1 } );

Lines 21-31 use DateTime; Link Here

(-)a/Koha/DateUtils.pm (-4 / +9 lines)
21	use C4::Context;	21	use C4::Context;
22	use Koha::Exceptions;	22	use Koha::Exceptions;
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




    '_style' => 'gettext',
};

our (@ISA, @EXPORT_OK);
BEGIN {

    require Exporter;
    @ISA = qw( Exporter );

    @EXPORT_OK = qw(
        gettext
    );
}

my %language_handles;






use Koha::Database;

our (@ISA, @EXPORT_OK);
BEGIN {

    require Exporter;
    @ISA = qw( Exporter );

    @EXPORT_OK = qw(

      GetPatronLists

      DelPatronList


      AddPatronsToList
      DelPatronsFromList
    );
};

=head2 GetPatronLists






use C4::Context;

our (@ISA, @EXPORT_OK);
BEGIN {

    require Exporter;
    @ISA = qw( Exporter );

    @EXPORT_OK = qw(
      GetDebarments
  ModDebarment

      AddDebarment
      DelDebarment
      ModDebarment

      AddUniqueDebarment
      DelUniqueDebarment

    );
}

=head1 Koha::Patron::Debarments






use Modern::Perl;

our (@ISA, @EXPORT_OK);
BEGIN {

    require Exporter;
    @ISA = qw( Exporter );

    @EXPORT_OK = qw(
      legacy_default
      remove_spaces
      upper_case
      lower_case
    );
}

=head1 NAME





use Koha::DateUtils;
use Koha::Libraries;

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA    = qw( Exporter );
    @EXPORT_OK = qw( printpdf );
	@EXPORT = qw(printpdf);
}






use Koha::DateUtils;
use Koha::Libraries;

our(@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA    = qw( Exporter );
    @EXPORT_OK = qw( printpdf );
	@EXPORT = qw(printpdf);
}






use Koha::DateUtils;
use Koha::Libraries;

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA = qw( Exporter );
    @EXPORT_OK = qw( printpdf );
	@EXPORT = qw(printpdf);
}


#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
#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.
use constant mm => 25.4 / 72;




use Koha::DateUtils;
use Koha::Libraries;

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA = qw( Exporter );
    @EXPORT_OK = qw( printpdf );
         @EXPORT = qw(printpdf);
}


- 

Return to bug 17600

Lines 63-81 package C4::Ris; Link Here

(-)a/C4/Ris.pm (-7 / +6 lines)
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

Lines 30-41 use Koha::Account::Lines; Link Here

(-)a/C4/Accounts.pm (-4 / +3 lines)
30		30
31	use Data::Dumper qw(Dumper);	31	use Data::Dumper qw(Dumper);
32		32
33	use vars qw(@ISA @EXPORT);	33	our (@ISA, @EXPORT_OK);
34
35	BEGIN {	34	BEGIN {
36	require Exporter;	35	require Exporter;
37	@ISA = qw(Exporter);	36	@ISA = qw( Exporter );
38	@EXPORT = qw(	37	@EXPORT_OK = qw(
39	&manualinvoice	38	&manualinvoice
40	&getnextacctno	39	&getnextacctno
41	&getcharges	40	&getcharges

Lines 42-52 use MARC::Record; Link Here

(-)a/C4/Acquisition.pm (-7 / +4 lines)
42		42
43	use Time::localtime;	43	use Time::localtime;
44		44
45	use vars qw(@ISA @EXPORT);	45	our (@ISA, @EXPORT_OK);
46
47	BEGIN {	46	BEGIN {
		47
48	require Exporter;	48	require Exporter;
49	@ISA = qw(Exporter);	49	@ISA = qw( Exporter );
		50
50	@EXPORT = qw(	51	@EXPORT = qw(
51	&GetBasket &NewBasket &CloseBasket &ReopenBasket &DelBasket &ModBasket	52	&GetBasket &NewBasket &CloseBasket &ReopenBasket &DelBasket &ModBasket
52	&GetBasketAsCSV &GetBasketGroupAsCSV	53	&GetBasketAsCSV &GetBasketGroupAsCSV
Lines 94-103 BEGIN { Link Here
94	);	95	);
95	}	96	}
96		97
97
98
99
100
101	sub GetOrderFromItemnumber {	98	sub GetOrderFromItemnumber {
102	my ($itemnumber) = @_;	99	my ($itemnumber) = @_;
103	my $dbh = C4::Context->dbh;	100	my $dbh = C4::Context->dbh;

Lines 35-71 use Koha::Authority; Link Here

(-)a/C4/AuthoritiesMarc.pm (-28 / +27 lines)
35	use Koha::SearchEngine;	35	use Koha::SearchEngine;
36	use Koha::SearchEngine::Search;	36	use Koha::SearchEngine::Search;
37		37
38	use vars qw(@ISA @EXPORT);	38	our (@ISA, @EXPORT_OK);
39
40	BEGIN {	39	BEGIN {
41		40
42	require Exporter;	41	require Exporter;
43	@ISA = qw(Exporter);	42	@ISA = qw( Exporter );
44	@EXPORT = qw(	43	@EXPORT_OK = qw(
45	&GetTagsLabels	44	&GetTagsLabels
46	&GetAuthMARCFromKohaField	45	&GetAuthMARCFromKohaField
47		46
48	&AddAuthority	47	&AddAuthority
49	&ModAuthority	48	&ModAuthority
50	&DelAuthority	49	&DelAuthority
51	&GetAuthority	50	&GetAuthority
52	&GetAuthorityXML	51	&GetAuthorityXML
53
54	&CountUsage
55	&CountUsageChildren
56	&SearchAuthorities
57
58	&BuildSummary
59	&BuildAuthHierarchies
60	&BuildAuthHierarchy
61	&GenerateHierarchy
62
63	&merge
64	&FindDuplicateAuthority
65		52
66	&GuessAuthTypeCode	53	&CountUsage
67	&GuessAuthId	54	&CountUsageChildren
68	);	55	&SearchAuthorities
		56
		57	&BuildSummary
		58	&BuildAuthHierarchies
		59	&BuildAuthHierarchy
		60	&GenerateHierarchy
		61
		62	&merge
		63	&FindDuplicateAuthority
		64
		65	&GuessAuthTypeCode
		66	&GuessAuthId
		67	);
69	}	68	}
70		69
71		70

Lines 22-34 use strict; Link Here

(-)a/C4/Budgets.pm (-5 / +5 lines)
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

Lines 23-40 use strict; Link Here

(-)a/C4/Contract.pm (-5 / +5 lines)
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

Lines 21-32 package C4::External::Amazon; Link Here

(-)a/C4/External/Amazon.pm (-4 / +4 lines)
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	}

Lines 28-37 use HTTP::Request::Common; Link Here

(-)a/C4/External/OverDrive.pm (-2 / +4 lines)
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	);

Lines 26-37 use HTTP::Request::Common; Link Here

(-)a/C4/External/Syndetics.pm (-4 / +4 lines)
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

Lines 25-37 use 5.010; Link Here

(-)a/C4/Images.pm (-3 / +4 lines)
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

Lines 24-36 use DateTime; Link Here

(-)a/C4/MarcModificationTemplates.pm (-4 / +5 lines)
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

Lines 32-43 OAI Set description can be found L<here\|http://www.openarchives.org/OAI/openarch Link Here

(-)a/C4/OAI/Sets.pm (-3 / +4 lines)
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

Lines 21-32 use strict; Link Here

(-)a/C4/Print.pm (-4 / +5 lines)
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

Lines 40-53 use Koha::CsvProfiles; Link Here

(-)a/C4/Record.pm (-6 / +5 lines)
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

Lines 33-41 use DBI; Link Here

(-)a/C4/RotatingCollections.pm (-5 / +5 lines)
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

Lines 22-33 use warnings; Link Here

(-)a/C4/Serials/Frequency.pm (-4 / +5 lines)
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

Lines 22-34 use warnings; Link Here

(-)a/C4/Serials/Numberpattern.pm (-4 / +4 lines)
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

Lines 24-39 require Exporter; Link Here

(-)a/C4/Stats.pm (-7 / +9 lines)
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

Lines 36-52 use Koha::Libraries; Link Here

(-)a/C4/XSLT.pm (-4 / +5 lines)
36		36
37	use Encode;	37	use Encode;
38		38
39	use vars qw(@ISA @EXPORT);
40
41	my $engine; #XSLT Handler object	39	my $engine; #XSLT Handler object
42	my %authval_per_framework;	40	my %authval_per_framework;
43	# Cache for tagfield-tagsubfield to decode per framework.	41	# Cache for tagfield-tagsubfield to decode per framework.
44	# Should be preferably be placed in Koha-core...	42	# Should be preferably be placed in Koha-core...
45		43
		44	our (@ISA, @EXPORT_OK);
46	BEGIN {	45	BEGIN {
		46
47	require Exporter;	47	require Exporter;
48	@ISA = qw(Exporter);	48	@ISA = qw( Exporter );
49	@EXPORT = qw(	49
		50	@EXPORT_OK = qw(
50	&XSLTParse4Display	51	&XSLTParse4Display
51	);	52	);
52	$engine=Koha::XSLT_Handler->new( { do_not_return_source => 1 } );	53	$engine=Koha::XSLT_Handler->new( { do_not_return_source => 1 } );

Lines 34-40 use Locale::Maketext::Lexicon { Link Here

(-)a/Koha/I18N.pm (-1 / +10 lines)
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

Lines 31-39 use Carp; Link Here

(-)a/Koha/List/Patron.pm (-5 / +10 lines)
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-49 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
49		54

Lines 21-39 use Modern::Perl; Link Here

(-)a/Koha/Patron/Debarments.pm (-9 / +14 lines)
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

Lines 19-32 package Koha::Util::Normalize; Link Here

(-)a/Koha/Util/Normalize.pm (-8 / +13 lines)
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

Lines 32-42 use Koha::Number::Price; Link Here

(-)a/acqui/pdfformat/layout2pages.pm (-4 / +4 lines)
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

Lines 31-41 use Koha::Number::Price; Link Here

(-)a/acqui/pdfformat/layout2pagesde.pm (-4 / +4 lines)
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

Lines 33-46 use Koha::Number::Price; Link Here

(-)a/acqui/pdfformat/layout3pages.pm (-5 / +4 lines)
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;

Lines 32-42 use Koha::Number::Price; Link Here

(-)a/acqui/pdfformat/layout3pagesfr.pm (-5 / +4 lines)
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
43	-