Commit 798d38e4 authored by joubu's avatar joubu Committed by Brendan A Gallagher

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'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 017699c3
......@@ -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(
......
......@@ -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(
......
......@@ -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);
......
......@@ -27,7 +27,6 @@ use Digest::MD5;
use vars qw();
BEGIN {
# set the version for version checking
}
=head1 NAME
......
......@@ -25,7 +25,6 @@ use base qw( Exporter );
use C4::Bookseller::Contact;
# set the version for version checking
our @EXPORT_OK = qw(
GetBooksellersWithLateOrders
ModBookseller
......
......@@ -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
......
......@@ -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);
......
......@@ -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(
......
......@@ -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(
......
......@@ -26,7 +26,6 @@ use C4::Context;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
=head1 NAME
......
......@@ -22,7 +22,6 @@ use warnings;
use vars qw();
# set the version for version checking
=head1 NAME
......
......@@ -22,7 +22,6 @@ use warnings;
use vars qw();
# set the version for version checking
=head1 NAME
......
......@@ -24,7 +24,6 @@ use Library::CallNumber::LC;
use vars qw();
# set the version for version checking
=head1 NAME
......
......@@ -26,7 +26,6 @@ use C4::ClassSortRoutine;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
=head1 NAME
......
......@@ -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(
......
......@@ -25,7 +25,6 @@ package C4::Csv;
use C4::Context;
use vars qw(@ISA @EXPORT);
# set the version for version checking
@ISA = qw(Exporter);
......
......@@ -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(
......
......@@ -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(
......
......@@ -30,7 +30,6 @@ use CGI::Session;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
=head1 NAME
......
......@@ -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
......
......@@ -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);
......
......@@ -26,7 +26,6 @@ use MARC::Record;
use vars qw();
BEGIN {
# set the version for version checking
}
=head1 NAME
......
......@@ -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 } ) ) {
......
......@@ -24,7 +24,6 @@ use C4::Context;
use vars qw();
BEGIN {
# set the version for version checking
}
=head1 NAME
......
......@@ -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
......
......@@ -24,7 +24,6 @@ use C4::Context;
use vars qw();
BEGIN {
# set the version for version checking
}
=head1 NAME
......
......@@ -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);
......
......@@ -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);
......
......@@ -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);
......
......@@ -41,7 +41,6 @@ use Carp;
use vars qw(@ISA @EXPORT);
# set the version for version checking
@ISA = qw(Exporter);
......
......@@ -26,7 +26,6 @@ use C4::Context;
use C4::Debug;
BEGIN {
# set the version for version checking
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
......
......@@ -37,7 +37,6 @@ use C4::Log;
use Koha::AuthorisedValues;
BEGIN {
# set the version for version checking
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
......
......@@ -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(
......
......@@ -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
......
......@@ -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);
......
......@@ -35,7 +35,6 @@ use Data::Dumper;
use vars qw(@ISA @EXPORT);
# set the version for version checking
=head1 NAME
......
......@@ -25,7 +25,6 @@ use C4::Context;
use Schedule::At;
BEGIN {
# set the version for version checking
require Exporter;
@ISA = qw(Exporter);
@EXPORT =
......
......@@ -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;
}
......
......@@ -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(
......
......@@ -26,7 +26,6 @@ use vars qw(@ISA @EXPORT);
BEGIN {
# set the version for version checking
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
......
......@@ -29,7 +29,6 @@ use vars qw(@ISA @EXPORT);
our $debug;
BEGIN {
# set the version for version checking
@ISA = qw(Exporter);
@EXPORT = qw(
&UpdateStats
......
......@@ -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
......
......@@ -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 )
......
......@@ -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
......
......@@ -27,7 +27,6 @@ use C4::Debug;
BEGIN {
# set the version for version checking
}
=head1 NAME
......
......@@ -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(
......
......@@ -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);
}
......
......@@ -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);
}
......
......@@ -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);
}
......
......@@ -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);
}
......
......@@ -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(
......
......@@ -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;
......
......@@ -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
......
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment