Bug 16011: $VERSION - Remove the $VERSION init

Mainly a perl -p -i -e 's/^.*3.07.00.049.*\n//' **/*.pm Then some 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>
5 years ago · 017699c345
129 changed files with 0 additions and 129 deletions
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@ -32,7 +32,6 @@ use vars qw(@ISA @EXPORT);

 BEGIN {
 	# set the version for version checking
-    $VERSION = 3.07.00.049;
 	require Exporter;
 	@ISA    = qw(Exporter);
 	@EXPORT = qw(
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@ -45,7 +45,6 @@ use vars qw(@ISA @EXPORT);

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT = qw(
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@ -49,7 +49,6 @@ BEGIN {
        if   (psgi_env) { die 'psgi:exit' }
        else            { exit }
    }
-    $VERSION = 3.07.00.049;    # set version for version checking

    $debug     = $ENV{DEBUG};
    @ISA       = qw(Exporter);
--- a/C4/Auth_with_cas.pm
+++ b/C4/Auth_with_cas.pm
@ -32,7 +32,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);

 BEGIN {
 	require Exporter;
-    $VERSION = 3.07.00.049;	# set the version for version checking
 	$debug = $ENV{DEBUG};
 	@ISA    = qw(Exporter);
 	@EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url);
--- a/C4/Auth_with_ldap.pm
+++ b/C4/Auth_with_ldap.pm
@ -37,7 +37,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);

 BEGIN {
 	require Exporter;
-    $VERSION = 3.07.00.049;	# set the version for version checking
 	@ISA    = qw(Exporter);
 	@EXPORT = qw( checkpw_ldap );
 }
--- a/C4/Auth_with_shibboleth.pm
+++ b/C4/Auth_with_shibboleth.pm
@ -29,7 +29,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);

 BEGIN {
    require Exporter;
-    $VERSION = 3.03;           # set the version for version checking
    $debug   = $ENV{DEBUG};
    @ISA     = qw(Exporter);
    @EXPORT =
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@ -34,7 +34,6 @@ use vars qw(@ISA @EXPORT);

 BEGIN {
 	# set the version for version checking
-    $VERSION = 3.07.00.049;

 	require Exporter;
 	@ISA = qw(Exporter);
--- a/C4/AuthoritiesMarc/MARC21.pm
+++ b/C4/AuthoritiesMarc/MARC21.pm
@ -20,7 +20,6 @@ package C4::AuthoritiesMarc::MARC21;
 use strict;
 #use warnings; FIXME - Bug 2505
 use MARC::Record;
-our $VERSION = 3.07.00.049;

 =head1 NAME

--- a/C4/AuthoritiesMarc/UNIMARC.pm
+++ b/C4/AuthoritiesMarc/UNIMARC.pm
@ -19,7 +19,6 @@ package C4::AuthoritiesMarc::UNIMARC;

 use strict;
 #use warnings; FIXME - Bug 2505
-our $VERSION = 3.07.00.049;

 =head1 NAME

--- a/C4/BackgroundJob.pm
+++ b/C4/BackgroundJob.pm
@ -28,7 +28,6 @@ use vars qw();

 BEGIN {
 	# set the version for version checking
-    $VERSION = 3.07.00.049;
 }

 =head1 NAME
--- a/C4/Barcodes.pm
+++ b/C4/Barcodes.pm
@ -34,7 +34,6 @@ use vars qw($debug $cgi_debug);	# from C4::Debug, of course
 use vars qw($max $prefformat);

 BEGIN {
-    $VERSION = 3.07.00.049;
 	require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw();
--- a/C4/Barcodes/EAN13.pm
+++ b/C4/Barcodes/EAN13.pm
@ -30,7 +30,6 @@ use vars qw(@ISA);
 use vars qw($debug $cgi_debug);	# from C4::Debug, of course

 BEGIN {
-    $VERSION = 0.01;
    @ISA = qw(C4::Barcodes);
 }

--- a/C4/Barcodes/annual.pm
+++ b/C4/Barcodes/annual.pm
@ -32,7 +32,6 @@ use vars qw($debug $cgi_debug);	# from C4::Debug, of course
 use vars qw($width);

 BEGIN {
-    $VERSION = 3.07.00.049;
    @ISA = qw(C4::Barcodes);
 	$width = 4;
 }
--- a/C4/Barcodes/hbyymmincr.pm
+++ b/C4/Barcodes/hbyymmincr.pm
@ -32,7 +32,6 @@ use vars qw($debug $cgi_debug);	# from C4::Debug, of course
 use vars qw($branch $width);

 BEGIN {
-    $VERSION = 3.07.00.049;
    @ISA = qw(C4::Barcodes);
 }

--- a/C4/Barcodes/incremental.pm
+++ b/C4/Barcodes/incremental.pm
@ -23,7 +23,6 @@ use warnings;
 use vars qw(@ISA);

 BEGIN {
-    $VERSION = 3.07.00.049;
    @ISA = qw(C4::Barcodes);
 }

--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@ -45,7 +45,6 @@ use Koha::Acquisition::Currencies;
 use vars qw(@ISA @EXPORT);

 BEGIN {
-    $VERSION = 3.07.00.049;

    require Exporter;
    @ISA = qw( Exporter );
--- a/C4/Bookseller.pm
+++ b/C4/Bookseller.pm
@ -26,7 +26,6 @@ use base qw( Exporter );
 use C4::Bookseller::Contact;

 # set the version for version checking
-our $VERSION   = 3.07.00.049;
 our @EXPORT_OK = qw(
  GetBooksellersWithLateOrders
  ModBookseller
--- a/C4/Boolean.pm
+++ b/C4/Boolean.pm
@ -27,7 +27,6 @@ use warnings;
 use Carp;
 use base qw(Exporter);

-our    $VERSION = 3.07.00.049;
 our    @EXPORT_OK = qw( true_p);

 =head1 NAME
--- a/C4/Branch.pm
+++ b/C4/Branch.pm
@ -26,7 +26,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 BEGIN {
 	# set the version for version checking
-    $VERSION = 3.07.00.049;
 	@ISA    = qw(Exporter);
 	@EXPORT = qw(
 		&GetBranchName
--- a/C4/Breeding.pm
+++ b/C4/Breeding.pm
@ -35,7 +35,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 BEGIN {
 	# set the version for version checking
-    $VERSION = 3.07.00.049;
 	require Exporter;
 	@ISA = qw(Exporter);
    @EXPORT = qw(&BreedingSearch &Z3950Search &Z3950SearchAuth);
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@ -26,7 +26,6 @@ use vars qw(@ISA @EXPORT);

 BEGIN {
 	# set the version for version checking
-    $VERSION = 3.07.00.049;
 	require Exporter;
 	@ISA    = qw(Exporter);
 	@EXPORT = qw(
--- a/C4/Charset.pm
+++ b/C4/Charset.pm
@ -30,7 +30,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT = qw(
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@ -68,7 +68,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 BEGIN {
 	require Exporter;
-    $VERSION = 3.07.00.049;	# for version checking
 	@ISA    = qw(Exporter);

 	# FIXME subs that should probably be elsewhere
--- a/C4/ClassSortRoutine.pm
+++ b/C4/ClassSortRoutine.pm
@ -27,7 +27,6 @@ use C4::Context;
 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 # set the version for version checking
-$VERSION = 3.07.00.049;

 =head1 NAME 

--- a/C4/ClassSortRoutine/Dewey.pm
+++ b/C4/ClassSortRoutine/Dewey.pm
@ -23,7 +23,6 @@ use warnings;
 use vars qw();

 # set the version for version checking
-$VERSION = 3.07.00.049;

 =head1 NAME 

--- a/C4/ClassSortRoutine/Generic.pm
+++ b/C4/ClassSortRoutine/Generic.pm
@ -23,7 +23,6 @@ use warnings;
 use vars qw();

 # set the version for version checking
-$VERSION = 3.07.00.049;

 =head1 NAME 

--- a/C4/ClassSortRoutine/LCC.pm
+++ b/C4/ClassSortRoutine/LCC.pm
@ -25,7 +25,6 @@ use Library::CallNumber::LC;
 use vars qw();

 # set the version for version checking
-$VERSION = 3.07.00.049;

 =head1 NAME 

--- a/C4/ClassSource.pm
+++ b/C4/ClassSource.pm
@ -27,7 +27,6 @@ use C4::ClassSortRoutine;
 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 # set the version for version checking
-$VERSION = 3.07.00.049;

 =head1 NAME

--- a/C4/Context.pm
+++ b/C4/Context.pm
@ -103,7 +103,6 @@ BEGIN {
    $ismemcached = $memcached->set('ismemcached','1');
    }

-    $VERSION = '3.07.00.049';
 }

 use Encode;
--- a/C4/Contract.pm
+++ b/C4/Contract.pm
@ -27,7 +27,6 @@ use vars qw(@ISA @EXPORT);

 BEGIN {
 	# set the version for version checking
-    $VERSION = 3.07.00.049;
    require Exporter;
 	@ISA    = qw(Exporter);
 	@EXPORT = qw(
--- a/C4/Creators.pm
+++ b/C4/Creators.pm
@ -18,7 +18,6 @@ package C4::Creators;
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
    use vars qw(@EXPORT @ISA);
    @ISA = qw(Exporter);
    our @EXPORT = qw(get_all_templates
--- a/C4/Creators/Batch.pm
+++ b/C4/Creators/Batch.pm
@ -9,7 +9,6 @@ use C4::Context;
 use C4::Debug;

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 sub _check_params {
--- a/C4/Creators/Layout.pm
+++ b/C4/Creators/Layout.pm
@ -10,7 +10,6 @@ use C4::Debug;
 use C4::Creators::PDF;

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 # FIXME: Consider this style parameter verification instead...
--- a/C4/Creators/Lib.pm
+++ b/C4/Creators/Lib.pm
@ -26,7 +26,6 @@ use C4::Context;
 use C4::Debug;

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
    use base qw(Exporter);
    our @EXPORT = qw(get_all_templates
                     get_all_layouts
--- a/C4/Creators/PDF.pm
+++ b/C4/Creators/PDF.pm
@ -25,7 +25,6 @@ use File::Temp;
 use List::Util qw/first/;

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 sub _InitVars {
--- a/C4/Creators/Profile.pm
+++ b/C4/Creators/Profile.pm
@ -10,7 +10,6 @@ use C4::Debug;
 use C4::Creators::Lib qw(get_unit_values);

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 sub _check_params {
--- a/C4/Creators/Template.pm
+++ b/C4/Creators/Template.pm
@ -11,7 +11,6 @@ use C4::Creators::Profile;
 use C4::Creators::Lib qw(get_unit_values);

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 sub _check_params {
--- a/C4/Csv.pm
+++ b/C4/Csv.pm
@ -26,7 +26,6 @@ use C4::Context;
 use vars qw(@ISA @EXPORT);

 # set the version for version checking
-$VERSION = 3.07.00.049;

@ISA = qw(Exporter);

--- a/C4/Debug.pm
+++ b/C4/Debug.pm
@ -27,7 +27,6 @@ use vars qw(@ISA @EXPORT $debug $cgi_debug);
 # use vars qw(@EXPORT_OK %EXPORT_TAGS);

 BEGIN {
-    $VERSION = 3.07.00.049;	# set the version for version checking
 	@ISA       = qw(Exporter);
 	@EXPORT    = qw($debug $cgi_debug);
 	# @EXPOR_OK    = qw();
--- a/C4/External/Amazon.pm
+++ b/C4/External/Amazon.pm
@ -25,7 +25,6 @@ use vars qw(@ISA @EXPORT);

 BEGIN {
    require Exporter;
-    $VERSION = 3.07.00.049;
    @ISA = qw(Exporter);
    @EXPORT = qw(
        get_amazon_tld
--- a/C4/External/BakerTaylor.pm
+++ b/C4/External/BakerTaylor.pm
@ -32,7 +32,6 @@ use vars qw($user $pass $agent $image_url $link_url);

 BEGIN {
 	require Exporter;
-    $VERSION = 3.07.00.049;
 	@ISA = qw(Exporter);
 	@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
 	%EXPORT_TAGS = (all=>\@EXPORT_OK);
--- a/C4/External/OverDrive.pm
+++ b/C4/External/OverDrive.pm
@ -30,7 +30,6 @@ use LWP::UserAgent;

 BEGIN {
    require Exporter;
-    our $VERSION = 3.07.00.049;
    our @ISA = qw( Exporter ) ;
    our @EXPORT = qw(
        IsOverDriveEnabled
--- a/C4/External/Syndetics.pm
+++ b/C4/External/Syndetics.pm
@ -30,7 +30,6 @@ use vars qw(@ISA @EXPORT);

 BEGIN {
    require Exporter;
-    $VERSION = 3.07.00.049;
    @ISA = qw(Exporter);
    @EXPORT = qw(
        &get_syndetics_index
--- a/C4/Heading.pm
+++ b/C4/Heading.pm
@ -25,7 +25,6 @@ use C4::Context;
 use Module::Load;
 use Carp;

-our $VERSION = 3.07.00.049;

 =head1 NAME

--- a/C4/Heading/MARC21.pm
+++ b/C4/Heading/MARC21.pm
@ -22,7 +22,6 @@ use warnings;
 use MARC::Record;
 use MARC::Field;

-our $VERSION = 3.07.00.049;

 =head1 NAME

--- a/C4/Heading/UNIMARC.pm
+++ b/C4/Heading/UNIMARC.pm
@ -24,7 +24,6 @@ use MARC::Record;
 use MARC::Field;
 use C4::Context;

-our $VERSION = 3.07.00.049;

 =head1 NAME

--- a/C4/HoldsQueue.pm
+++ b/C4/HoldsQueue.pm
@ -37,7 +37,6 @@ use Data::Dumper;

 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 BEGIN {
-    $VERSION = 3.03;
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(
--- a/C4/Images.pm
+++ b/C4/Images.pm
@ -30,7 +30,6 @@ use vars qw($debug $noimage @ISA @EXPORT);
 BEGIN {

    # set the version for version checking
-    $VERSION = 3.07.00.049;
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT = qw(
--- a/C4/ImportBatch.pm
+++ b/C4/ImportBatch.pm
@ -34,7 +34,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 BEGIN {
 	# set the version for version checking
-    $VERSION = 3.07.00.049;
 	require Exporter;
 	@ISA    = qw(Exporter);
 	@EXPORT = qw(
--- a/C4/ImportExportFramework.pm
+++ b/C4/ImportExportFramework.pm
@ -31,7 +31,6 @@ use C4::Debug;
 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 BEGIN {
-    $VERSION = 3.07.00.049;    # set version for version checking
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT = qw(
--- a/C4/InstallAuth.pm
+++ b/C4/InstallAuth.pm
@ -31,7 +31,6 @@ use CGI::Session;
 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 # set the version for version checking
-$VERSION = 3.00;

 =head1 NAME

--- a/C4/Installer.pm
+++ b/C4/Installer.pm
@ -21,7 +21,6 @@ use strict;
 #use warnings; FIXME - Bug 2505

 use Encode qw( encode is_utf8 );
-our $VERSION = 3.07.00.049;
 use C4::Context;
 use C4::Installer::PerlModules;
 use DBI;
--- a/C4/Installer/PerlModules.pm
+++ b/C4/Installer/PerlModules.pm
@ -7,7 +7,6 @@ use File::Spec;

 use C4::Installer::PerlDependencies;

-use version; our $VERSION = qv('3.07.00.049');

 our $PERL_DEPS = $C4::Installer::PerlDependencies::PERL_DEPS;

--- a/C4/Items.pm
+++ b/C4/Items.pm
@ -42,7 +42,6 @@ use Koha::Database;
 use vars qw(@ISA @EXPORT);

 BEGIN {
-    $VERSION = 3.07.00.049;

 	require Exporter;
    @ISA = qw( Exporter );
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@ -35,7 +35,6 @@ use DBI qw(:sql_types);
 use vars qw(@ISA @EXPORT @EXPORT_OK $DEBUG);

 BEGIN {
-    $VERSION = 3.07.00.049;
 	require Exporter;
 	@ISA    = qw(Exporter);
 	@EXPORT = qw(
--- a/C4/Labels.pm
+++ b/C4/Labels.pm
@ -1,7 +1,6 @@
 package C4::Labels;

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');

    use C4::Labels::Batch;
    use C4::Labels::Label;
--- a/C4/Labels/Batch.pm
+++ b/C4/Labels/Batch.pm
@ -8,7 +8,6 @@ use base qw(C4::Creators::Batch);
 use autouse 'Data::Dumper' => qw(Dumper);

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
--- a/C4/Labels/Label.pm
+++ b/C4/Labels/Label.pm
@ -15,7 +15,6 @@ use C4::Debug;
 use C4::Biblio;

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
--- a/C4/Labels/Layout.pm
+++ b/C4/Labels/Layout.pm
@ -8,7 +8,6 @@ use base qw(C4::Creators::Layout);
 use autouse 'Data::Dumper' => qw(Dumper);

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
--- a/C4/Labels/Profile.pm
+++ b/C4/Labels/Profile.pm
@ -8,7 +8,6 @@ use base qw(C4::Creators::Profile);
 use autouse 'Data::Dumper' => qw(Dumper);

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
--- a/C4/Labels/Template.pm
+++ b/C4/Labels/Template.pm
@ -8,7 +8,6 @@ use base qw(C4::Creators::Template);
 use autouse 'Data::Dumper' => qw(Dumper);

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 use constant TEMPLATE_TABLE => 'creator_templates';
--- a/C4/Languages.pm
+++ b/C4/Languages.pm
@ -40,7 +40,6 @@ eval {
 };

 BEGIN {
-    $VERSION = 3.07.00.049;
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT = qw(
--- a/C4/Letters.pm
+++ b/C4/Letters.pm
@ -44,7 +44,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 BEGIN {
    require Exporter;
    # set the version for version checking
-    $VERSION = 3.07.00.049;
    @ISA = qw(Exporter);
    @EXPORT = qw(
        &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages &GetMessageTransportTypes
--- a/C4/Log.pm
+++ b/C4/Log.pm
@ -31,7 +31,6 @@ use vars qw(@ISA @EXPORT);

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
        require Exporter;
        @ISA = qw(Exporter);
        @EXPORT = qw(&logaction &cronlogaction &GetLogStatus &displaylog &GetLogs);
--- a/C4/MarcModificationTemplates.pm
+++ b/C4/MarcModificationTemplates.pm
@ -29,7 +29,6 @@ use vars qw(@ISA @EXPORT);
 use constant DEBUG => 0;

 BEGIN {
-    $VERSION = 1.00;    # set the version for version checking
    @ISA = qw(Exporter);
    @EXPORT = qw(
        &GetModificationTemplates
--- a/C4/Matcher.pm
+++ b/C4/Matcher.pm
@ -27,7 +27,6 @@ use vars qw();

 BEGIN {
 	# set the version for version checking
-    $VERSION = 3.07.00.049;
 }

 =head1 NAME
--- a/C4/Members.pm
+++ b/C4/Members.pm
@ -50,7 +50,6 @@ if ( ! can_load( modules => { 'Koha::NorwegianPatronDB' => undef } ) ) {


 BEGIN {
-    $VERSION = 3.07.00.049;
    $debug = $ENV{DEBUG} || 0;
    require Exporter;
    @ISA = qw(Exporter);
--- a/C4/Members/AttributeTypes.pm
+++ b/C4/Members/AttributeTypes.pm
@ -25,7 +25,6 @@ use vars qw();

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
 }

 =head1 NAME
--- a/C4/Members/Attributes.pm
+++ b/C4/Members/Attributes.pm
@ -29,7 +29,6 @@ our ($csv, $AttributeTypes);

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes
                    DeleteBorrowerAttribute UpdateBorrowerAttribute
--- a/C4/Members/Messaging.pm
+++ b/C4/Members/Messaging.pm
@ -25,7 +25,6 @@ use vars qw();

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
 }

 =head1 NAME
--- a/C4/NewsChannels.pm
+++ b/C4/NewsChannels.pm
@ -25,7 +25,6 @@ use Koha::DateUtils;
 use vars qw(@ISA @EXPORT);

 BEGIN { 
-    $VERSION = 3.07.00.049;    # set the version for version checking
    @ISA = qw(Exporter);
    @EXPORT = qw(
        &GetNewsToDisplay
--- a/C4/Output.pm
+++ b/C4/Output.pm
@ -37,7 +37,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
    require Exporter;

 @ISA    = qw(Exporter);
--- a/C4/Overdues.pm
+++ b/C4/Overdues.pm
@ -41,7 +41,6 @@ use vars qw(@ISA @EXPORT);

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
    require Exporter;
    @ISA = qw(Exporter);

--- a/C4/Patroncards.pm
+++ b/C4/Patroncards.pm
@ -1,7 +1,6 @@
 package C4::Patroncards;

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
    use vars qw(@EXPORT @ISA);
    @ISA = qw(Exporter);
    our @EXPORT = qw(unpack_UTF8
--- a/C4/Patroncards/Batch.pm
+++ b/C4/Patroncards/Batch.pm
@ -8,7 +8,6 @@ use base qw(C4::Creators::Batch);
 use autouse 'Data::Dumper' => qw(Dumper);

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
--- a/C4/Patroncards/Layout.pm
+++ b/C4/Patroncards/Layout.pm
@ -8,7 +8,6 @@ use base qw(C4::Creators::Layout);
 use autouse 'Data::Dumper' => qw(Dumper);

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
--- a/C4/Patroncards/Lib.pm
+++ b/C4/Patroncards/Lib.pm
@ -26,7 +26,6 @@ use C4::Context;
 use C4::Debug;

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
    use base qw(Exporter);
    our @EXPORT = qw(unpack_UTF8
                     text_alignment
--- a/C4/Patroncards/Patroncard.pm
+++ b/C4/Patroncards/Patroncard.pm
@ -29,7 +29,6 @@ use C4::Creators::PDF qw(StrWidth);
 use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 sub new {
--- a/C4/Patroncards/Profile.pm
+++ b/C4/Patroncards/Profile.pm
@ -8,7 +8,6 @@ use base qw(C4::Creators::Profile);
 use autouse 'Data::Dumper' => qw(Dumper);

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
--- a/C4/Patroncards/Template.pm
+++ b/C4/Patroncards/Template.pm
@ -8,7 +8,6 @@ use base qw(C4::Creators::Template);
 use autouse 'Data::Dumper' => qw(Dumper);

 BEGIN {
-    use version; our $VERSION = qv('3.07.00.049');
 }

 use constant TEMPLATE_TABLE => 'creator_templates';
--- a/C4/Print.pm
+++ b/C4/Print.pm
@ -25,7 +25,6 @@ use vars qw(@ISA @EXPORT);

 BEGIN {
 	# set the version for version checking
-    $VERSION = 3.07.00.049;
 	require Exporter;
 	@ISA    = qw(Exporter);
    @EXPORT = qw(&NetworkPrint);
--- a/C4/Ratings.pm
+++ b/C4/Ratings.pm
@ -31,7 +31,6 @@ use Koha::Database;
 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 BEGIN {
-    $VERSION = 3.07.00.049;
    @ISA     = qw(Exporter);

    @EXPORT = qw(
--- a/C4/Record.pm
+++ b/C4/Record.pm
@ -42,7 +42,6 @@ use Carp;
 use vars qw(@ISA @EXPORT);

 # set the version for version checking
-$VERSION = 3.07.00.049;

@ISA = qw(Exporter);

--- a/C4/Reports.pm
+++ b/C4/Reports.pm
@ -27,7 +27,6 @@ use C4::Debug;

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT = qw(
--- a/C4/Reports/Guided.pm
+++ b/C4/Reports/Guided.pm
@ -38,7 +38,6 @@ use Koha::AuthorisedValues;

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT = qw(
--- a/C4/Reserves.pm
+++ b/C4/Reserves.pm
@ -92,7 +92,6 @@ This modules provides somes functions to deal with reservations.

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT = qw(
--- a/C4/Review.pm
+++ b/C4/Review.pm
@ -26,7 +26,6 @@ use vars qw(@ISA @EXPORT);

 BEGIN {
    # set the version for version checking
-    $VERSION = 3.07.00.049;
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
--- a/C4/Ris.pm
+++ b/C4/Ris.pm
@ -68,7 +68,6 @@ use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField);
 use Koha::SimpleMARC qw(read_field);

 # set the version for version checking
-$VERSION = 3.07.00.049;

@ISA = qw(Exporter);

--- a/C4/RotatingCollections.pm
+++ b/C4/RotatingCollections.pm
@ -36,7 +36,6 @@ use Data::Dumper;
 use vars qw(@ISA @EXPORT);

 # set the version for version checking
-$VERSION = 3.07.00.049;

 =head1 NAME

--- a/C4/SIP/ILS/Item.pm
+++ b/C4/SIP/ILS/Item.pm
@ -23,7 +23,6 @@ use C4::Members;
 use C4::Reserves;
 use Koha::Database;

-our $VERSION = 3.07.00.049;

 =encoding UTF-8

--- a/C4/SIP/ILS/Patron.pm
+++ b/C4/SIP/ILS/Patron.pm
@ -24,7 +24,6 @@ use C4::Branch qw(GetBranchName);
 use C4::Items qw( GetBarcodeFromItemnumber GetItemnumbersForBiblio);
 use C4::Auth qw(checkpw);

-our $VERSION = 3.07.00.049;

 our $kp;    # koha patron

--- a/C4/SIP/ILS/Transaction/Checkout.pm
+++ b/C4/SIP/ILS/Transaction/Checkout.pm
@ -25,7 +25,6 @@ use parent qw(C4::SIP::ILS::Transaction);

 our $debug;

-our $VERSION = 3.07.00.049;

 # Most fields are handled by the Transaction superclass
 my %fields = (
--- a/C4/SIP/ILS/Transaction/FeePayment.pm
+++ b/C4/SIP/ILS/Transaction/FeePayment.pm
@ -25,7 +25,6 @@ use parent qw(C4::SIP::ILS::Transaction);


 our $debug   = 0;
-our $VERSION = 3.07.00.049;

 my %fields = ();

--- a/C4/SIP/ILS/Transaction/Hold.pm
+++ b/C4/SIP/ILS/Transaction/Hold.pm
@ -14,7 +14,6 @@ use C4::Biblio;		# GetBiblioFromItemNumber GetBiblioItemByBiblioNumber
 use parent qw(C4::SIP::ILS::Transaction);


-our $VERSION = 3.07.00.049;

 my %fields = (
 	expiration_date => 0,
--- a/C4/SIP/Sip.pm
+++ b/C4/SIP/Sip.pm
@ -19,7 +19,6 @@ use C4::SIP::Sip::Checksum qw(checksum);
 use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);

 BEGIN {
-    $VERSION = 3.07.00.049;
 	@ISA = qw(Exporter);

 	@EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count
--- a/C4/SIP/Sip/MsgType.pm
+++ b/C4/SIP/Sip/MsgType.pm
@ -27,7 +27,6 @@ use constant INVALID_CARD => 'Invalid cardnumber';
 use constant INVALID_PW   => 'Invalid password';

 BEGIN {
-    $VERSION   = 3.07.00.049;
    @ISA       = qw(Exporter);
    @EXPORT_OK = qw(handle login_core);
 }
--- a/C4/SMS.pm
+++ b/C4/SMS.pm
@ -40,7 +40,6 @@ use C4::Context;
 use vars qw( );

 BEGIN {
-    $VERSION = 3.07.00.049;
 }

 =head1 METHODS
--- a/C4/Scheduler.pm
+++ b/C4/Scheduler.pm
@ -26,7 +26,6 @@ use Schedule::At;

 BEGIN {
 	# set the version for version checking
-    $VERSION = 3.07.00.049;
 	require Exporter;
 	@ISA = qw(Exporter);
 	@EXPORT =
--- a/C4/Scrubber.pm
+++ b/C4/Scrubber.pm
@ -27,7 +27,6 @@ use HTML::Scrubber;
 use C4::Context;
 use C4::Debug;

-our $VERSION = v3.07.00.049;


 my %scrubbertypes = (
--- a/C4/Search.pm
+++ b/C4/Search.pm
@ -41,7 +41,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);

 # set the version for version checking
 BEGIN {
-    $VERSION = 3.07.00.049;
    $DEBUG = ($ENV{DEBUG}) ? 1 : 0;
 }