Lines 28-33
use C4::Dates;
Link Here
|
28 |
use C4::Barcodes::hbyymmincr; |
28 |
use C4::Barcodes::hbyymmincr; |
29 |
use C4::Barcodes::annual; |
29 |
use C4::Barcodes::annual; |
30 |
use C4::Barcodes::incremental; |
30 |
use C4::Barcodes::incremental; |
|
|
31 |
use C4::Barcodes::EAN13; |
31 |
|
32 |
|
32 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
33 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
33 |
use vars qw($debug $cgi_debug); # from C4::Debug, of course |
34 |
use vars qw($debug $cgi_debug); # from C4::Debug, of course |
Lines 138-144
sub next_value {
Link Here
|
138 |
|
139 |
|
139 |
$debug and warn "$incr"; |
140 |
$debug and warn "$incr"; |
140 |
$head = $self->process_head($head,$max,$specific); |
141 |
$head = $self->process_head($head,$max,$specific); |
141 |
$tail = $self->process_tail($tail,$max,$specific); |
142 |
$tail = $self->process_tail($tail,$incr,$specific); # XXX use $incr and not $max! |
142 |
my $next_value = $head . $incr . $tail; |
143 |
my $next_value = $head . $incr . $tail; |
143 |
$debug and print STDERR "( next ) max barcode found: $next_value\n"; |
144 |
$debug and print STDERR "( next ) max barcode found: $next_value\n"; |
144 |
return $next_value; |
145 |
return $next_value; |
Lines 177-182
our $types = {
Link Here
|
177 |
incremental => sub {C4::Barcodes::incremental->new_object(@_);}, |
178 |
incremental => sub {C4::Barcodes::incremental->new_object(@_);}, |
178 |
hbyymmincr => sub {C4::Barcodes::hbyymmincr->new_object(@_); }, |
179 |
hbyymmincr => sub {C4::Barcodes::hbyymmincr->new_object(@_); }, |
179 |
OFF => sub {C4::Barcodes::OFF->new_object(@_); }, |
180 |
OFF => sub {C4::Barcodes::OFF->new_object(@_); }, |
|
|
181 |
EAN13 => sub {C4::Barcodes::EAN13->new_object(@_); }, |
180 |
}; |
182 |
}; |
181 |
|
183 |
|
182 |
sub new { |
184 |
sub new { |