@@ -, +, @@ --- C4/Accounts.pm | 2 +- C4/Acquisition.pm | 2 +- C4/Auth.pm | 2 +- C4/Auth_with_cas.pm | 2 +- C4/Auth_with_ldap.pm | 2 +- C4/Auth_with_shibboleth.pm | 2 +- C4/AuthoritiesMarc.pm | 2 +- C4/BackgroundJob.pm | 2 +- C4/Barcodes.pm | 2 +- C4/Barcodes/EAN13.pm | 2 +- C4/Barcodes/annual.pm | 2 +- C4/Barcodes/hbyymmincr.pm | 2 +- C4/Barcodes/incremental.pm | 2 +- C4/Biblio.pm | 2 +- C4/Branch.pm | 2 +- C4/Breeding.pm | 2 +- C4/Budgets.pm | 2 +- C4/Calendar.pm | 2 +- C4/Charset.pm | 2 +- C4/Circulation.pm | 2 +- C4/ClassSortRoutine.pm | 2 +- C4/ClassSortRoutine/Dewey.pm | 2 +- C4/ClassSortRoutine/Generic.pm | 2 +- C4/ClassSortRoutine/LCC.pm | 2 +- C4/ClassSource.pm | 2 +- C4/Context.pm | 2 +- C4/Contract.pm | 2 +- C4/CourseReserves.pm | 2 +- C4/Csv.pm | 2 +- C4/Debug.pm | 2 +- C4/External/Amazon.pm | 2 +- C4/External/BakerTaylor.pm | 2 +- C4/External/Syndetics.pm | 2 +- C4/HoldsQueue.pm | 2 +- C4/Images.pm | 2 +- C4/ImportBatch.pm | 2 +- C4/ImportExportFramework.pm | 2 +- C4/InstallAuth.pm | 2 +- C4/Items.pm | 2 +- C4/Koha.pm | 2 +- C4/Languages.pm | 2 +- C4/Letters.pm | 2 +- C4/Log.pm | 2 +- C4/MarcModificationTemplates.pm | 2 +- C4/Matcher.pm | 2 +- C4/Members/AttributeTypes.pm | 2 +- C4/Members/Attributes.pm | 2 +- C4/Members/Messaging.pm | 2 +- C4/NewsChannels.pm | 2 +- C4/Output.pm | 2 +- C4/Overdues.pm | 2 +- C4/Passwordrecovery.pm | 2 +- C4/Print.pm | 2 +- C4/Ratings.pm | 2 +- C4/Record.pm | 2 +- C4/Reports.pm | 2 +- C4/Reports/Guided.pm | 2 +- C4/Reserves.pm | 2 +- C4/Review.pm | 2 +- C4/Ris.pm | 2 +- C4/RotatingCollections.pm | 2 +- C4/SIP/Sip.pm | 2 +- C4/SIP/Sip/MsgType.pm | 2 +- C4/SIP/t/SIPtest.pm | 2 +- C4/SMS.pm | 2 +- C4/Scheduler.pm | 2 +- C4/Search.pm | 2 +- C4/Serials.pm | 2 +- C4/Serials/Frequency.pm | 2 +- C4/Serials/Numberpattern.pm | 2 +- C4/ShelfBrowser.pm | 2 +- C4/Stats.pm | 2 +- C4/Tags.pm | 2 +- C4/TmplTokenType.pm | 2 +- C4/Utils/DataTables.pm | 2 +- C4/XISBN.pm | 2 +- C4/XSLT.pm | 2 +- Koha/Misc/Files.pm | 2 +- Koha/Patron/Files.pm | 2 +- Koha/Template/Plugin/Cache.pm | 2 +- acqui/pdfformat/layout2pages.pm | 2 +- acqui/pdfformat/layout2pagesde.pm | 2 +- acqui/pdfformat/layout3pages.pm | 2 +- acqui/pdfformat/layout3pagesfr.pm | 2 +- install_misc/UpgradeBackup.pm | 2 +- misc/translator/TmplTokenizer.pm | 2 +- misc/translator/VerboseWarnings.pm | 2 +- 87 files changed, 87 insertions(+), 87 deletions(-) --- a/C4/Accounts.pm +++ a/C4/Accounts.pm @@ -28,7 +28,7 @@ use C4::Log qw(logaction); use Data::Dumper qw(Dumper); -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -41,7 +41,7 @@ use MARC::Record; use Time::localtime; use HTML::Entities; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking --- a/C4/Auth.pm +++ a/C4/Auth.pm @@ -40,7 +40,7 @@ use List::MoreUtils qw/ any /; use Encode qw( encode is_utf8); # use utf8; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout $shib $shib_login); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout $shib $shib_login); BEGIN { sub psgi_env { any { /^psgi\./ } keys %ENV } --- a/C4/Auth_with_cas.pm +++ a/C4/Auth_with_cas.pm @@ -28,7 +28,7 @@ use FindBin; use YAML; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); BEGIN { require Exporter; --- a/C4/Auth_with_ldap.pm +++ a/C4/Auth_with_ldap.pm @@ -33,7 +33,7 @@ use List::MoreUtils qw( any ); use Net::LDAP; use Net::LDAP::Filter; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); BEGIN { require Exporter; --- a/C4/Auth_with_shibboleth.pm +++ a/C4/Auth_with_shibboleth.pm @@ -25,7 +25,7 @@ use Koha::Database; use Carp; use CGI; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); BEGIN { require Exporter; --- a/C4/AuthoritiesMarc.pm +++ a/C4/AuthoritiesMarc.pm @@ -30,7 +30,7 @@ use Koha::MetadataRecord::Authority; use Koha::Authorities; use Koha::Authority::Types; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking --- a/C4/BackgroundJob.pm +++ a/C4/BackgroundJob.pm @@ -24,7 +24,7 @@ use C4::Context; use C4::Auth qw/get_session/; use Digest::MD5; -use vars qw($VERSION); +use vars qw(); BEGIN { # set the version for version checking --- a/C4/Barcodes.pm +++ a/C4/Barcodes.pm @@ -29,7 +29,7 @@ use C4::Barcodes::annual; use C4::Barcodes::incremental; use C4::Barcodes::EAN13; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); use vars qw($debug $cgi_debug); # from C4::Debug, of course use vars qw($max $prefformat); --- a/C4/Barcodes/EAN13.pm +++ a/C4/Barcodes/EAN13.pm @@ -26,7 +26,7 @@ use C4::Debug; use Algorithm::CheckDigits; use Carp; -use vars qw($VERSION @ISA); +use vars qw(@ISA); use vars qw($debug $cgi_debug); # from C4::Debug, of course BEGIN { --- a/C4/Barcodes/annual.pm +++ a/C4/Barcodes/annual.pm @@ -27,7 +27,7 @@ use C4::Debug; use Koha::DateUtils qw( output_pref dt_from_string ); -use vars qw($VERSION @ISA); +use vars qw(@ISA); use vars qw($debug $cgi_debug); # from C4::Debug, of course use vars qw($width); --- a/C4/Barcodes/hbyymmincr.pm +++ a/C4/Barcodes/hbyymmincr.pm @@ -27,7 +27,7 @@ use C4::Debug; use Koha::DateUtils qw( dt_from_string output_pref ); -use vars qw($VERSION @ISA); +use vars qw(@ISA); use vars qw($debug $cgi_debug); # from C4::Debug, of course use vars qw($branch $width); --- a/C4/Barcodes/incremental.pm +++ a/C4/Barcodes/incremental.pm @@ -20,7 +20,7 @@ package C4::Barcodes::incremental; use strict; use warnings; -use vars qw($VERSION @ISA); +use vars qw(@ISA); BEGIN { $VERSION = 3.07.00.049; --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -42,7 +42,7 @@ use Koha::Cache; use Koha::Authority::Types; use Koha::Acquisition::Currencies; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { $VERSION = 3.07.00.049; --- a/C4/Branch.pm +++ a/C4/Branch.pm @@ -22,7 +22,7 @@ require Exporter; use C4::Context; use Koha::LibraryCategories; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { # set the version for version checking --- a/C4/Breeding.pm +++ a/C4/Breeding.pm @@ -31,7 +31,7 @@ use C4::Languages; use Koha::Database; use Koha::XSLT_Handler; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { # set the version for version checking --- a/C4/Budgets.pm +++ a/C4/Budgets.pm @@ -22,7 +22,7 @@ use strict; use C4::Context; use Koha::Database; use C4::Debug; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking --- a/C4/Calendar.pm +++ a/C4/Calendar.pm @@ -17,7 +17,7 @@ package C4::Calendar; use strict; use warnings; -use vars qw($VERSION @EXPORT); +use vars qw(@EXPORT); use Carp; use Date::Calc qw( Date_to_Days Today); --- a/C4/Charset.pm +++ a/C4/Charset.pm @@ -26,7 +26,7 @@ use C4::Debug; use Unicode::Normalize; use Encode qw( decode encode is_utf8 ); -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { # set the version for version checking --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -64,7 +64,7 @@ use Date::Calc qw( Day_of_Week Add_Delta_Days ); -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { require Exporter; --- a/C4/ClassSortRoutine.pm +++ a/C4/ClassSortRoutine.pm @@ -24,7 +24,7 @@ require Exporter; use Class::Factory::Util; use C4::Context; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking $VERSION = 3.07.00.049; --- a/C4/ClassSortRoutine/Dewey.pm +++ a/C4/ClassSortRoutine/Dewey.pm @@ -20,7 +20,7 @@ package C4::ClassSortRoutine::Dewey; use strict; use warnings; -use vars qw($VERSION); +use vars qw(); # set the version for version checking $VERSION = 3.07.00.049; --- a/C4/ClassSortRoutine/Generic.pm +++ a/C4/ClassSortRoutine/Generic.pm @@ -20,7 +20,7 @@ package C4::ClassSortRoutine::Generic; use strict; use warnings; -use vars qw($VERSION); +use vars qw(); # set the version for version checking $VERSION = 3.07.00.049; --- a/C4/ClassSortRoutine/LCC.pm +++ a/C4/ClassSortRoutine/LCC.pm @@ -22,7 +22,7 @@ use strict; use warnings; use Library::CallNumber::LC; -use vars qw($VERSION); +use vars qw(); # set the version for version checking $VERSION = 3.07.00.049; --- a/C4/ClassSource.pm +++ a/C4/ClassSource.pm @@ -24,7 +24,7 @@ require Exporter; use C4::Context; use C4::ClassSortRoutine; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking $VERSION = 3.07.00.049; --- a/C4/Context.pm +++ a/C4/Context.pm @@ -18,7 +18,7 @@ package C4::Context; use strict; use warnings; -use vars qw($VERSION $AUTOLOAD $context @context_stack $servers $memcached $ismemcached); +use vars qw($AUTOLOAD $context @context_stack $servers $memcached $ismemcached); BEGIN { if ($ENV{'HTTP_USER_AGENT'}) { require CGI::Carp; --- a/C4/Contract.pm +++ a/C4/Contract.pm @@ -23,7 +23,7 @@ use strict; use C4::Context; use Koha::Database; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking --- a/C4/CourseReserves.pm +++ a/C4/CourseReserves.pm @@ -24,7 +24,7 @@ use C4::Items qw(GetItem ModItem); use C4::Biblio qw(GetBiblioFromItemNumber); use C4::Circulation qw(GetOpenIssue); -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS); BEGIN { require Exporter; --- a/C4/Csv.pm +++ a/C4/Csv.pm @@ -23,7 +23,7 @@ package C4::Csv; #use warnings; FIXME - Bug 2505 use C4::Context; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); # set the version for version checking $VERSION = 3.07.00.049; --- a/C4/Debug.pm +++ a/C4/Debug.pm @@ -23,7 +23,7 @@ use warnings; use Exporter; # use CGI qw ( -utf8 ); -use vars qw($VERSION @ISA @EXPORT $debug $cgi_debug); +use vars qw(@ISA @EXPORT $debug $cgi_debug); # use vars qw(@EXPORT_OK %EXPORT_TAGS); BEGIN { --- a/C4/External/Amazon.pm +++ a/C4/External/Amazon.pm @@ -21,7 +21,7 @@ package C4::External::Amazon; use strict; use warnings; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { require Exporter; --- a/C4/External/BakerTaylor.pm +++ a/C4/External/BakerTaylor.pm @@ -27,7 +27,7 @@ use C4::Debug; use strict; use warnings; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); use vars qw($user $pass $agent $image_url $link_url); BEGIN { --- a/C4/External/Syndetics.pm +++ a/C4/External/Syndetics.pm @@ -26,7 +26,7 @@ use HTTP::Request::Common; use strict; use warnings; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { require Exporter; --- a/C4/HoldsQueue.pm +++ a/C4/HoldsQueue.pm @@ -35,7 +35,7 @@ use List::Util qw(shuffle); use List::MoreUtils qw(any); use Data::Dumper; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { $VERSION = 3.03; require Exporter; --- a/C4/Images.pm +++ a/C4/Images.pm @@ -25,7 +25,7 @@ use 5.010; use C4::Context; use GD; -use vars qw($debug $noimage $VERSION @ISA @EXPORT); +use vars qw($debug $noimage @ISA @EXPORT); BEGIN { --- a/C4/ImportBatch.pm +++ a/C4/ImportBatch.pm @@ -30,7 +30,7 @@ use C4::MarcModificationTemplates; use Koha::Plugins::Handler; use Koha::Logger; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { # set the version for version checking --- a/C4/ImportExportFramework.pm +++ a/C4/ImportExportFramework.pm @@ -28,7 +28,7 @@ use C4::Context; use C4::Debug; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { $VERSION = 3.07.00.049; # set version for version checking --- a/C4/InstallAuth.pm +++ a/C4/InstallAuth.pm @@ -28,7 +28,7 @@ use C4::Templates; use C4::Koha; use CGI::Session; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking $VERSION = 3.00; --- a/C4/Items.pm +++ a/C4/Items.pm @@ -39,7 +39,7 @@ use Koha::Database; use Koha::Database; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { $VERSION = 3.07.00.049; --- a/C4/Koha.pm +++ a/C4/Koha.pm @@ -32,7 +32,7 @@ use DateTime::Format::MySQL; use Business::ISBN; use autouse 'Data::cselectall_arrayref' => qw(Dumper); use DBI qw(:sql_types); -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $DEBUG); +use vars qw(@ISA @EXPORT @EXPORT_OK $DEBUG); BEGIN { $VERSION = 3.07.00.049; --- a/C4/Languages.pm +++ a/C4/Languages.pm @@ -26,7 +26,7 @@ use Carp; use CGI; use List::MoreUtils qw( any ); use C4::Context; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); eval { if (C4::Context->ismemcached) { --- a/C4/Letters.pm +++ a/C4/Letters.pm @@ -39,7 +39,7 @@ use Carp; use Koha::Email; use Koha::DateUtils qw( format_sqldatetime ); -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { require Exporter; --- a/C4/Log.pm +++ a/C4/Log.pm @@ -27,7 +27,7 @@ use warnings; use C4::Context; use Koha::DateUtils; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking --- a/C4/MarcModificationTemplates.pm +++ a/C4/MarcModificationTemplates.pm @@ -24,7 +24,7 @@ use DateTime; use C4::Context; use Koha::SimpleMARC; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); use constant DEBUG => 0; --- a/C4/Matcher.pm +++ a/C4/Matcher.pm @@ -23,7 +23,7 @@ use warnings; use C4::Context; use MARC::Record; -use vars qw($VERSION); +use vars qw(); BEGIN { # set the version for version checking --- a/C4/Members/AttributeTypes.pm +++ a/C4/Members/AttributeTypes.pm @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Context; -use vars qw($VERSION); +use vars qw(); BEGIN { # set the version for version checking --- a/C4/Members/Attributes.pm +++ a/C4/Members/Attributes.pm @@ -24,7 +24,7 @@ use Text::CSV; # Don't be tempted to use Text::CSV::Unicode -- even in bina use C4::Context; use C4::Members::AttributeTypes; -use vars qw($VERSION @ISA @EXPORT_OK @EXPORT %EXPORT_TAGS); +use vars qw(@ISA @EXPORT_OK @EXPORT %EXPORT_TAGS); our ($csv, $AttributeTypes); BEGIN { --- a/C4/Members/Messaging.pm +++ a/C4/Members/Messaging.pm @@ -21,7 +21,7 @@ use strict; use warnings; use C4::Context; -use vars qw($VERSION); +use vars qw(); BEGIN { # set the version for version checking --- a/C4/NewsChannels.pm +++ a/C4/NewsChannels.pm @@ -22,7 +22,7 @@ use Modern::Perl; use C4::Context; use Koha::DateUtils; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { $VERSION = 3.07.00.049; # set the version for version checking --- a/C4/Output.pm +++ a/C4/Output.pm @@ -33,7 +33,7 @@ use URI::Escape; use C4::Context; use C4::Templates; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { # set the version for version checking --- a/C4/Overdues.pm +++ a/C4/Overdues.pm @@ -37,7 +37,7 @@ use Koha::DateUtils; use Koha::Account::Line; use Koha::Account::Lines; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking --- a/C4/Passwordrecovery.pm +++ a/C4/Passwordrecovery.pm @@ -21,7 +21,7 @@ use Modern::Perl; use C4::Context; use Crypt::Eksblowfish::Bcrypt qw(en_base64); -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking --- a/C4/Print.pm +++ a/C4/Print.pm @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Context; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking --- a/C4/Ratings.pm +++ a/C4/Ratings.pm @@ -28,7 +28,7 @@ use C4::Context; use Koha::Database; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { $VERSION = 3.07.00.049; --- a/C4/Record.pm +++ a/C4/Record.pm @@ -39,7 +39,7 @@ use Koha::SimpleMARC qw(read_field); use Koha::XSLT_Handler; use Carp; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); # set the version for version checking $VERSION = 3.07.00.049; --- a/C4/Reports.pm +++ a/C4/Reports.pm @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use CGI qw ( -utf8 ); -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); use C4::Context; use C4::Debug; --- a/C4/Reports/Guided.pm +++ a/C4/Reports/Guided.pm @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Carp; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); use C4::Context; use C4::Templates qw/themelanguage/; use C4::Koha; --- a/C4/Reserves.pm +++ a/C4/Reserves.pm @@ -45,7 +45,7 @@ use Koha::Libraries; use List::MoreUtils qw( firstidx any ); use Carp; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); =head1 NAME --- a/C4/Review.pm +++ a/C4/Review.pm @@ -22,7 +22,7 @@ use warnings; use C4::Context; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking --- a/C4/Ris.pm +++ a/C4/Ris.pm @@ -62,7 +62,7 @@ package C4::Ris; use Modern::Perl; use List::MoreUtils qw/uniq/; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField); use Koha::SimpleMARC qw(read_field); --- a/C4/RotatingCollections.pm +++ a/C4/RotatingCollections.pm @@ -33,7 +33,7 @@ use DBI; use Data::Dumper; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); # set the version for version checking $VERSION = 3.07.00.049; --- a/C4/SIP/Sip.pm +++ a/C4/SIP/Sip.pm @@ -16,7 +16,7 @@ use IO::Handle; use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG); use C4::SIP::Sip::Checksum qw(checksum); -use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS); BEGIN { $VERSION = 3.07.00.049; --- a/C4/SIP/Sip/MsgType.pm +++ a/C4/SIP/Sip/MsgType.pm @@ -21,7 +21,7 @@ use C4::Auth qw(&check_api_auth); use UNIVERSAL::can; -use vars qw(@ISA $VERSION @EXPORT_OK); +use vars qw(@ISA @EXPORT_OK); use constant INVALID_CARD => 'Invalid cardnumber'; use constant INVALID_PW => 'Invalid password'; --- a/C4/SIP/t/SIPtest.pm +++ a/C4/SIP/t/SIPtest.pm @@ -4,7 +4,7 @@ use strict; use warnings; use Exporter; -use vars qw(@ISA $VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); use Data::Dumper; --- a/C4/SMS.pm +++ a/C4/SMS.pm @@ -37,7 +37,7 @@ use warnings; use C4::Context; -use vars qw( $VERSION ); +use vars qw( ); BEGIN { $VERSION = 3.07.00.049; --- a/C4/Scheduler.pm +++ a/C4/Scheduler.pm @@ -20,7 +20,7 @@ package C4::Scheduler; use strict; #use warnings; FIXME - Bug 2505 -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); use C4::Context; use Schedule::At; --- a/C4/Search.pm +++ a/C4/Search.pm @@ -37,7 +37,7 @@ use URI::Escape; use Business::ISBN; use MARC::Record; use MARC::Field; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); # set the version for version checking BEGIN { --- a/C4/Serials.pm +++ a/C4/Serials.pm @@ -36,7 +36,7 @@ use Koha::Serial; use Koha::Subscriptions; use Koha::Subscription::Histories; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # Define statuses use constant { --- a/C4/Serials/Frequency.pm +++ a/C4/Serials/Frequency.pm @@ -22,7 +22,7 @@ use warnings; use C4::Context; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking --- a/C4/Serials/Numberpattern.pm +++ a/C4/Serials/Numberpattern.pm @@ -22,7 +22,7 @@ use warnings; use C4::Context; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { --- a/C4/ShelfBrowser.pm +++ a/C4/ShelfBrowser.pm @@ -27,7 +27,7 @@ use C4::Branch; use C4::Context; use C4::Koha; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); +use vars qw(@ISA @EXPORT @EXPORT_OK); BEGIN { $VERSION = 3.07.00.049; --- a/C4/Stats.pm +++ a/C4/Stats.pm @@ -24,7 +24,7 @@ require Exporter; use Carp; use C4::Context; use C4::Debug; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); our $debug; --- a/C4/Tags.pm +++ a/C4/Tags.pm @@ -29,7 +29,7 @@ use C4::Debug; use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language date_created); use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM tags_all\n"; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); our $ext_dict; BEGIN { --- a/C4/TmplTokenType.pm +++ a/C4/TmplTokenType.pm @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 require Exporter; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); ############################################################################### --- a/C4/Utils/DataTables.pm +++ a/C4/Utils/DataTables.pm @@ -20,7 +20,7 @@ package C4::Utils::DataTables; use Modern::Perl; require Exporter; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); BEGIN { $VERSION = 3.07.00.049, --- a/C4/XISBN.pm +++ a/C4/XISBN.pm @@ -28,7 +28,7 @@ use HTTP::Request::Common; use strict; #use warnings; FIXME - Bug 2505 -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { require Exporter; --- a/C4/XSLT.pm +++ a/C4/XSLT.pm @@ -36,7 +36,7 @@ use Koha::Libraries; use Encode; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); my $engine; #XSLT Handler object my %authval_per_framework; --- a/Koha/Misc/Files.pm +++ a/Koha/Misc/Files.pm @@ -20,7 +20,7 @@ package Koha::Misc::Files; # along with Koha; if not, see . use Modern::Perl; -use vars qw($VERSION); +use vars qw(); $VERSION = '0.25'; use C4::Context; --- a/Koha/Patron/Files.pm +++ a/Koha/Patron/Files.pm @@ -19,7 +19,7 @@ package Koha::Patron::Files; use Modern::Perl; -use vars qw($VERSION); +use vars qw(); use C4::Context; use C4::Output; --- a/Koha/Template/Plugin/Cache.pm +++ a/Koha/Template/Plugin/Cache.pm @@ -19,7 +19,7 @@ package Koha::Template::Plugin::Cache; use strict; use warnings; -use vars qw( $VERSION ); +use vars qw( ); use base qw( Template::Plugin ); use Template::Plugin; use C4::Context; --- a/acqui/pdfformat/layout2pages.pm +++ a/acqui/pdfformat/layout2pages.pm @@ -22,7 +22,7 @@ #you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub. package pdfformat::layout2pages; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); use MIME::Base64; use strict; use warnings; --- a/acqui/pdfformat/layout2pagesde.pm +++ a/acqui/pdfformat/layout2pagesde.pm @@ -22,7 +22,7 @@ #you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub. package pdfformat::layout2pagesde; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); use MIME::Base64; use strict; use warnings; --- a/acqui/pdfformat/layout3pages.pm +++ a/acqui/pdfformat/layout3pages.pm @@ -22,7 +22,7 @@ #you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub. package pdfformat::layout3pages; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); use MIME::Base64; use List::MoreUtils qw/uniq/; use strict; --- a/acqui/pdfformat/layout3pagesfr.pm +++ a/acqui/pdfformat/layout3pagesfr.pm @@ -21,7 +21,7 @@ #you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub. package pdfformat::layout3pagesfr; -use vars qw($VERSION @ISA @EXPORT); +use vars qw(@ISA @EXPORT); use MIME::Base64; use List::MoreUtils qw/uniq/; use strict; --- a/install_misc/UpgradeBackup.pm +++ a/install_misc/UpgradeBackup.pm @@ -26,7 +26,7 @@ use File::Find; use File::Spec; use Exporter; -use vars qw(@ISA @EXPORT $VERSION); +use vars qw(@ISA @EXPORT ); @ISA = ('Exporter'); @EXPORT = ('backup_changed_files'); --- a/misc/translator/TmplTokenizer.pm +++ a/misc/translator/TmplTokenizer.pm @@ -8,7 +8,7 @@ use C4::TTParser; use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic ); require Exporter; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); ############################################################################### --- a/misc/translator/VerboseWarnings.pm +++ a/misc/translator/VerboseWarnings.pm @@ -4,7 +4,7 @@ use strict; #use warnings; FIXME - Bug 2505 require Exporter; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); ############################################################################### --