Commit 017699c3 authored by joubu's avatar joubu Committed by Brendan A Gallagher

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's avatarJosef Moravec <josef.moravec@gmail.com>
Signed-off-by: default avatarTomas Cohen Arazi <tomascohen@unc.edu.ar>
Signed-off-by: default avatarBrendan A Gallagher <brendan@bywatersolutions.com>
parent 3830d78d
......@@ -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(
......
......@@ -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(
......
......@@ -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);
......
......@@ -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);
......
......@@ -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 );
}
......
......@@ -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 =
......
......@@ -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);
......
......@@ -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
......
......@@ -19,7 +19,6 @@ package C4::AuthoritiesMarc::UNIMARC;
use strict;
#use warnings; FIXME - Bug 2505
our $VERSION = 3.07.00.049;
=head1 NAME
......
......@@ -28,7 +28,6 @@ use vars qw();
BEGIN {
# set the version for version checking
$VERSION = 3.07.00.049;
}
=head1 NAME
......
......@@ -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();
......
......@@ -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);
}
......
......@@ -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;
}
......
......@@ -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);
}
......
......@@ -23,7 +23,6 @@ use warnings;
use vars qw(@ISA);
BEGIN {
$VERSION = 3.07.00.049;
@ISA = qw(C4::Barcodes);
}
......
......@@ -45,7 +45,6 @@ use Koha::Acquisition::Currencies;
use vars qw(@ISA @EXPORT);
BEGIN {
$VERSION = 3.07.00.049;
require Exporter;
@ISA = qw( Exporter );
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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);
......
......@@ -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(
......
......@@ -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(
......
......@@ -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
......
......@@ -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
......
......@@ -23,7 +23,6 @@ use warnings;
use vars qw();
# set the version for version checking
$VERSION = 3.07.00.049;
=head1 NAME
......
......@@ -23,7 +23,6 @@ use warnings;
use vars qw();
# set the version for version checking
$VERSION = 3.07.00.049;
=head1 NAME
......
......@@ -25,7 +25,6 @@ use Library::CallNumber::LC;
use vars qw();
# set the version for version checking
$VERSION = 3.07.00.049;
=head1 NAME
......
......@@ -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
......
......@@ -103,7 +103,6 @@ BEGIN {
$ismemcached = $memcached->set('ismemcached','1');
}
$VERSION = '3.07.00.049';
}
use Encode;
......
......@@ -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(
......
......@@ -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
......
......@@ -9,7 +9,6 @@ use C4::Context;
use C4::Debug;
BEGIN {
use version; our $VERSION = qv('3.07.00.049');
}
sub _check_params {
......
......@@ -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...
......
......@@ -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
......
......@@ -25,7 +25,6 @@ use File::Temp;
use List::Util qw/first/;
BEGIN {
use version; our $VERSION = qv('3.07.00.049');
}
sub _InitVars {
......
......@@ -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 {
......
......@@ -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 {
......
......@@ -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);
......
......@@ -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();
......
......@@ -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
......
......@@ -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);
......
......@@ -30,7 +30,6 @@ use LWP::UserAgent;
BEGIN {
require Exporter;
our $VERSION = 3.07.00.049;
our @ISA = qw( Exporter ) ;
our @EXPORT = qw(
IsOverDriveEnabled
......
......@@ -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
......
......@@ -25,7 +25,6 @@ use C4::Context;
use Module::Load;
use Carp;
our $VERSION = 3.07.00.049;
=head1 NAME
......
......@@ -22,7 +22,6 @@ use warnings;
use MARC::Record;
use MARC::Field;
our $VERSION = 3.07.00.049;
=head1 NAME
......
......@@ -24,7 +24,6 @@ use MARC::Record;
use MARC::Field;
use C4::Context;
our $VERSION = 3.07.00.049;
=head1 NAME
......
......@@ -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(
......
......@@ -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(
......
......@@ -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(
......
......@@ -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(
......
......@@ -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
......
......@@ -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;
......
......@@ -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;
......
......@@ -42,7 +42,6 @@ use Koha::Database;
use vars qw(@ISA @EXPORT);
BEGIN {
$VERSION = 3.07.00.049;
require Exporter;
@ISA = qw( Exporter );
......
......@@ -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(
......
package C4::Labels;
BEGIN {
use version; our $VERSION = qv('3.07.00.049');
use C4::Labels::Batch;
use C4::Labels::Label;
......
......@@ -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::(.+)::.+$/;
......
......@@ -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
......
......@@ -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::(.+)::.+$/;
......
......@@ -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::(.+)::.+$/;
......
......@@ -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';
......
......@@ -40,7 +40,6 @@ eval {
};
BEGIN {
$VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
......
......@@ -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
......
......@@ -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);
......
......@@ -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
......
......@@ -27,7 +27,6 @@ use vars qw();
BEGIN {
# set the version for version checking
$VERSION = 3.07.00.049;
}
=head1 NAME
......
......@@ -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);
......
......@@ -25,7 +25,6 @@ use vars qw();
BEGIN {
# set the version for version checking
$VERSION = 3.07.00.049;
}
=head1 NAME
......
......@@ -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
......
......@@ -25,7 +25,6 @@ use vars qw();
BEGIN {
# set the version for version checking
$VERSION = 3.07.00.049;
}
=head1 NAME
......
......@@ -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
......
......@@ -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);
......
......@@ -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);
......
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
......
......@@ -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::(.+)::.+$/;
......
......@@ -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::(.+)::.+$/;
......
......@@ -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
......
......@@ -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 {
......
......@@ -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::(.+)::.+$/;
......
......@@ -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';
......
......@@ -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);
......
......@@ -31,7 +31,6 @@ use Koha::Database;