X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FBarcodes.pm;h=256a177680a0e2d7ae7a89f2aa293b7615e8461a;hb=5b160af2a051dc3693f04dabf320d0995cf26160;hp=b08d660165e51b11e63d1d5d7b81b70eab97af63;hpb=4715e38e6ab06715ab4b8fcfc588356b89b7aa08;p=koha.git diff --git a/C4/Barcodes.pm b/C4/Barcodes.pm index b08d660165..256a177680 100644 --- a/C4/Barcodes.pm +++ b/C4/Barcodes.pm @@ -4,18 +4,18 @@ package C4::Barcodes; # # This file is part of Koha. # -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. # -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along -# with Koha; if not, write to the Free Software Foundation, Inc., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . use strict; use warnings; @@ -24,18 +24,16 @@ use Carp; use C4::Context; use C4::Debug; -use C4::Dates; use C4::Barcodes::hbyymmincr; use C4::Barcodes::annual; use C4::Barcodes::incremental; use C4::Barcodes::EAN13; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); 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(); @@ -133,7 +131,7 @@ sub next_value { } my $x = length($incr); # number of digits $incr =~ /^9+$/ and $x++; # if they're all 9's, we need an extra. - # Note, this enlargement might be undesireable for some barcode formats. + # Note, this enlargement might be undesirable for some barcode formats. # Those should override next_value() to work accordingly. $incr++;