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 <josef.moravec@gmail.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@unc.edu.ar>
Signed-off-by: Brendan A Gallagher <brendan@bywatersolutions.com>

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index be853a7..5243712 100644 (file)
--- 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 27738be..f51cbdf 100644 (file)
--- 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 d6f7d34..39ce815 100644 (file)
--- 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 09bad9a..934611f 100644 (file)
--- 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 2dbf427..44b9389 100644 (file)
--- 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 78aa7a0..5925d08 100644 (file)
--- 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 0b1dec5..ee14c81 100644 (file)
--- 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 547d726..db936be 100644 (file)
--- 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 173f9d2..1f2a8c9 100644 (file)
--- 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 a0ce00c..d5fd8a0 100644 (file)
--- 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 3f9c97e..f2c499f 100644 (file)
--- 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 458200c..94888ba 100644 (file)
--- 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 aac5221..8aa6f6d 100644 (file)
--- 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 5f8cfe3..bb78074 100644 (file)
--- 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 b1e7c5c..0de49ad 100644 (file)
--- 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 3e6fb12..ce4693a 100644 (file)
--- 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 f956c91..37b2417 100644 (file)
--- 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 ffe6377..77ba9f3 100644 (file)
--- 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 005aea1..c91bde8 100644 (file)
--- 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 31e67f1..f327890 100644 (file)
--- 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 0fe7711..de5f1d0 100644 (file)
--- 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 d40db5f..279c0cc 100644 (file)
--- 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 e4b36bf..2b8f913 100644 (file)
--- 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 fe5be4e..5ba395c 100644 (file)
--- 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 9500596..eedaae1 100644 (file)
--- 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 3b1c14b..916872e 100644 (file)
--- 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 fe88a1a..af7dd5a 100644 (file)
--- 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 edc3cbb..cc67b16 100644 (file)
--- 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 2286e2c..d0f2642 100644 (file)
--- 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 d001945..d24d631 100644 (file)
--- 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 83e6f4c..b89be52 100644 (file)
--- 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 b27801c..c55d54d 100644 (file)
--- 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 42a539d..fbeca06 100644 (file)
--- 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 71df660..5d56396 100644 (file)
--- 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 e158cab..a1db07f 100644 (file)
--- 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 4f7473b..709eaf2 100644 (file)
--- 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 24f46fe..304a050 100644 (file)
--- 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 fc4ac2d..9b7bde3 100644 (file)
--- 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 58ae709..509f680 100644 (file)
--- 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 97ed459..210b8dd 100644 (file)
--- 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 2250007..54e3a39 100644 (file)
--- 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 a0b642b..7095aca 100644 (file)
--- 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 65afaea..6207cc1 100644 (file)
--- 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 585dfd2..237ddd7 100644 (file)
--- 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 1d52665..4c5358c 100644 (file)
--- 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 185b8d0..cc59a6c 100644 (file)
--- 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 2fc78ee..124a48a 100644 (file)
--- 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 c0c228f..37706c3 100644 (file)
--- 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 f0c6627..cedd9b9 100644 (file)
--- 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 157236a..694f0cb 100644 (file)
--- 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 361f544..d03b461 100755 (executable)
--- 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 83b4cf0..f745f11 100755 (executable)
--- 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 ddfb6ee..4602fe7 100755 (executable)
--- 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 b0efb8d..17b885d 100755 (executable)
--- 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;