@@ -, +, @@ --- C4/Accounts.pm | 2 +- C4/Acquisition.pm | 2 +- C4/Auth.pm | 3 ++- C4/Auth_with_cas.pm | 2 +- C4/Auth_with_ldap.pm | 2 +- C4/AuthoritiesMarc.pm | 2 +- C4/AuthoritiesMarc/MARC21.pm | 2 +- C4/AuthoritiesMarc/UNIMARC.pm | 2 +- C4/BackgroundJob.pm | 2 +- C4/Barcodes.pm | 2 +- C4/Barcodes/PrinterConfig.pm | 2 +- C4/Barcodes/annual.pm | 2 +- C4/Barcodes/hbyymmincr.pm | 2 +- C4/Barcodes/incremental.pm | 2 +- C4/Biblio.pm | 2 +- C4/Bookseller.pm | 2 +- C4/Boolean.pm | 2 +- C4/Branch.pm | 2 +- C4/Breeding.pm | 2 +- C4/Budgets.pm | 2 +- C4/Charset.pm | 2 +- C4/Circulation.pm | 2 +- C4/ClassSortRoutine.pm | 2 +- C4/ClassSortRoutine/Dewey.pm | 2 +- C4/ClassSortRoutine/Generic.pm | 2 +- C4/ClassSortRoutine/LCC.pm | 2 +- C4/ClassSource.pm | 2 +- C4/Context.pm | 2 +- C4/Contract.pm | 2 +- C4/Creators.pm | 2 +- C4/Creators/Batch.pm | 2 +- C4/Creators/Layout.pm | 2 +- C4/Creators/Lib.pm | 2 +- C4/Creators/PDF.pm | 2 +- C4/Creators/Profile.pm | 2 +- C4/Creators/Template.pm | 2 +- C4/Csv.pm | 2 +- C4/Dates.pm | 2 +- C4/Debug.pm | 2 +- C4/External/Amazon.pm | 2 +- C4/External/BakerTaylor.pm | 2 +- C4/External/Syndetics.pm | 2 +- C4/Heading.pm | 2 +- C4/Heading/MARC21.pm | 2 +- C4/Heading/UNIMARC.pm | 2 +- C4/ILSDI/Utility.pm | 2 +- C4/Images.pm | 2 +- C4/ImportBatch.pm | 2 +- C4/ImportExportFramework.pm | 2 +- C4/Input.pm | 2 +- C4/Installer.pm | 2 +- C4/Installer/PerlModules.pm | 2 +- C4/Items.pm | 2 +- C4/Koha.pm | 2 +- C4/Labels.pm | 2 +- C4/Labels/Batch.pm | 2 +- C4/Labels/Label.pm | 2 +- C4/Labels/Layout.pm | 2 +- C4/Labels/Profile.pm | 2 +- C4/Labels/Template.pm | 2 +- C4/Languages.pm | 2 +- C4/Letters.pm | 2 +- C4/Log.pm | 2 +- C4/Maintainance.pm | 2 +- C4/Matcher.pm | 2 +- C4/Members.pm | 2 +- C4/Members/AttributeTypes.pm | 2 +- C4/Members/Attributes.pm | 2 +- C4/Members/Messaging.pm | 2 +- C4/NewsChannels.pm | 2 +- C4/Output.pm | 2 +- C4/Overdues.pm | 2 +- C4/Patroncards.pm | 2 +- C4/Patroncards/Batch.pm | 2 +- C4/Patroncards/Layout.pm | 2 +- C4/Patroncards/Lib.pm | 2 +- C4/Patroncards/Patroncard.pm | 2 +- C4/Patroncards/Profile.pm | 2 +- C4/Patroncards/Template.pm | 2 +- C4/Print.pm | 2 +- C4/Ratings.pm | 2 +- C4/Record.pm | 2 +- C4/Reports.pm | 2 +- C4/Reports/Guided.pm | 2 +- C4/Reserves.pm | 2 +- C4/Review.pm | 2 +- C4/Ris.pm | 2 +- C4/RotatingCollections.pm | 2 +- C4/SIP/ILS/Item.pm | 2 +- C4/SIP/ILS/Patron.pm | 2 +- C4/SIP/ILS/Transaction/Checkout.pm | 2 +- C4/SIP/ILS/Transaction/FeePayment.pm | 2 +- C4/SIP/ILS/Transaction/Hold.pm | 2 +- C4/SIP/SIPServer.pm | 2 +- C4/SIP/Sip.pm | 2 +- C4/SIP/Sip/MsgType.pm | 2 +- C4/SMS.pm | 2 +- C4/SQLHelper.pm | 2 +- C4/Scheduler.pm | 2 +- C4/Scrubber.pm | 2 +- C4/Search.pm | 2 +- C4/Serials.pm | 2 +- C4/ShelfBrowser.pm | 2 +- C4/Stats.pm | 2 +- C4/Suggestions.pm | 2 +- C4/Tags.pm | 2 +- C4/TmplToken.pm | 2 +- C4/TmplTokenType.pm | 2 +- C4/UploadedFile.pm | 2 +- C4/Utils.pm | 2 +- C4/Utils/DataTables.pm | 2 +- C4/VirtualShelves.pm | 2 +- C4/VirtualShelves/Page.pm | 2 +- C4/XISBN.pm | 2 +- C4/XSLT.pm | 2 +- C4/Z3950.pm | 2 +- 116 files changed, 117 insertions(+), 116 deletions(-) mode change 100755 => 100644 C4/Installer.pm --- a/C4/Accounts.pm +++ a/C4/Accounts.pm @@ -29,7 +29,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.03; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -37,7 +37,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Auth.pm +++ a/C4/Auth.pm @@ -41,7 +41,8 @@ BEGIN { if ( psgi_env ) { die 'psgi:exit' } else { exit } } - $VERSION = 3.02; # set version for version checking + $VERSION = 3.07.00.049; # set version for version checking + $debug = $ENV{DEBUG}; @ISA = qw(Exporter); @EXPORT = qw(&checkauth &get_template_and_user &haspermission &get_user_subpermissions); --- a/C4/Auth_with_cas.pm +++ a/C4/Auth_with_cas.pm @@ -32,7 +32,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); BEGIN { require Exporter; - $VERSION = 3.03; # set the version for version checking + $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 @@ -35,7 +35,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); BEGIN { require Exporter; - $VERSION = 3.10; # set the version for version checking + $VERSION = 3.07.00.049; # set the version for version checking @ISA = qw(Exporter); @EXPORT = qw( checkpw_ldap ); } --- a/C4/AuthoritiesMarc.pm +++ a/C4/AuthoritiesMarc.pm @@ -31,7 +31,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); --- a/C4/AuthoritiesMarc/MARC21.pm +++ a/C4/AuthoritiesMarc/MARC21.pm @@ -20,7 +20,7 @@ package C4::AuthoritiesMarc::MARC21; use strict; #use warnings; FIXME - Bug 2505 use MARC::Record; -our $VERSION = 3.00; +our $VERSION = 3.07.00.049; =head1 NAME --- a/C4/AuthoritiesMarc/UNIMARC.pm +++ a/C4/AuthoritiesMarc/UNIMARC.pm @@ -19,7 +19,7 @@ package C4::AuthoritiesMarc::UNIMARC; use strict; #use warnings; FIXME - Bug 2505 -our $VERSION = 3.00; +our $VERSION = 3.07.00.049; =head1 NAME --- a/C4/BackgroundJob.pm +++ a/C4/BackgroundJob.pm @@ -28,7 +28,7 @@ use vars qw($VERSION); BEGIN { # set the version for version checking - $VERSION = 3.00; + $VERSION = 3.07.00.049; } =head1 NAME --- a/C4/Barcodes.pm +++ a/C4/Barcodes.pm @@ -34,7 +34,7 @@ use vars qw($debug $cgi_debug); # from C4::Debug, of course use vars qw($max $prefformat); BEGIN { - $VERSION = 0.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw(); --- a/C4/Barcodes/PrinterConfig.pm +++ a/C4/Barcodes/PrinterConfig.pm @@ -24,7 +24,7 @@ use PDF::API2::Page; BEGIN { # set the version for version checking - $VERSION = 0.02; + $VERSION = 3.07.00.049; require Exporter; @EXPORT = qw(&labelsPage &getLabelPosition setPositionsForX setPositionsForY); } --- a/C4/Barcodes/annual.pm +++ a/C4/Barcodes/annual.pm @@ -31,7 +31,7 @@ use vars qw($debug $cgi_debug); # from C4::Debug, of course use vars qw($width); BEGIN { - $VERSION = 0.01; + $VERSION = 3.07.00.049; @ISA = qw(C4::Barcodes); $width = 4; } --- a/C4/Barcodes/hbyymmincr.pm +++ a/C4/Barcodes/hbyymmincr.pm @@ -31,7 +31,7 @@ use vars qw($debug $cgi_debug); # from C4::Debug, of course use vars qw($branch $width); BEGIN { - $VERSION = 0.01; + $VERSION = 3.07.00.049; @ISA = qw(C4::Barcodes); } --- a/C4/Barcodes/incremental.pm +++ a/C4/Barcodes/incremental.pm @@ -23,7 +23,7 @@ use warnings; use vars qw($VERSION @ISA); BEGIN { - $VERSION = 0.01; + $VERSION = 3.07.00.049; @ISA = qw(C4::Barcodes); } --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -40,7 +40,7 @@ use C4::OAI::Sets; use vars qw($VERSION @ISA @EXPORT); BEGIN { - $VERSION = 1.00; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw( Exporter ); --- a/C4/Bookseller.pm +++ a/C4/Bookseller.pm @@ -24,7 +24,7 @@ use warnings; use base qw( Exporter ); # set the version for version checking -our $VERSION = 4.01; +our $VERSION = 3.07.00.049; our @EXPORT_OK = qw( GetBookSeller GetBooksellersWithLateOrders GetBookSellerFromId ModBookseller --- a/C4/Boolean.pm +++ a/C4/Boolean.pm @@ -27,7 +27,7 @@ use warnings; use Carp; use base qw(Exporter); -our $VERSION = 0.03; +our $VERSION = 3.07.00.049; our @EXPORT_OK = qw( true_p); =head1 NAME --- a/C4/Branch.pm +++ a/C4/Branch.pm @@ -25,7 +25,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { # set the version for version checking - $VERSION = 3.02; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT = qw( &GetBranchCategory --- a/C4/Breeding.pm +++ a/C4/Breeding.pm @@ -30,7 +30,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { # set the version for version checking - $VERSION = 0.02; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(&ImportBreeding &BreedingSearch); --- a/C4/Budgets.pm +++ a/C4/Budgets.pm @@ -28,7 +28,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Charset.pm +++ a/C4/Charset.pm @@ -29,7 +29,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -47,7 +47,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { require Exporter; - $VERSION = 3.02; # for version checking + $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,7 @@ use C4::Context; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking -$VERSION = 3.00; +$VERSION = 3.07.00.049; =head1 NAME --- a/C4/ClassSortRoutine/Dewey.pm +++ a/C4/ClassSortRoutine/Dewey.pm @@ -23,7 +23,7 @@ use warnings; use vars qw($VERSION); # set the version for version checking -$VERSION = 3.00; +$VERSION = 3.07.00.049; =head1 NAME --- a/C4/ClassSortRoutine/Generic.pm +++ a/C4/ClassSortRoutine/Generic.pm @@ -23,7 +23,7 @@ use warnings; use vars qw($VERSION); # set the version for version checking -$VERSION = 3.00; +$VERSION = 3.07.00.049; =head1 NAME --- a/C4/ClassSortRoutine/LCC.pm +++ a/C4/ClassSortRoutine/LCC.pm @@ -23,7 +23,7 @@ use warnings; use vars qw($VERSION); # set the version for version checking -$VERSION = 3.00; +$VERSION = 3.07.00.049; =head1 NAME --- a/C4/ClassSource.pm +++ a/C4/ClassSource.pm @@ -27,7 +27,7 @@ use C4::ClassSortRoutine; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking -$VERSION = 3.00; +$VERSION = 3.07.00.049; =head1 NAME --- a/C4/Context.pm +++ a/C4/Context.pm @@ -95,7 +95,7 @@ BEGIN { $ismemcached = $memcached->set('ismemcached','1'); } - $VERSION = '3.00.00.036'; + $VERSION = '3.07.00.049'; } use DBI; --- a/C4/Contract.pm +++ a/C4/Contract.pm @@ -25,7 +25,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.2; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Creators.pm +++ a/C4/Creators.pm @@ -18,7 +18,7 @@ package C4::Creators; # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use C4::Context; use C4::Debug; BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use C4::Debug; use C4::Creators::PDF; BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use C4::Context; use C4::Debug; BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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 @@ -23,7 +23,7 @@ use PDF::Reuse; use PDF::Reuse::Barcode; BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + use version; our $VERSION = qv('3.07.00.049'); } sub _InitVars { --- a/C4/Creators/Profile.pm +++ a/C4/Creators/Profile.pm @@ -10,7 +10,7 @@ use C4::Debug; use C4::Creators::Lib 1.000000 qw(get_unit_values); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use C4::Creators::Profile 1.000000; use C4::Creators::Lib 1.000000 qw(get_unit_values); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + use version; our $VERSION = qv('3.07.00.049'); } sub _check_params { --- a/C4/Csv.pm +++ a/C4/Csv.pm @@ -26,7 +26,7 @@ use C4::Context; use vars qw($VERSION @ISA @EXPORT); # set the version for version checking -$VERSION = 3.00; +$VERSION = 3.07.00.049; @ISA = qw(Exporter); --- a/C4/Dates.pm +++ a/C4/Dates.pm @@ -31,7 +31,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); use vars qw($debug $cgi_debug); BEGIN { - $VERSION = 0.04; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT_OK = qw(format_date_in_iso format_date); } --- a/C4/Debug.pm +++ a/C4/Debug.pm @@ -27,7 +27,7 @@ use vars qw($VERSION @ISA @EXPORT $debug $cgi_debug); # use vars qw(@EXPORT_OK %EXPORT_TAGS); BEGIN { - $VERSION = 1.00; # set the version for version checking + $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 @@ -33,7 +33,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { require Exporter; - $VERSION = 0.03; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT = qw( get_amazon_details --- a/C4/External/BakerTaylor.pm +++ a/C4/External/BakerTaylor.pm @@ -32,7 +32,7 @@ use vars qw($user $pass $agent $image_url $link_url); BEGIN { require Exporter; - $VERSION = 0.01; + $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/Syndetics.pm +++ a/C4/External/Syndetics.pm @@ -30,7 +30,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { require Exporter; - $VERSION = 0.03; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT = qw( &get_syndetics_index --- a/C4/Heading.pm +++ a/C4/Heading.pm @@ -25,7 +25,7 @@ use C4::Context; use Module::Load; use Carp; -our $VERSION = 3.00; +our $VERSION = 3.07.00.049; =head1 NAME --- a/C4/Heading/MARC21.pm +++ a/C4/Heading/MARC21.pm @@ -22,7 +22,7 @@ use warnings; use MARC::Record; use MARC::Field; -our $VERSION = 3.00; +our $VERSION = 3.07.00.049; =head1 NAME --- a/C4/Heading/UNIMARC.pm +++ a/C4/Heading/UNIMARC.pm @@ -24,7 +24,7 @@ use MARC::Record; use MARC::Field; use C4::Context; -our $VERSION = 3.00; +our $VERSION = 3.07.00.049; =head1 NAME --- a/C4/ILSDI/Utility.pm +++ a/C4/ILSDI/Utility.pm @@ -35,7 +35,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.00; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Images.pm +++ a/C4/Images.pm @@ -30,7 +30,7 @@ use vars qw($debug $noimage $VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.03; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/ImportBatch.pm +++ a/C4/ImportBatch.pm @@ -30,7 +30,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/ImportExportFramework.pm +++ a/C4/ImportExportFramework.pm @@ -31,7 +31,7 @@ use C4::Debug; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { - $VERSION = 3.03; # set version for version checking + $VERSION = 3.07.00.049; # set version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Input.pm +++ a/C4/Input.pm @@ -28,7 +28,7 @@ use CGI; use vars qw($VERSION @ISA @EXPORT); # set the version for version checking -$VERSION = 0.01; +$VERSION = 3.07.00.049; =head1 NAME --- a/C4/Installer.pm +++ a/C4/Installer.pm @@ -20,7 +20,7 @@ package C4::Installer; use strict; #use warnings; FIXME - Bug 2505 -our $VERSION = 3.00; +our $VERSION = 3.07.00.049; use C4::Context; use C4::Installer::PerlModules 1.000000; --- a/C4/Installer/PerlModules.pm +++ a/C4/Installer/PerlModules.pm @@ -7,7 +7,7 @@ use File::Spec; use C4::Installer::PerlDependencies; -use version; our $VERSION = qv('1.0.0_1'); +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 @@ -36,7 +36,7 @@ use Data::Dumper; # used as part of logging item record changes, not just for use vars qw($VERSION @ISA @EXPORT); BEGIN { - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw( Exporter ); --- a/C4/Koha.pm +++ a/C4/Koha.pm @@ -33,7 +33,7 @@ use autouse 'Data::Dumper' => qw(Dumper); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $DEBUG); BEGIN { - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Labels.pm +++ a/C4/Labels.pm @@ -1,7 +1,7 @@ package C4::Labels; BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + use version; our $VERSION = qv('3.07.00.049'); use C4::Labels::Batch 1.000000; use C4::Labels::Label 1.000000; --- a/C4/Labels/Batch.pm +++ a/C4/Labels/Batch.pm @@ -8,7 +8,7 @@ use base qw(C4::Creators::Batch); use autouse 'Data::Dumper' => qw(Dumper); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + use version; our $VERSION = qv('3.07.00.049'); } __PACKAGE__ =~ m/^C4::(.+)::.+$/; --- a/C4/Labels/Label.pm +++ a/C4/Labels/Label.pm @@ -13,7 +13,7 @@ use C4::Debug; use C4::Biblio; BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use base qw(C4::Creators::Layout); use autouse 'Data::Dumper' => qw(Dumper); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use base qw(C4::Creators::Profile); use autouse 'Data::Dumper' => qw(Dumper); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use base qw(C4::Creators::Template); use autouse 'Data::Dumper' => qw(Dumper); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + use version; our $VERSION = qv('3.07.00.049'); } use constant TEMPLATE_TABLE => 'creator_templates'; --- a/C4/Languages.pm +++ a/C4/Languages.pm @@ -37,7 +37,7 @@ eval { }; BEGIN { - $VERSION = 3.00; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Letters.pm +++ a/C4/Letters.pm @@ -38,7 +38,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { require Exporter; # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT = qw( &GetLetters &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages --- a/C4/Log.pm +++ a/C4/Log.pm @@ -31,7 +31,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(&logaction &GetLogStatus &displaylog &GetLogs); --- a/C4/Maintainance.pm +++ a/C4/Maintainance.pm @@ -29,7 +29,7 @@ require Exporter; use vars qw($VERSION @ISA @EXPORT); # set the version for version checking -$VERSION = 0.01; +$VERSION = 3.07.00.049; =head1 NAME --- a/C4/Matcher.pm +++ a/C4/Matcher.pm @@ -29,7 +29,7 @@ use vars qw($VERSION); BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; } =head1 NAME --- a/C4/Members.pm +++ a/C4/Members.pm @@ -42,7 +42,7 @@ use Koha::DateUtils; our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,$debug); BEGIN { - $VERSION = 3.02; + $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,7 @@ use vars qw($VERSION); BEGIN { # set the version for version checking - $VERSION = 3.00; + $VERSION = 3.07.00.049; } =head1 NAME --- a/C4/Members/Attributes.pm +++ a/C4/Members/Attributes.pm @@ -29,7 +29,7 @@ our ($csv, $AttributeTypes); BEGIN { # set the version for version checking - $VERSION = 3.01; + $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,7 @@ use vars qw($VERSION); BEGIN { # set the version for version checking - $VERSION = 3.00; + $VERSION = 3.07.00.049; } =head1 NAME --- a/C4/NewsChannels.pm +++ a/C4/NewsChannels.pm @@ -26,7 +26,7 @@ use C4::Dates qw(format_date); use vars qw($VERSION @ISA @EXPORT); BEGIN { - $VERSION = 3.01; # set the version for version checking + $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,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { # set the version for version checking - $VERSION = 3.03; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); --- a/C4/Overdues.pm +++ a/C4/Overdues.pm @@ -33,7 +33,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); # subs to rename (and maybe merge some...) --- a/C4/Patroncards.pm +++ a/C4/Patroncards.pm @@ -1,7 +1,7 @@ package C4::Patroncards; BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use base qw(C4::Creators::Batch); use autouse 'Data::Dumper' => qw(Dumper); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use base qw(C4::Creators::Layout); use autouse 'Data::Dumper' => qw(Dumper); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use C4::Context; use C4::Debug; BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use C4::Creators::PDF 1.000000 qw(StrWidth); use C4::Patroncards::Lib 1.000000 qw(unpack_UTF8 text_alignment leading box get_borrower_attributes); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + use version; our $VERSION = qv('3.07.00.049'); } sub new { --- a/C4/Patroncards/Profile.pm +++ a/C4/Patroncards/Profile.pm @@ -8,7 +8,7 @@ use base qw(C4::Creators::Profile); use autouse 'Data::Dumper' => qw(Dumper); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use base qw(C4::Creators::Template); use autouse 'Data::Dumper' => qw(Dumper); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + 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,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(&NetworkPrint); --- a/C4/Ratings.pm +++ a/C4/Ratings.pm @@ -29,7 +29,7 @@ use C4::Context; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { - $VERSION = 3.00; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Record.pm +++ a/C4/Record.pm @@ -39,7 +39,7 @@ use Text::CSV::Encoded; #marc2csv use vars qw($VERSION @ISA @EXPORT); # set the version for version checking -$VERSION = 3.00; +$VERSION = 3.07.00.049; @ISA = qw(Exporter); --- a/C4/Reports.pm +++ a/C4/Reports.pm @@ -27,7 +27,7 @@ use C4::Debug; BEGIN { # set the version for version checking - $VERSION = 0.13; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Reports/Guided.pm +++ a/C4/Reports/Guided.pm @@ -35,7 +35,7 @@ use C4::Debug; BEGIN { # set the version for version checking - $VERSION = 0.12; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Reserves.pm +++ a/C4/Reserves.pm @@ -88,7 +88,7 @@ This modules provides somes functions to deal with reservations. BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Review.pm +++ a/C4/Review.pm @@ -26,7 +26,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.00; + $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 @@ -65,7 +65,7 @@ package C4::Ris; use vars qw($VERSION @ISA @EXPORT); # set the version for version checking -$VERSION = 3.00; +$VERSION = 3.07.00.049; @ISA = qw(Exporter); --- a/C4/RotatingCollections.pm +++ a/C4/RotatingCollections.pm @@ -37,7 +37,7 @@ use Data::Dumper; use vars qw($VERSION @ISA @EXPORT); # set the version for version checking -$VERSION = 0.01; +$VERSION = 3.07.00.049; =head1 NAME --- a/C4/SIP/ILS/Item.pm +++ a/C4/SIP/ILS/Item.pm @@ -25,7 +25,7 @@ use C4::Reserves; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); BEGIN { - $VERSION = 2.11; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw(); --- a/C4/SIP/ILS/Patron.pm +++ a/C4/SIP/ILS/Patron.pm @@ -26,7 +26,7 @@ use Digest::MD5 qw(md5_base64); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); BEGIN { - $VERSION = 2.03; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT_OK = qw(invalid_patron); } --- a/C4/SIP/ILS/Transaction/Checkout.pm +++ a/C4/SIP/ILS/Transaction/Checkout.pm @@ -24,7 +24,7 @@ use C4::Debug; use vars qw($VERSION @ISA $debug); BEGIN { - $VERSION = 1.03; + $VERSION = 3.07.00.049; @ISA = qw(ILS::Transaction); } --- a/C4/SIP/ILS/Transaction/FeePayment.pm +++ a/C4/SIP/ILS/Transaction/FeePayment.pm @@ -27,7 +27,7 @@ use base qw(ILS::Transaction); use vars qw($VERSION @ISA $debug); our $debug = 0; -our $VERSION = 1.00; +our $VERSION = 3.07.00.049; my %fields = (); --- a/C4/SIP/ILS/Transaction/Hold.pm +++ a/C4/SIP/ILS/Transaction/Hold.pm @@ -16,7 +16,7 @@ use C4::Biblio; # GetBiblioFromItemNumber GetBiblioItemByBiblioNumber use vars qw($VERSION @ISA); BEGIN { - $VERSION = 1.01; + $VERSION = 3.07.00.049; @ISA = qw(ILS::Transaction); } --- a/C4/SIP/SIPServer.pm +++ a/C4/SIP/SIPServer.pm @@ -21,7 +21,7 @@ use constant LOG_SIP => "local6"; # Local alias for the logging facility use vars qw(@ISA $VERSION); BEGIN { - $VERSION = 1.02; + $VERSION = 3.07.00.049; @ISA = qw(Net::Server::PreFork); } --- a/C4/SIP/Sip.pm +++ a/C4/SIP/Sip.pm @@ -20,7 +20,7 @@ use Sip::Checksum qw(checksum); use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS); BEGIN { - $VERSION = 1.00; + $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,7 @@ use UNIVERSAL qw(can); # make sure this is *after* C4 modules. use vars qw(@ISA $VERSION @EXPORT_OK); BEGIN { - $VERSION = 1.01; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT_OK = qw(handle); } --- a/C4/SMS.pm +++ a/C4/SMS.pm @@ -40,7 +40,7 @@ use C4::Context; use vars qw( $VERSION ); BEGIN { - $VERSION = 0.03; + $VERSION = 3.07.00.049; } =head1 METHODS --- a/C4/SQLHelper.pm +++ a/C4/SQLHelper.pm @@ -46,7 +46,7 @@ eval { BEGIN { # set the version for version checking - $VERSION = 0.5; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT_OK=qw( --- a/C4/Scheduler.pm +++ a/C4/Scheduler.pm @@ -26,7 +26,7 @@ use Schedule::At; BEGIN { # set the version for version checking - $VERSION = 0.02; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = --- a/C4/Scrubber.pm +++ a/C4/Scrubber.pm @@ -27,7 +27,7 @@ use HTML::Scrubber; use C4::Context; use C4::Debug; -our $VERSION = 0.02; +our $VERSION = v3.07.00.049; my %scrubbertypes = ( --- a/C4/Search.pm +++ a/C4/Search.pm @@ -39,7 +39,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); # set the version for version checking BEGIN { - $VERSION = 3.01; + $VERSION = 3.07.00.049; $DEBUG = ($ENV{DEBUG}) ? 1 : 0; } --- a/C4/Serials.pm +++ a/C4/Serials.pm @@ -30,7 +30,7 @@ use C4::Debug; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { - $VERSION = 3.01; # set version for version checking + $VERSION = 3.07.00.049; # set version for version checking require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/ShelfBrowser.pm +++ a/C4/ShelfBrowser.pm @@ -30,7 +30,7 @@ use C4::Koha; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); BEGIN { - $VERSION = 3.02; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/Stats.pm +++ a/C4/Stats.pm @@ -29,7 +29,7 @@ our $debug; BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT = qw( &UpdateStats --- a/C4/Suggestions.pm +++ a/C4/Suggestions.pm @@ -32,7 +32,7 @@ use C4::Letters; use List::MoreUtils qw; use C4::Dates qw(format_date_in_iso); use base qw(Exporter); -our $VERSION = 3.01; +our $VERSION = 3.07.00.049; our @EXPORT = qw< ConnectSuggestionAndBiblio CountSuggestion --- a/C4/Tags.pm +++ a/C4/Tags.pm @@ -30,7 +30,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); use vars qw($ext_dict $select_all @fields); BEGIN { - $VERSION = 0.03; + $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 @@ -39,7 +39,7 @@ This is a class representing a token scanned from an HTML::Template .tmpl file. ############################################################################### -$VERSION = 0.01; +$VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT_OK = qw(); --- a/C4/TmplTokenType.pm +++ a/C4/TmplTokenType.pm @@ -38,7 +38,7 @@ The predefined constants are ############################################################################### -$VERSION = 0.01; +$VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT_OK = qw( --- a/C4/UploadedFile.pm +++ a/C4/UploadedFile.pm @@ -28,7 +28,7 @@ use vars qw($VERSION); BEGIN { # set the version for version checking - $VERSION = 3.00; + $VERSION = 3.07.00.049; } =head1 NAME --- a/C4/Utils.pm +++ a/C4/Utils.pm @@ -27,7 +27,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); BEGIN { require Exporter; - $VERSION = 1.00; # set the version for version checking + $VERSION = 3.07.00.049; # set the version for version checking $debug = $ENV{DEBUG} || 0; @ISA = qw(Exporter); @EXPORT_OK = qw(&maxwidth &hashdump); --- a/C4/Utils/DataTables.pm +++ a/C4/Utils/DataTables.pm @@ -23,7 +23,7 @@ require Exporter; use vars qw($VERSION @ISA @EXPORT); BEGIN { - $VERSION = 3.04, + $VERSION = 3.07.00.049, @ISA = qw(Exporter); @EXPORT = qw(dt_build_orderby dt_build_having dt_get_params dt_build_query); --- a/C4/VirtualShelves.pm +++ a/C4/VirtualShelves.pm @@ -33,7 +33,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); BEGIN { # set the version for version checking - $VERSION = 3.02; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --- a/C4/VirtualShelves/Page.pm +++ a/C4/VirtualShelves/Page.pm @@ -44,7 +44,7 @@ use constant VIRTUALSHELVES_COUNT => 20; use vars qw($debug @EXPORT @ISA $VERSION); BEGIN { - $VERSION = 1.01; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT = qw(&shelfpage); $debug = $ENV{DEBUG} || 0; --- a/C4/XISBN.pm +++ a/C4/XISBN.pm @@ -31,7 +31,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { require Exporter; - $VERSION = 3.01; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT_OK = qw( &get_xisbns --- a/C4/XSLT.pm +++ a/C4/XSLT.pm @@ -39,7 +39,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { require Exporter; - $VERSION = 0.03; + $VERSION = 3.07.00.049; @ISA = qw(Exporter); @EXPORT = qw( &XSLTParse4Display --- a/C4/Z3950.pm +++ a/C4/Z3950.pm @@ -38,7 +38,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking - $VERSION = 3.01; + $VERSION = 3.07.00.049; require Exporter; @ISA = qw(Exporter); @EXPORT = qw( --