From 798d38e4c7de0c920070b5db2249030cc9cb742c Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 9 Mar 2016 08:40:29 +0000 Subject: [PATCH] Bug 16011: $VERSION - Remove comments perl -p -i -e 's/^.*set the version for version checking.*\n//' **/*.pm + manual adjustements Signed-off-by: Josef Moravec Signed-off-by: Tomas Cohen Arazi Signed-off-by: Brendan A Gallagher --- C4/Accounts.pm | 1 - C4/Acquisition.pm | 1 - C4/AuthoritiesMarc.pm | 1 - C4/BackgroundJob.pm | 1 - C4/Bookseller.pm | 1 - C4/Branch.pm | 1 - C4/Breeding.pm | 1 - C4/Budgets.pm | 1 - C4/Charset.pm | 1 - C4/ClassSortRoutine.pm | 1 - C4/ClassSortRoutine/Dewey.pm | 1 - C4/ClassSortRoutine/Generic.pm | 1 - C4/ClassSortRoutine/LCC.pm | 1 - C4/ClassSource.pm | 1 - C4/Contract.pm | 1 - C4/Csv.pm | 1 - C4/Images.pm | 1 - C4/ImportBatch.pm | 1 - C4/InstallAuth.pm | 1 - C4/Letters.pm | 1 - C4/Log.pm | 1 - C4/Matcher.pm | 1 - C4/Members.pm | 2 +- C4/Members/AttributeTypes.pm | 1 - C4/Members/Attributes.pm | 1 - C4/Members/Messaging.pm | 1 - C4/Output.pm | 1 - C4/Overdues.pm | 1 - C4/Print.pm | 1 - C4/Record.pm | 1 - C4/Reports.pm | 1 - C4/Reports/Guided.pm | 1 - C4/Reserves.pm | 1 - C4/Review.pm | 1 - C4/Ris.pm | 1 - C4/RotatingCollections.pm | 1 - C4/Scheduler.pm | 1 - C4/Search.pm | 1 - C4/Serials/Frequency.pm | 1 - C4/Serials/Numberpattern.pm | 1 - C4/Stats.pm | 1 - Koha/Calendar.pm | 4 ---- Koha/DateUtils.pm | 1 - Koha/NorwegianPatronDB.pm | 1 - Koha/Patron/Files.pm | 1 - Koha/Patron/Password/Recovery.pm | 1 - acqui/pdfformat/layout2pages.pm | 3 +-- acqui/pdfformat/layout2pagesde.pm | 3 +-- acqui/pdfformat/layout3pages.pm | 3 +-- acqui/pdfformat/layout3pagesfr.pm | 3 +-- installer/data/mysql/backfill_statistics.pl | 3 +-- misc/cronjobs/MARC21_parse_test.pl | 3 --- misc/cronjobs/runreport.pl | 3 --- misc/maintenance/MARC21_utf8_flag_fix.pl | 3 --- 54 files changed, 6 insertions(+), 68 deletions(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index be853a7f93..5243712fe5 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -31,7 +31,6 @@ use Data::Dumper qw(Dumper); use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 27738be220..f51cbdf423 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -44,7 +44,6 @@ use HTML::Entities; use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index d6f7d34b60..39ce8150b6 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -33,7 +33,6 @@ use Koha::Authority::Types; use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); diff --git a/C4/BackgroundJob.pm b/C4/BackgroundJob.pm index 09bad9a918..934611f32a 100644 --- a/C4/BackgroundJob.pm +++ b/C4/BackgroundJob.pm @@ -27,7 +27,6 @@ use Digest::MD5; use vars qw(); BEGIN { - # set the version for version checking } =head1 NAME diff --git a/C4/Bookseller.pm b/C4/Bookseller.pm index 2dbf4271df..44b93895fa 100644 --- a/C4/Bookseller.pm +++ b/C4/Bookseller.pm @@ -25,7 +25,6 @@ use base qw( Exporter ); use C4::Bookseller::Contact; -# set the version for version checking our @EXPORT_OK = qw( GetBooksellersWithLateOrders ModBookseller diff --git a/C4/Branch.pm b/C4/Branch.pm index 78aa7a0232..5925d08997 100644 --- a/C4/Branch.pm +++ b/C4/Branch.pm @@ -25,7 +25,6 @@ use Koha::LibraryCategories; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { - # set the version for version checking @ISA = qw(Exporter); @EXPORT = qw( &GetBranchName diff --git a/C4/Breeding.pm b/C4/Breeding.pm index 0b1dec5655..ee14c81d7c 100644 --- a/C4/Breeding.pm +++ b/C4/Breeding.pm @@ -34,7 +34,6 @@ use Koha::XSLT_Handler; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw(&BreedingSearch &Z3950Search &Z3950SearchAuth); diff --git a/C4/Budgets.pm b/C4/Budgets.pm index 547d7269ed..db936be0c4 100644 --- a/C4/Budgets.pm +++ b/C4/Budgets.pm @@ -25,7 +25,6 @@ use C4::Debug; use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/Charset.pm b/C4/Charset.pm index 173f9d28d1..1f2a8c9570 100644 --- a/C4/Charset.pm +++ b/C4/Charset.pm @@ -29,7 +29,6 @@ use Encode qw( decode encode is_utf8 ); use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/ClassSortRoutine.pm b/C4/ClassSortRoutine.pm index a0ce00cc60..d5fd8a092e 100644 --- a/C4/ClassSortRoutine.pm +++ b/C4/ClassSortRoutine.pm @@ -26,7 +26,6 @@ use C4::Context; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); -# set the version for version checking =head1 NAME diff --git a/C4/ClassSortRoutine/Dewey.pm b/C4/ClassSortRoutine/Dewey.pm index 3f9c97e1df..f2c499f80b 100644 --- a/C4/ClassSortRoutine/Dewey.pm +++ b/C4/ClassSortRoutine/Dewey.pm @@ -22,7 +22,6 @@ use warnings; use vars qw(); -# set the version for version checking =head1 NAME diff --git a/C4/ClassSortRoutine/Generic.pm b/C4/ClassSortRoutine/Generic.pm index 458200c7fa..94888ba6d4 100644 --- a/C4/ClassSortRoutine/Generic.pm +++ b/C4/ClassSortRoutine/Generic.pm @@ -22,7 +22,6 @@ use warnings; use vars qw(); -# set the version for version checking =head1 NAME diff --git a/C4/ClassSortRoutine/LCC.pm b/C4/ClassSortRoutine/LCC.pm index aac52218a5..8aa6f6d1ad 100644 --- a/C4/ClassSortRoutine/LCC.pm +++ b/C4/ClassSortRoutine/LCC.pm @@ -24,7 +24,6 @@ use Library::CallNumber::LC; use vars qw(); -# set the version for version checking =head1 NAME diff --git a/C4/ClassSource.pm b/C4/ClassSource.pm index 5f8cfe3fec..bb7807471b 100644 --- a/C4/ClassSource.pm +++ b/C4/ClassSource.pm @@ -26,7 +26,6 @@ use C4::ClassSortRoutine; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); -# set the version for version checking =head1 NAME diff --git a/C4/Contract.pm b/C4/Contract.pm index b1e7c5c4bc..0de49ad361 100644 --- a/C4/Contract.pm +++ b/C4/Contract.pm @@ -26,7 +26,6 @@ use Koha::Database; use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/Csv.pm b/C4/Csv.pm index 3e6fb120c3..ce4693a86e 100644 --- a/C4/Csv.pm +++ b/C4/Csv.pm @@ -25,7 +25,6 @@ package C4::Csv; use C4::Context; use vars qw(@ISA @EXPORT); -# set the version for version checking @ISA = qw(Exporter); diff --git a/C4/Images.pm b/C4/Images.pm index f956c919df..37b24179aa 100644 --- a/C4/Images.pm +++ b/C4/Images.pm @@ -29,7 +29,6 @@ use vars qw($debug $noimage @ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm index ffe63777c8..77ba9f3c08 100644 --- a/C4/ImportBatch.pm +++ b/C4/ImportBatch.pm @@ -33,7 +33,6 @@ use Koha::Logger; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/InstallAuth.pm b/C4/InstallAuth.pm index 005aea12e6..c91bde877d 100644 --- a/C4/InstallAuth.pm +++ b/C4/InstallAuth.pm @@ -30,7 +30,6 @@ use CGI::Session; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); -# set the version for version checking =head1 NAME diff --git a/C4/Letters.pm b/C4/Letters.pm index 31e67f1701..f3278900cf 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -43,7 +43,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { require Exporter; - # set the version for version checking @ISA = qw(Exporter); @EXPORT = qw( &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages &GetMessageTransportTypes diff --git a/C4/Log.pm b/C4/Log.pm index 0fe77116de..de5f1d0a15 100644 --- a/C4/Log.pm +++ b/C4/Log.pm @@ -30,7 +30,6 @@ use Koha::DateUtils; use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw(&logaction &cronlogaction &GetLogStatus &displaylog &GetLogs); diff --git a/C4/Matcher.pm b/C4/Matcher.pm index d40db5f78e..279c0ccb76 100644 --- a/C4/Matcher.pm +++ b/C4/Matcher.pm @@ -26,7 +26,6 @@ use MARC::Record; use vars qw(); BEGIN { - # set the version for version checking } =head1 NAME diff --git a/C4/Members.pm b/C4/Members.pm index e4b36bf299..2b8f91335e 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -41,7 +41,7 @@ use Text::Unaccent qw( unac_string ); use Koha::AuthUtils qw(hash_password); use Koha::Database; -our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,$debug); +our (@ISA,@EXPORT,@EXPORT_OK,$debug); use Module::Load::Conditional qw( can_load ); if ( ! can_load( modules => { 'Koha::NorwegianPatronDB' => undef } ) ) { diff --git a/C4/Members/AttributeTypes.pm b/C4/Members/AttributeTypes.pm index fe5be4e589..5ba395cb1c 100644 --- a/C4/Members/AttributeTypes.pm +++ b/C4/Members/AttributeTypes.pm @@ -24,7 +24,6 @@ use C4::Context; use vars qw(); BEGIN { - # set the version for version checking } =head1 NAME diff --git a/C4/Members/Attributes.pm b/C4/Members/Attributes.pm index 950059679c..eedaae153c 100644 --- a/C4/Members/Attributes.pm +++ b/C4/Members/Attributes.pm @@ -28,7 +28,6 @@ use vars qw(@ISA @EXPORT_OK @EXPORT %EXPORT_TAGS); our ($csv, $AttributeTypes); BEGIN { - # set the version for version checking @ISA = qw(Exporter); @EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes DeleteBorrowerAttribute UpdateBorrowerAttribute diff --git a/C4/Members/Messaging.pm b/C4/Members/Messaging.pm index 3b1c14bec3..916872e469 100644 --- a/C4/Members/Messaging.pm +++ b/C4/Members/Messaging.pm @@ -24,7 +24,6 @@ use C4::Context; use vars qw(); BEGIN { - # set the version for version checking } =head1 NAME diff --git a/C4/Output.pm b/C4/Output.pm index fe88a1aab3..af7dd5a22b 100644 --- a/C4/Output.pm +++ b/C4/Output.pm @@ -36,7 +36,6 @@ use C4::Templates; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); diff --git a/C4/Overdues.pm b/C4/Overdues.pm index edc3cbbe5a..cc67b16560 100644 --- a/C4/Overdues.pm +++ b/C4/Overdues.pm @@ -40,7 +40,6 @@ use Koha::Account::Lines; use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); diff --git a/C4/Print.pm b/C4/Print.pm index 2286e2cd79..d0f2642412 100644 --- a/C4/Print.pm +++ b/C4/Print.pm @@ -24,7 +24,6 @@ use C4::Context; use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw(&NetworkPrint); diff --git a/C4/Record.pm b/C4/Record.pm index d001945f18..d24d631d66 100644 --- a/C4/Record.pm +++ b/C4/Record.pm @@ -41,7 +41,6 @@ use Carp; use vars qw(@ISA @EXPORT); -# set the version for version checking @ISA = qw(Exporter); diff --git a/C4/Reports.pm b/C4/Reports.pm index 83e6f4c076..b89be52e87 100644 --- a/C4/Reports.pm +++ b/C4/Reports.pm @@ -26,7 +26,6 @@ use C4::Context; use C4::Debug; BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/Reports/Guided.pm b/C4/Reports/Guided.pm index b27801c82f..c55d54de52 100644 --- a/C4/Reports/Guided.pm +++ b/C4/Reports/Guided.pm @@ -37,7 +37,6 @@ use C4::Log; use Koha::AuthorisedValues; BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/Reserves.pm b/C4/Reserves.pm index 42a539d912..fbeca065f0 100644 --- a/C4/Reserves.pm +++ b/C4/Reserves.pm @@ -91,7 +91,6 @@ This modules provides somes functions to deal with reservations. =cut BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/Review.pm b/C4/Review.pm index 71df6604c7..5d56396f21 100644 --- a/C4/Review.pm +++ b/C4/Review.pm @@ -25,7 +25,6 @@ use C4::Context; use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber diff --git a/C4/Ris.pm b/C4/Ris.pm index e158cabcf8..a1db07f0be 100644 --- a/C4/Ris.pm +++ b/C4/Ris.pm @@ -67,7 +67,6 @@ use vars qw(@ISA @EXPORT); use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField); use Koha::SimpleMARC qw(read_field); -# set the version for version checking @ISA = qw(Exporter); diff --git a/C4/RotatingCollections.pm b/C4/RotatingCollections.pm index 4f7473bfca..709eaf2164 100644 --- a/C4/RotatingCollections.pm +++ b/C4/RotatingCollections.pm @@ -35,7 +35,6 @@ use Data::Dumper; use vars qw(@ISA @EXPORT); -# set the version for version checking =head1 NAME diff --git a/C4/Scheduler.pm b/C4/Scheduler.pm index 24f46febf6..304a05015d 100644 --- a/C4/Scheduler.pm +++ b/C4/Scheduler.pm @@ -25,7 +25,6 @@ use C4::Context; use Schedule::At; BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = diff --git a/C4/Search.pm b/C4/Search.pm index fc4ac2da34..9b7bde3b5f 100644 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -39,7 +39,6 @@ use MARC::Record; use MARC::Field; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); -# set the version for version checking BEGIN { $DEBUG = ($ENV{DEBUG}) ? 1 : 0; } diff --git a/C4/Serials/Frequency.pm b/C4/Serials/Frequency.pm index 58ae709555..509f6801f5 100644 --- a/C4/Serials/Frequency.pm +++ b/C4/Serials/Frequency.pm @@ -25,7 +25,6 @@ use C4::Context; use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/Serials/Numberpattern.pm b/C4/Serials/Numberpattern.pm index 97ed4593e5..210b8dd487 100644 --- a/C4/Serials/Numberpattern.pm +++ b/C4/Serials/Numberpattern.pm @@ -26,7 +26,6 @@ use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( diff --git a/C4/Stats.pm b/C4/Stats.pm index 2250007e81..54e3a390be 100644 --- a/C4/Stats.pm +++ b/C4/Stats.pm @@ -29,7 +29,6 @@ use vars qw(@ISA @EXPORT); our $debug; BEGIN { - # set the version for version checking @ISA = qw(Exporter); @EXPORT = qw( &UpdateStats diff --git a/Koha/Calendar.pm b/Koha/Calendar.pm index a0b642b3cc..7095acab01 100644 --- a/Koha/Calendar.pm +++ b/Koha/Calendar.pm @@ -381,10 +381,6 @@ __END__ Koha::Calendar - Object containing a branches calendar -=head1 VERSION - -This documentation refers to Koha::Calendar version 0.0.1 - =head1 SYNOPSIS use Koha::Calendar diff --git a/Koha/DateUtils.pm b/Koha/DateUtils.pm index 65afaea36e..6207cc126b 100644 --- a/Koha/DateUtils.pm +++ b/Koha/DateUtils.pm @@ -22,7 +22,6 @@ use C4::Context; use Carp; use base 'Exporter'; -use version; our $VERSION = qv('1.0.0'); our @EXPORT = ( qw( dt_from_string output_pref format_sqldatetime ) diff --git a/Koha/NorwegianPatronDB.pm b/Koha/NorwegianPatronDB.pm index 585dfd2154..237ddd7d54 100644 --- a/Koha/NorwegianPatronDB.pm +++ b/Koha/NorwegianPatronDB.pm @@ -61,7 +61,6 @@ use Convert::BaseN; use DateTime; use base 'Exporter'; -use version; our $VERSION = qv('1.0.0'); our %EXPORT_TAGS = ( all => [qw( NLCheckSysprefs diff --git a/Koha/Patron/Files.pm b/Koha/Patron/Files.pm index 1d52665f1c..4c5358c8e7 100644 --- a/Koha/Patron/Files.pm +++ b/Koha/Patron/Files.pm @@ -27,7 +27,6 @@ use C4::Debug; BEGIN { - # set the version for version checking } =head1 NAME diff --git a/Koha/Patron/Password/Recovery.pm b/Koha/Patron/Password/Recovery.pm index 185b8d030d..cc59a6c547 100644 --- a/Koha/Patron/Password/Recovery.pm +++ b/Koha/Patron/Password/Recovery.pm @@ -24,7 +24,6 @@ use Crypt::Eksblowfish::Bcrypt qw(en_base64); use vars qw(@ISA @EXPORT); BEGIN { - # set the version for version checking require Exporter; @ISA = qw(Exporter); push @EXPORT, qw( diff --git a/acqui/pdfformat/layout2pages.pm b/acqui/pdfformat/layout2pages.pm index 2fc78ee0fd..124a48a2ca 100644 --- a/acqui/pdfformat/layout2pages.pm +++ b/acqui/pdfformat/layout2pages.pm @@ -34,8 +34,7 @@ use Koha::Libraries; BEGIN { use Exporter (); - our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); - # set the version for version checking + our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); @ISA = qw(Exporter); @EXPORT = qw(printpdf); } diff --git a/acqui/pdfformat/layout2pagesde.pm b/acqui/pdfformat/layout2pagesde.pm index c0c228fea4..37706c3ea3 100644 --- a/acqui/pdfformat/layout2pagesde.pm +++ b/acqui/pdfformat/layout2pagesde.pm @@ -34,8 +34,7 @@ use Koha::Libraries; BEGIN { use Exporter (); - our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); - # set the version for version checking + our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); @ISA = qw(Exporter); @EXPORT = qw(printpdf); } diff --git a/acqui/pdfformat/layout3pages.pm b/acqui/pdfformat/layout3pages.pm index f0c6627d96..cedd9b9693 100644 --- a/acqui/pdfformat/layout3pages.pm +++ b/acqui/pdfformat/layout3pages.pm @@ -37,8 +37,7 @@ use Koha::Libraries; BEGIN { use Exporter (); - our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); - # set the version for version checking + our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); @ISA = qw(Exporter); @EXPORT = qw(printpdf); } diff --git a/acqui/pdfformat/layout3pagesfr.pm b/acqui/pdfformat/layout3pagesfr.pm index 157236a8ee..694f0cb86b 100644 --- a/acqui/pdfformat/layout3pagesfr.pm +++ b/acqui/pdfformat/layout3pagesfr.pm @@ -36,8 +36,7 @@ use Koha::Libraries; BEGIN { use Exporter (); - our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); - # set the version for version checking + our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); @ISA = qw(Exporter); @EXPORT = qw(printpdf); } diff --git a/installer/data/mysql/backfill_statistics.pl b/installer/data/mysql/backfill_statistics.pl index 361f544788..d03b46177d 100755 --- a/installer/data/mysql/backfill_statistics.pl +++ b/installer/data/mysql/backfill_statistics.pl @@ -16,9 +16,8 @@ use C4::Items; use C4::Debug; use Data::Dumper; -use vars qw($debug $dbh $VERSION); +use vars qw($debug $dbh); $dbh = C4::Context->dbh; -$VERSION = "1.00"; sub get_counts() { my $query = q( diff --git a/misc/cronjobs/MARC21_parse_test.pl b/misc/cronjobs/MARC21_parse_test.pl index 83b4cf0d33..f745f11b99 100755 --- a/misc/cronjobs/MARC21_parse_test.pl +++ b/misc/cronjobs/MARC21_parse_test.pl @@ -34,14 +34,11 @@ use C4::Charset; use C4::Context; use C4::Debug; -use vars qw($VERSION); - BEGIN { # find Koha's Perl modules # test carefully before changing this use FindBin; eval { require "$FindBin::Bin/../kohalib.pl" }; - $VERSION = 0.03; } our $debug; diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl index ddfb6eea6f..4602fe7304 100755 --- a/misc/cronjobs/runreport.pl +++ b/misc/cronjobs/runreport.pl @@ -35,14 +35,11 @@ use CGI qw ( -utf8 ); use Carp; use Encode; -use vars qw($VERSION); - BEGIN { # find Koha's Perl modules # test carefully before changing this use FindBin; eval { require "$FindBin::Bin/../kohalib.pl" }; - $VERSION = 0.22; } =head1 NAME diff --git a/misc/maintenance/MARC21_utf8_flag_fix.pl b/misc/maintenance/MARC21_utf8_flag_fix.pl index b0efb8d526..17b885d9f8 100755 --- a/misc/maintenance/MARC21_utf8_flag_fix.pl +++ b/misc/maintenance/MARC21_utf8_flag_fix.pl @@ -30,14 +30,11 @@ use C4::Charset; use C4::Context; use C4::Debug; -use vars qw($VERSION); - BEGIN { # find Koha's Perl modules # test carefully before changing this use FindBin; eval { require "$FindBin::Bin/../kohalib.pl" }; - $VERSION = 0.02; } our $debug; -- 2.39.2