@@ -, +, @@ perl -p -i -e 's/^.*3.07.00.049.*\n//' **/*.pm --- C4/Accounts.pm | 1 - C4/Acquisition.pm | 1 - C4/Auth.pm | 1 - C4/Auth_with_cas.pm | 1 - C4/Auth_with_ldap.pm | 1 - C4/Auth_with_shibboleth.pm | 1 - C4/AuthoritiesMarc.pm | 1 - C4/AuthoritiesMarc/MARC21.pm | 1 - C4/AuthoritiesMarc/UNIMARC.pm | 1 - C4/BackgroundJob.pm | 1 - C4/Barcodes.pm | 1 - C4/Barcodes/EAN13.pm | 1 - C4/Barcodes/annual.pm | 1 - C4/Barcodes/hbyymmincr.pm | 1 - C4/Barcodes/incremental.pm | 1 - C4/Biblio.pm | 1 - C4/Bookseller.pm | 1 - C4/Boolean.pm | 1 - C4/Branch.pm | 1 - C4/Breeding.pm | 1 - C4/Budgets.pm | 1 - C4/Charset.pm | 1 - C4/Circulation.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/Context.pm | 1 - C4/Contract.pm | 1 - C4/Creators.pm | 1 - C4/Creators/Batch.pm | 1 - C4/Creators/Layout.pm | 1 - C4/Creators/Lib.pm | 1 - C4/Creators/PDF.pm | 1 - C4/Creators/Profile.pm | 1 - C4/Creators/Template.pm | 1 - C4/Csv.pm | 1 - C4/Debug.pm | 1 - C4/External/Amazon.pm | 1 - C4/External/BakerTaylor.pm | 1 - C4/External/OverDrive.pm | 1 - C4/External/Syndetics.pm | 1 - C4/Heading.pm | 1 - C4/Heading/MARC21.pm | 1 - C4/Heading/UNIMARC.pm | 1 - C4/HoldsQueue.pm | 1 - C4/Images.pm | 1 - C4/ImportBatch.pm | 1 - C4/ImportExportFramework.pm | 1 - C4/InstallAuth.pm | 1 - C4/Installer.pm | 1 - C4/Installer/PerlModules.pm | 1 - C4/Items.pm | 1 - C4/Koha.pm | 1 - C4/Labels.pm | 1 - C4/Labels/Batch.pm | 1 - C4/Labels/Label.pm | 1 - C4/Labels/Layout.pm | 1 - C4/Labels/Profile.pm | 1 - C4/Labels/Template.pm | 1 - C4/Languages.pm | 1 - C4/Letters.pm | 1 - C4/Log.pm | 1 - C4/MarcModificationTemplates.pm | 1 - C4/Matcher.pm | 1 - C4/Members.pm | 1 - C4/Members/AttributeTypes.pm | 1 - C4/Members/Attributes.pm | 1 - C4/Members/Messaging.pm | 1 - C4/NewsChannels.pm | 1 - C4/Output.pm | 1 - C4/Overdues.pm | 1 - C4/Passwordrecovery.pm | 1 - C4/Patroncards.pm | 1 - C4/Patroncards/Batch.pm | 1 - C4/Patroncards/Layout.pm | 1 - C4/Patroncards/Lib.pm | 1 - C4/Patroncards/Patroncard.pm | 1 - C4/Patroncards/Profile.pm | 1 - C4/Patroncards/Template.pm | 1 - C4/Print.pm | 1 - C4/Ratings.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/SIP/ILS/Item.pm | 1 - C4/SIP/ILS/Patron.pm | 1 - C4/SIP/ILS/Transaction/Checkout.pm | 1 - C4/SIP/ILS/Transaction/FeePayment.pm | 1 - C4/SIP/ILS/Transaction/Hold.pm | 1 - C4/SIP/Sip.pm | 1 - C4/SIP/Sip/MsgType.pm | 1 - C4/SMS.pm | 1 - C4/Scheduler.pm | 1 - C4/Scrubber.pm | 1 - C4/Search.pm | 1 - C4/Serials.pm | 1 - C4/Serials/Frequency.pm | 1 - C4/Serials/Numberpattern.pm | 1 - C4/ShelfBrowser.pm | 1 - C4/Stats.pm | 1 - C4/Suggestions.pm | 1 - C4/Tags.pm | 1 - C4/TmplToken.pm | 1 - C4/TmplTokenType.pm | 1 - C4/Utils/DataTables.pm | 1 - C4/XISBN.pm | 1 - C4/XSLT.pm | 1 - Koha/AuthUtils.pm | 1 - Koha/Borrower/Files.pm | 1 - Koha/Filter/MARC/EmbedSeeFromHeadings.pm | 1 - Koha/Filter/MARC/Null.pm | 1 - Koha/Misc/Files.pm | 1 - Koha/RecordProcessor/Base.pm | 1 - Koha/SimpleMARC.pm | 1 - Koha/Template/Plugin/Cache.pm | 1 - acqui/pdfformat/layout2pages.pm | 1 - acqui/pdfformat/layout2pagesde.pm | 1 - acqui/pdfformat/layout3pages.pm | 1 - acqui/pdfformat/layout3pagesfr.pm | 1 - install_misc/UpgradeBackup.pm | 1 - misc/translator/TmplTokenizer.pm | 1 - misc/translator/VerboseWarnings.pm | 1 - t/Koha/Plugin/Test.pm | 1 - 129 files changed, 129 deletions(-) --- a/C4/Accounts.pm +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/C4/Biblio.pm @@ -44,7 +44,6 @@ use Koha::Authority::Types; use vars qw(@ISA @EXPORT); BEGIN { - $VERSION = 3.07.00.049; require Exporter; @ISA = qw( Exporter ); --- a/C4/Bookseller.pm +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/C4/Circulation.pm @@ -67,7 +67,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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/C4/Context.pm @@ -94,7 +94,6 @@ BEGIN { $ismemcached = $memcached->set('ismemcached','1'); } - $VERSION = '3.07.00.049'; } use Encode; --- a/C4/Contract.pm +++ a/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 +++ a/C4/Creators.pm @@ -18,7 +18,6 @@ package C4::Creators; # along with Koha; if not, see . 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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/C4/HoldsQueue.pm @@ -36,7 +36,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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/C4/Items.pm @@ -41,7 +41,6 @@ use Koha::Database; use vars qw(@ISA @EXPORT); BEGIN { - $VERSION = 3.07.00.049; require Exporter; @ISA = qw( Exporter ); --- a/C4/Koha.pm +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/C4/Overdues.pm @@ -42,7 +42,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/Passwordrecovery.pm +++ a/C4/Passwordrecovery.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); push @EXPORT, qw( --- a/C4/Patroncards.pm +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/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 +++ a/C4/SIP/Sip/MsgType.pm @@ -24,7 +24,6 @@ use UNIVERSAL::can; use vars qw(@ISA @EXPORT_OK); BEGIN { - $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT_OK = qw(handle login_core); } --- a/C4/SMS.pm +++ a/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 +++ a/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 +++ a/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 +++ a/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; } --- a/C4/Serials.pm +++ a/C4/Serials.pm @@ -61,7 +61,6 @@ use constant MISSING_STATUSES => ( ); BEGIN { - $VERSION = 3.07.00.049; # set version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Serials/Frequency.pm +++ a/C4/Serials/Frequency.pm @@ -26,7 +26,6 @@ use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.01; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Serials/Numberpattern.pm +++ a/C4/Serials/Numberpattern.pm @@ -27,7 +27,6 @@ use vars qw(@ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.01; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/ShelfBrowser.pm +++ a/C4/ShelfBrowser.pm @@ -30,7 +30,6 @@ use C4::Koha; use vars qw(@ISA @EXPORT @EXPORT_OK); BEGIN { - $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Stats.pm +++ a/C4/Stats.pm @@ -30,7 +30,6 @@ our $debug; BEGIN { # set the version for version checking - $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT = qw( &UpdateStats --- a/C4/Suggestions.pm +++ a/C4/Suggestions.pm @@ -32,7 +32,6 @@ use Koha::DateUtils; use List::MoreUtils qw(any); use base qw(Exporter); -our $VERSION = 3.07.00.049; our @EXPORT = qw( ConnectSuggestionAndBiblio CountSuggestion --- a/C4/Tags.pm +++ a/C4/Tags.pm @@ -33,7 +33,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); our $ext_dict; BEGIN { - $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT_OK = qw( &get_tag &get_tags &get_tag_rows --- a/C4/TmplToken.pm +++ a/C4/TmplToken.pm @@ -32,7 +32,6 @@ This is a class representing a token scanned from an HTML::Template .tmpl file. =cut -our $VERSION = 3.07.00.049; sub new { --- a/C4/TmplTokenType.pm +++ a/C4/TmplTokenType.pm @@ -38,7 +38,6 @@ The predefined constants are ############################################################################### -$VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT_OK = qw( --- a/C4/Utils/DataTables.pm +++ a/C4/Utils/DataTables.pm @@ -23,7 +23,6 @@ require Exporter; use vars qw(@ISA @EXPORT); BEGIN { - $VERSION = 3.07.00.049, @ISA = qw(Exporter); @EXPORT = qw(dt_build_orderby dt_build_having dt_get_params dt_build_query); --- a/C4/XISBN.pm +++ a/C4/XISBN.pm @@ -32,7 +32,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { require Exporter; - $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT_OK = qw( &get_xisbns --- a/C4/XSLT.pm +++ a/C4/XSLT.pm @@ -45,7 +45,6 @@ my %authval_per_framework; BEGIN { require Exporter; - $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT = qw( &XSLTParse4Display --- a/Koha/AuthUtils.pm +++ a/Koha/AuthUtils.pm @@ -24,7 +24,6 @@ use Fcntl qw/O_RDONLY/; # O_RDONLY is used in generate_salt use base 'Exporter'; -our $VERSION = '1.01'; our @EXPORT_OK = qw(hash_password); =head1 NAME --- a/Koha/Borrower/Files.pm +++ a/Koha/Borrower/Files.pm @@ -28,7 +28,6 @@ use C4::Debug; BEGIN { # set the version for version checking - $VERSION = 0.01; } =head1 NAME --- a/Koha/Filter/MARC/EmbedSeeFromHeadings.pm +++ a/Koha/Filter/MARC/EmbedSeeFromHeadings.pm @@ -38,7 +38,6 @@ use C4::Biblio qw/GetMarcFromKohaField/; use base qw(Koha::RecordProcessor::Base); our $NAME = 'EmbedSeeFromHeadings'; -our $VERSION = '1.0'; =head2 filter --- a/Koha/Filter/MARC/Null.pm +++ a/Koha/Filter/MARC/Null.pm @@ -37,7 +37,6 @@ use Carp; use base qw(Koha::RecordProcessor::Base); our $NAME = 'Null'; -our $VERSION = '1.0'; =head2 filter --- a/Koha/Misc/Files.pm +++ a/Koha/Misc/Files.pm @@ -21,7 +21,6 @@ package Koha::Misc::Files; use Modern::Perl; use vars qw(); -$VERSION = '0.25'; use C4::Context; use C4::Output; --- a/Koha/RecordProcessor/Base.pm +++ a/Koha/RecordProcessor/Base.pm @@ -66,7 +66,6 @@ use base qw(Class::Accessor); __PACKAGE__->mk_ro_accessors(qw( name version )); __PACKAGE__->mk_accessors(qw( params )); our $NAME = 'Base'; -our $VERSION = '1.0'; =head2 new --- a/Koha/SimpleMARC.pm +++ a/Koha/SimpleMARC.pm @@ -26,7 +26,6 @@ our @EXPORT = qw( field_equals ); -our $VERSION = '0.01'; our $debug = 0; --- a/Koha/Template/Plugin/Cache.pm +++ a/Koha/Template/Plugin/Cache.pm @@ -23,7 +23,6 @@ use vars qw( ); use base qw( Template::Plugin ); use Template::Plugin; use C4::Context; -$VERSION = '0.01'; #------------------------------------------------------------------------ # new(\%options) --- a/acqui/pdfformat/layout2pages.pm +++ a/acqui/pdfformat/layout2pages.pm @@ -36,7 +36,6 @@ BEGIN { use Exporter (); our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); # set the version for version checking - $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = qw(printpdf); } --- a/acqui/pdfformat/layout2pagesde.pm +++ a/acqui/pdfformat/layout2pagesde.pm @@ -36,7 +36,6 @@ BEGIN { use Exporter (); our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); # set the version for version checking - $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = qw(printpdf); } --- a/acqui/pdfformat/layout3pages.pm +++ a/acqui/pdfformat/layout3pages.pm @@ -39,7 +39,6 @@ BEGIN { use Exporter (); our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); # set the version for version checking - $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = qw(printpdf); } --- a/acqui/pdfformat/layout3pagesfr.pm +++ a/acqui/pdfformat/layout3pagesfr.pm @@ -38,7 +38,6 @@ BEGIN { use Exporter (); our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); # set the version for version checking - $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = qw(printpdf); } --- a/install_misc/UpgradeBackup.pm +++ a/install_misc/UpgradeBackup.pm @@ -30,7 +30,6 @@ use vars qw(@ISA @EXPORT ); @ISA = ('Exporter'); @EXPORT = ('backup_changed_files'); -$VERSION = '3.00'; =head1 NAME --- a/misc/translator/TmplTokenizer.pm +++ a/misc/translator/TmplTokenizer.pm @@ -24,7 +24,6 @@ A wrapper for the functionality found in TTParser to allow an easier transition ############################################################################### -$VERSION = 0.02; @ISA = qw(Exporter); @EXPORT_OK = qw(); --- a/misc/translator/VerboseWarnings.pm +++ a/misc/translator/VerboseWarnings.pm @@ -21,7 +21,6 @@ verbose warnings. ############################################################################### -$VERSION = 0.01; @ISA = qw(Exporter); @EXPORT_OK = qw( --- a/t/Koha/Plugin/Test.pm +++ a/t/Koha/Plugin/Test.pm @@ -6,7 +6,6 @@ use Modern::Perl; ## Required for all plugins use base qw(Koha::Plugins::Base); -our $VERSION = 1.01; our $metadata = { name => 'Test Plugin', author => 'Kyle M Hall', --