@@ -, +, @@ --- C4/Accounts.pm | 7 +++-- C4/Acquisition.pm | 11 +++----- C4/AuthoritiesMarc.pm | 55 +++++++++++++++++++-------------------- C4/Budgets.pm | 10 +++---- C4/Contract.pm | 10 +++---- C4/Creators.pm | 9 ++++--- C4/Creators/Lib.pm | 8 ++++-- C4/External/Amazon.pm | 8 +++--- C4/External/OverDrive.pm | 6 +++-- C4/External/Syndetics.pm | 8 +++--- C4/Images.pm | 7 ++--- C4/Log.pm | 12 ++++++--- C4/MarcModificationTemplates.pm | 9 ++++--- C4/NewsChannels.pm | 10 ++++--- C4/OAI/Sets.pm | 7 ++--- C4/Patroncards.pm | 10 ++++--- C4/Patroncards/Lib.pm | 9 +++++-- C4/Print.pm | 9 ++++--- C4/Record.pm | 11 ++++---- C4/Ris.pm | 13 +++++---- C4/RotatingCollections.pm | 10 +++---- C4/Serials/Frequency.pm | 9 ++++--- C4/Serials/Numberpattern.pm | 8 +++--- C4/Stats.pm | 16 +++++++----- C4/XSLT.pm | 9 ++++--- Koha/DateUtils.pm | 13 ++++++--- Koha/I18N.pm | 11 +++++++- Koha/List/Patron.pm | 15 +++++++---- Koha/Patron/Debarments.pm | 23 +++++++++------- Koha/Util/Normalize.pm | 21 +++++++++------ acqui/pdfformat/layout2pages.pm | 8 +++--- acqui/pdfformat/layout2pagesde.pm | 8 +++--- acqui/pdfformat/layout3pages.pm | 9 +++---- acqui/pdfformat/layout3pagesfr.pm | 8 +++--- 34 files changed, 225 insertions(+), 172 deletions(-) --- a/C4/Accounts.pm +++ a/C4/Accounts.pm @@ -30,12 +30,11 @@ use Koha::Account::Lines; use Data::Dumper qw(Dumper); -use vars qw(@ISA @EXPORT); - +our (@ISA, @EXPORT_OK); BEGIN { require Exporter; - @ISA = qw(Exporter); - @EXPORT = qw( + @ISA = qw( Exporter ); + @EXPORT_OK = qw( &manualinvoice &getnextacctno &getcharges --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -42,11 +42,12 @@ use MARC::Record; use Time::localtime; -use vars qw(@ISA @EXPORT); - +our (@ISA, @EXPORT_OK); BEGIN { + require Exporter; - @ISA = qw(Exporter); + @ISA = qw( Exporter ); + @EXPORT = qw( &GetBasket &NewBasket &CloseBasket &ReopenBasket &DelBasket &ModBasket &GetBasketAsCSV &GetBasketGroupAsCSV @@ -94,10 +95,6 @@ BEGIN { ); } - - - - sub GetOrderFromItemnumber { my ($itemnumber) = @_; my $dbh = C4::Context->dbh; --- a/C4/AuthoritiesMarc.pm +++ a/C4/AuthoritiesMarc.pm @@ -35,37 +35,36 @@ use Koha::Authority; use Koha::SearchEngine; use Koha::SearchEngine::Search; -use vars qw(@ISA @EXPORT); - +our (@ISA, @EXPORT_OK); BEGIN { - require Exporter; - @ISA = qw(Exporter); - @EXPORT = qw( - &GetTagsLabels - &GetAuthMARCFromKohaField - - &AddAuthority - &ModAuthority - &DelAuthority - &GetAuthority - &GetAuthorityXML - - &CountUsage - &CountUsageChildren - &SearchAuthorities - - &BuildSummary - &BuildAuthHierarchies - &BuildAuthHierarchy - &GenerateHierarchy - - &merge - &FindDuplicateAuthority + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw( + &GetTagsLabels + &GetAuthMARCFromKohaField + + &AddAuthority + &ModAuthority + &DelAuthority + &GetAuthority + &GetAuthorityXML - &GuessAuthTypeCode - &GuessAuthId - ); + &CountUsage + &CountUsageChildren + &SearchAuthorities + + &BuildSummary + &BuildAuthHierarchies + &BuildAuthHierarchy + &GenerateHierarchy + + &merge + &FindDuplicateAuthority + + &GuessAuthTypeCode + &GuessAuthId + ); } --- a/C4/Budgets.pm +++ a/C4/Budgets.pm @@ -22,13 +22,13 @@ use strict; 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 @@ -37,7 +37,7 @@ BEGIN { &GetBudgetsReport &GetBudgetReport &GetBudgetHierarchy - &AddBudget + &AddBudget &ModBudget &DelBudget &GetBudgetSpent --- a/C4/Contract.pm +++ a/C4/Contract.pm @@ -23,18 +23,18 @@ use strict; use C4::Context; use Koha::Database; -use vars qw(@ISA @EXPORT); - +our (@ISA, @EXPORT_OK); BEGIN { + require Exporter; - @ISA = qw(Exporter); - @EXPORT = qw( + @ISA = qw( Exporter ); + @EXPORT_OK = qw( &GetContracts &GetContract &AddContract &ModContract &DelContract - ); + ); } =head1 NAME --- a/C4/Creators.pm +++ a/C4/Creators.pm @@ -17,10 +17,13 @@ package C4::Creators; # You should have received a copy of the GNU General Public License # along with Koha; if not, see . +our (@ISA, @EXPORT_OK); BEGIN { - use vars qw(@EXPORT @ISA); - @ISA = qw(Exporter); - our @EXPORT = qw(get_all_templates + + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw( + get_all_templates get_all_layouts get_all_profiles get_all_image_names --- a/C4/Creators/Lib.pm +++ a/C4/Creators/Lib.pm @@ -25,9 +25,13 @@ use autouse 'Data::Dumper' => qw(Dumper); use C4::Context; use C4::Debug; +our (@ISA, @EXPORT_OK); BEGIN { - use base qw(Exporter); - our @EXPORT = qw(get_all_templates + + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw( + get_all_templates get_all_layouts get_all_profiles get_all_image_names --- a/C4/External/Amazon.pm +++ a/C4/External/Amazon.pm @@ -21,12 +21,12 @@ package C4::External::Amazon; use strict; use warnings; -use vars qw(@ISA @EXPORT); - +our (@ISA, @EXPORT_OK); BEGIN { + require Exporter; - @ISA = qw(Exporter); - @EXPORT = qw( + @ISA = qw( Exporter ); + @EXPORT_OK = qw( get_amazon_tld ); } --- a/C4/External/OverDrive.pm +++ a/C4/External/OverDrive.pm @@ -28,10 +28,12 @@ use HTTP::Request::Common; use LWP::Authen::Basic; use LWP::UserAgent; +our (@ISA, @EXPORT_OK); BEGIN { + require Exporter; - our @ISA = qw( Exporter ) ; - our @EXPORT = qw( + @ISA = qw( Exporter ); + @EXPORT_OK = qw( IsOverDriveEnabled GetOverDriveToken ); --- a/C4/External/Syndetics.pm +++ a/C4/External/Syndetics.pm @@ -26,12 +26,12 @@ use HTTP::Request::Common; use strict; use warnings; -use vars qw(@ISA @EXPORT); - +our (@ISA, @EXPORT_OK); BEGIN { + require Exporter; - @ISA = qw(Exporter); - @EXPORT = qw( + @ISA = qw( Exporter ); + @EXPORT_OK = qw( &get_syndetics_index &get_syndetics_summary &get_syndetics_toc --- a/C4/Images.pm +++ a/C4/Images.pm @@ -25,13 +25,14 @@ use 5.010; use C4::Context; use GD; -use vars qw($debug $noimage @ISA @EXPORT); +use vars qw($debug $noimage); +our (@ISA, @EXPORT_OK); BEGIN { require Exporter; - @ISA = qw(Exporter); - @EXPORT = qw( + @ISA = qw( Exporter ); + @EXPORT_OK = qw( &PutImage &RetrieveImage &ListImagesForBiblio --- a/C4/Log.pm +++ a/C4/Log.pm @@ -30,12 +30,16 @@ use C4::Context; use Koha::DateUtils; use Koha::Logger; -use vars qw(@ISA @EXPORT); + +our ( @ISA, @EXPORT_OK ); BEGIN { - require Exporter; - @ISA = qw(Exporter); - @EXPORT = qw(&logaction &cronlogaction &GetLogStatus &displaylog &GetLogs); + + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw( + &logaction &cronlogaction &GetLogStatus &displaylog &GetLogs + ); } =head1 NAME --- a/C4/MarcModificationTemplates.pm +++ a/C4/MarcModificationTemplates.pm @@ -24,13 +24,14 @@ use DateTime; use C4::Context; use Koha::SimpleMARC; -use vars qw(@ISA @EXPORT); - use constant DEBUG => 0; +our ( @ISA, @EXPORT_OK ); BEGIN { - @ISA = qw(Exporter); - @EXPORT = qw( + + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw( &GetModificationTemplates &AddModificationTemplate &DelModificationTemplate --- a/C4/NewsChannels.pm +++ a/C4/NewsChannels.pm @@ -22,11 +22,13 @@ use Modern::Perl; use C4::Context; use Koha::DateUtils; -use vars qw(@ISA @EXPORT); +our ( @ISA, @EXPORT_OK ); -BEGIN { - @ISA = qw(Exporter); - @EXPORT = qw( +BEGIN { + + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw( &GetNewsToDisplay &add_opac_new &upd_opac_new &del_opac_new &get_opac_new &get_opac_news ); --- a/C4/OAI/Sets.pm +++ a/C4/OAI/Sets.pm @@ -32,12 +32,13 @@ OAI Set description can be found L qw(Dumper); use C4::Context; use C4::Debug; +our ( @ISA, @EXPORT_OK ); + BEGIN { - use base qw(Exporter); - our @EXPORT = qw(unpack_UTF8 + + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw( + unpack_UTF8 text_alignment leading box --- a/C4/Print.pm +++ a/C4/Print.pm @@ -21,12 +21,13 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Context; -use vars qw(@ISA @EXPORT); +our ( @ISA, @EXPORT_OK ); BEGIN { - require Exporter; - @ISA = qw(Exporter); - @EXPORT = qw(&NetworkPrint); + + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw(&NetworkPrint); } =head1 NAME --- a/C4/Record.pm +++ a/C4/Record.pm @@ -40,14 +40,13 @@ use Koha::CsvProfiles; use Koha::AuthorisedValues; use Carp; -use vars qw(@ISA @EXPORT); +our ( @ISA, @EXPORT_OK ); +BEGIN { -@ISA = qw(Exporter); - -# only export API methods - -@EXPORT = qw( + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw( &marc2endnote &marc2marc &marc2marcxml --- a/C4/Ris.pm +++ a/C4/Ris.pm @@ -63,19 +63,18 @@ package C4::Ris; 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 ); -@ISA = qw(Exporter); +BEGIN { -# only export API methods - -@EXPORT = qw( - &marc2ris -); + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw(&marc2ris); +} our $marcprint = 0; # Debug flag; --- a/C4/RotatingCollections.pm +++ a/C4/RotatingCollections.pm @@ -33,9 +33,6 @@ use DBI; use Data::Dumper; -use vars qw(@ISA @EXPORT); - - =head1 NAME C4::RotatingCollections - Functions for managing rotating collections @@ -44,10 +41,13 @@ C4::RotatingCollections - Functions for managing rotating collections =cut +our (@ISA, @EXPORT_OK); BEGIN { + require Exporter; - @ISA = qw( Exporter ); - @EXPORT = qw( + @ISA = qw( Exporter ); + + @EXPORT_OK = qw( CreateCollection UpdateCollection DeleteCollection --- a/C4/Serials/Frequency.pm +++ a/C4/Serials/Frequency.pm @@ -22,12 +22,13 @@ use warnings; use C4::Context; -use vars qw(@ISA @EXPORT); - +our (@ISA, @EXPORT_OK); BEGIN { + require Exporter; - @ISA = qw(Exporter); - @EXPORT = qw( + @ISA = qw( Exporter ); + + @EXPORT_OK = qw( &GetSubscriptionFrequencies &GetSubscriptionFrequency &AddSubscriptionFrequency --- a/C4/Serials/Numberpattern.pm +++ a/C4/Serials/Numberpattern.pm @@ -22,13 +22,13 @@ use warnings; use C4::Context; -use vars qw(@ISA @EXPORT); - +our (@ISA, @EXPORT_OK); BEGIN { require Exporter; - @ISA = qw(Exporter); - @EXPORT = qw( + @ISA = qw( Exporter ); + + @EXPORT_OK = qw( &GetSubscriptionNumberpatterns &GetSubscriptionNumberpattern &GetSubscriptionNumberpatternByName --- a/C4/Stats.pm +++ a/C4/Stats.pm @@ -24,16 +24,18 @@ require Exporter; use Carp; use C4::Context; use C4::Debug; -use vars qw(@ISA @EXPORT); our $debug; - +our (@ISA, @EXPORT_OK); BEGIN { - @ISA = qw(Exporter); - @EXPORT = qw( - &UpdateStats - &TotalPaid - ); + + require Exporter; + @ISA = qw( Exporter ); + + @EXPORT_OK = qw( + &UpdateStats + &TotalPaid + ); } --- a/C4/XSLT.pm +++ a/C4/XSLT.pm @@ -36,17 +36,18 @@ use Koha::Libraries; 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 = qw( + @ISA = qw( Exporter ); + + @EXPORT_OK = qw( &XSLTParse4Display ); $engine=Koha::XSLT_Handler->new( { do_not_return_source => 1 } ); --- a/Koha/DateUtils.pm +++ a/Koha/DateUtils.pm @@ -21,11 +21,16 @@ use DateTime; use C4::Context; use Koha::Exceptions; -use base 'Exporter'; +our (@ISA, @EXPORT_OK); +BEGIN { -our @EXPORT = ( - qw( dt_from_string output_pref format_sqldatetime ) -); + require Exporter; + @ISA = qw( Exporter ); + + @EXPORT_OK = qw( + dt_from_string output_pref format_sqldatetime + ); +} =head1 DateUtils --- a/Koha/I18N.pm +++ a/Koha/I18N.pm @@ -34,7 +34,16 @@ use Locale::Maketext::Lexicon { '_style' => 'gettext', }; -our @EXPORT = qw( gettext ); +our (@ISA, @EXPORT_OK); +BEGIN { + + require Exporter; + @ISA = qw( Exporter ); + + @EXPORT_OK = qw( + gettext + ); +} my %language_handles; --- a/Koha/List/Patron.pm +++ a/Koha/List/Patron.pm @@ -31,9 +31,14 @@ use Carp; use Koha::Database; -use base 'Exporter'; -our @EXPORT = ( - qw( +our (@ISA, @EXPORT_OK); +BEGIN { + + require Exporter; + @ISA = qw( Exporter ); + + @EXPORT_OK = qw( + GetPatronLists DelPatronList @@ -42,8 +47,8 @@ our @EXPORT = ( AddPatronsToList DelPatronsFromList - ) -); + ); +}; =head2 GetPatronLists --- a/Koha/Patron/Debarments.pm +++ a/Koha/Patron/Debarments.pm @@ -21,19 +21,24 @@ use Modern::Perl; use C4::Context; -use parent qw( Exporter ); +our (@ISA, @EXPORT_OK); +BEGIN { -our @EXPORT = qw( - GetDebarments + require Exporter; + @ISA = qw( Exporter ); - AddDebarment - DelDebarment - ModDebarment + @EXPORT_OK = qw( + GetDebarments - AddUniqueDebarment - DelUniqueDebarment + AddDebarment + DelDebarment + ModDebarment -); + AddUniqueDebarment + DelUniqueDebarment + + ); +} =head1 Koha::Patron::Debarments --- a/Koha/Util/Normalize.pm +++ a/Koha/Util/Normalize.pm @@ -19,14 +19,19 @@ package Koha::Util::Normalize; use Modern::Perl; -use parent qw( Exporter ); - -our @EXPORT = qw( - legacy_default - remove_spaces - upper_case - lower_case -); +our (@ISA, @EXPORT_OK); +BEGIN { + + require Exporter; + @ISA = qw( Exporter ); + + @EXPORT_OK = qw( + legacy_default + remove_spaces + upper_case + lower_case + ); +} =head1 NAME --- a/acqui/pdfformat/layout2pages.pm +++ a/acqui/pdfformat/layout2pages.pm @@ -32,11 +32,11 @@ use Koha::Number::Price; use Koha::DateUtils; use Koha::Libraries; +our (@ISA, @EXPORT_OK); BEGIN { - use Exporter (); - our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); - @ISA = qw(Exporter); - @EXPORT = qw(printpdf); + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw( printpdf ); } --- a/acqui/pdfformat/layout2pagesde.pm +++ a/acqui/pdfformat/layout2pagesde.pm @@ -31,11 +31,11 @@ use Koha::Number::Price; use Koha::DateUtils; use Koha::Libraries; +our(@ISA, @EXPORT_OK); BEGIN { - use Exporter (); - our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); - @ISA = qw(Exporter); - @EXPORT = qw(printpdf); + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw( printpdf ); } --- a/acqui/pdfformat/layout3pages.pm +++ a/acqui/pdfformat/layout3pages.pm @@ -33,14 +33,13 @@ use Koha::Number::Price; use Koha::DateUtils; use Koha::Libraries; +our (@ISA, @EXPORT_OK); BEGIN { - use Exporter (); - our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); - @ISA = qw(Exporter); - @EXPORT = qw(printpdf); + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = 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; --- a/acqui/pdfformat/layout3pagesfr.pm +++ a/acqui/pdfformat/layout3pagesfr.pm @@ -32,11 +32,11 @@ use Koha::Number::Price; use Koha::DateUtils; use Koha::Libraries; +our (@ISA, @EXPORT_OK); BEGIN { - use Exporter (); - our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); - @ISA = qw(Exporter); - @EXPORT = qw(printpdf); + require Exporter; + @ISA = qw( Exporter ); + @EXPORT_OK = qw( printpdf ); } --