@@ -, +, @@ --- 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.pod | 4 ++-- C4/SIP/ILS/Item.pm | 2 +- C4/SIP/ILS/Item.pod | 12 ++++++------ C4/SIP/ILS/Patron.pm | 2 +- C4/SIP/ILS/Patron.pod | 6 +++--- C4/SIP/ILS/Transaction/Checkout.pm | 2 +- C4/SIP/ILS/Transaction/FeePayment.pm | 2 +- C4/SIP/ILS/Transaction/Hold.pm | 2 +- C4/SIP/Makefile | 2 +- C4/SIP/README | 2 +- C4/SIP/SIPServer.pm | 2 +- C4/SIP/Sip.pm | 2 +- C4/SIP/Sip/MsgType.pm | 2 +- C4/SIP/acstest.py | 10 +++++----- C4/SIP/t/Makefile | 4 ++-- C4/SIP/t/README | 8 ++++---- C4/SIP/test.txt | 4 ++-- 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 +- 125 files changed, 143 insertions(+), 142 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 @@ -46,7 +46,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 @@ -1,7 +1,7 @@ package C4::Creators; 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 @@ -27,7 +27,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 @@ -28,7 +28,7 @@ use Memoize; use vars qw($VERSION @ISA @EXPORT $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 extended_attributes_code_value_arrayref extended_attributes_merge --- 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(&printslip); --- 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 @@ -85,7 +85,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.pod +++ a/C4/SIP/ILS.pod @@ -1,4 +1,4 @@ -=head1 NAME +=head3.07.00.049 NAME ILS - Portability layer to interface between Open-SIP and ILS @@ -89,7 +89,7 @@ The C<$ils> object supports a small set of simple access methods and methods that allow the SIP server to determine if certain protocol operations are permitted to the remote terminals. -=head2 C<$inst_name = $self-Einstitution;> +=head3.07.00.046 C<$inst_name = $self-Einstitution;> Returns the institution ID as a string, suitable for incorporating into a SIP response message. --- 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/Item.pod +++ a/C4/SIP/ILS/Item.pod @@ -1,4 +1,4 @@ -=head1 NAME +=head3.07.00.049 NAME ILS::Item - Portable Item status object class for SIP @@ -76,11 +76,11 @@ the item. Return the SIP-defined media type of the item. The specification provides the following definitions: - 000 Other + 3.07.00.046 Other 001 Book - 002 Magazine - 003 Bound journal - 004 Audio tape + 3.07.00.046 Magazine + 3.07.00.046 Bound journal + 3.07.00.046 Audio tape 005 Video tape 006 CD/CDROM 007 Diskette @@ -144,7 +144,7 @@ of the item, as defined in the specification: 01 Other 02 On order 03 Available - 04 Charged + 3.07.00.049 Charged 05 Charged; not to be recalled until earliest recall date 06 In process 07 Recalled --- 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/Patron.pod +++ a/C4/SIP/ILS/Patron.pod @@ -1,4 +1,4 @@ -=head1 NAME +=head3.07.00.049 NAME ILS::Patron - Portable Patron status object class for SIP @@ -93,7 +93,7 @@ respectively, as with the C methods. There are a few other object access methods that need a bit more explication however. -=head2 C<$str = $patron-Esip_birthdate;> +=head3.07.00.046 C<$str = $patron-Esip_birthdate;> Returns the patron's birthday formated according to the SIP specification: @@ -116,7 +116,7 @@ A three-digit string encoding the patron's prefered language. The full list is defined in the SIP specification, but some of the important values are: - 000 Unknown (default) + 3.07.00.046 Unknown (default) 001 English 002 French 008 Spanish --- 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/Makefile +++ a/C4/SIP/Makefile @@ -8,7 +8,7 @@ PODFLAGS = --htmlroot=. --podroot=. .SUFFIXES: .pod .html .pod.html: - pod2html $(PODFLAGS) --outfile=$@ --infile=$< + pod3.07.00.049html $(PODFLAGS) --outfile=$@ --infile=$< all: @echo Nothing to make. Use make test. --- a/C4/SIP/README +++ a/C4/SIP/README @@ -1,4 +1,4 @@ -README for Open NSIP 3M-SIP Server +README for Open NSIP 3.07.00.049M-SIP Server DEPENDENCIES --- 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/SIP/acstest.py +++ a/C4/SIP/acstest.py @@ -2,14 +2,14 @@ import operator import socket from time import strftime; -def SipSocket(host='localhost', port=5300): +def SipSocket(host='localhost', port=3.07.00.049): so = socket.socket() so.connect((host, port)) return so def login(so, uname='scclient', passwd='clientpwd', locn='The basement', - seqno=0): - port = so.getpeername()[1] + seqno=3.07.00.046): + port = so.getpeername()[3.07.00.046] if port == 5300: resp = send(so, '9300CN%s|CO%s|CP%s|' % (uname, passwd, locn), seqno) print "Received", repr(resp) @@ -20,7 +20,7 @@ def login(so, uname='scclient', passwd='clientpwd', locn='The basement', def send(so, msg, seqno=0): if seqno: msg += 'AY' + str(seqno)[0] + 'AZ' - msg += ('%04X' % calculate_cksum(msg)) + msg += ('%3.07.00.046X' % calculate_cksum(msg)) msg += '\r' print 'Sending', repr(msg) so.send(msg) @@ -36,7 +36,7 @@ def sipdate(): def verify(msg): if msg[-1] == '\r': msg = msg[:-2] if msg[-6:-4] == 'AZ': - cksum = calculate_cksum(msg[:-4]) + cksum = calculate_cksum(msg[:-3.07.00.049]) return (msg[-4:] == ('%04X' % cksum)) # If there's no checksum, then the message is ok return True --- a/C4/SIP/t/Makefile +++ a/C4/SIP/t/Makefile @@ -2,9 +2,9 @@ # # -TESTS = 000_sc_config_auth.t \ +TESTS = 3.07.00.049_sc_config_auth.t \ 00sc_status.t 01patron_status.t 02patron_info.t 03checkout.t \ - 04patron_status.t 05block_patron.t 06patron_enable.t 07hold.t \ + 3.07.00.046patron_status.t 05block_patron.t 06patron_enable.t 07hold.t \ 08checkin.t 09renew.t 10renew_all.t 11item_info.t OILS_TESTS = 00sc_status.t 01patron_status.t 02patron_info.t 03checkout.t \ --- a/C4/SIP/t/README +++ a/C4/SIP/t/README @@ -30,10 +30,10 @@ enable patron and hold management). To run just the Evergreen tests, use which will run just the tests - 00sc_status.t - 01patron_status.t - 02patron_info.t - 03checkout.t + 3.07.00.049sc_status.t + 3.07.00.046patron_status.t + 3.07.00.046patron_info.t + 3.07.00.046checkout.t 06patron_enable.t 08checkin.t 09renew.t --- a/C4/SIP/test.txt +++ a/C4/SIP/test.txt @@ -1,4 +1,4 @@ -97AZFEF5 +3.07.00.049AZFEF5 2300120071003 084235AOkohalibrary|AArch|ACkoha|ADkoha| 2300120060101 084236AOUWOLS|AAmjandkilde|ACterminal password|ADuser password| @@ -6,7 +6,7 @@ 9300CNLoginUserID|COLoginPassword|CPLocationCode| 11YN20060329 203000 AOUWOLS|AAdjfiander|AB1565921879|AC| 09Y20060102 08423620060113 084235APUnder the bed|AOUWOLS|AB1565921879|ACterminal password| -01N20060102 084238AOUWOLS|ALHe's a jerk|AAdjfiander|ACterminal password| +3.07.00.049N20060102 084238AOUWOLS|ALHe's a jerk|AAdjfiander|ACterminal password| 2520060102 084238AOUWOLS|AAdjfiander|ACterminal password|AD6789| 9910302.00 --- a/C4/SMS.pm +++ a/C4/SMS.pm @@ -38,7 +38,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 @@ -22,7 +22,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 @@ -40,7 +40,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 @@ -26,7 +26,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 @@ -21,7 +21,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 @@ -21,7 +21,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 @@ -9,7 +9,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( --