View | Details | Raw Unified | Return to bug 19113
Collapse All | Expand All

(-)a/C4/Barcodes/ValueBuilder.pm (-2 / +1 lines)
Lines 49-55 sub get_barcode { Link Here
49
    my $month = $args->{mon};
49
    my $month = $args->{mon};
50
    my $query = "SELECT MAX(CAST(SUBSTRING(barcode,-4) AS signed)) AS number FROM items WHERE barcode REGEXP ?";
50
    my $query = "SELECT MAX(CAST(SUBSTRING(barcode,-4) AS signed)) AS number FROM items WHERE barcode REGEXP ?";
51
    my $sth = C4::Context->dbh->prepare($query);
51
    my $sth = C4::Context->dbh->prepare($query);
52
    $sth->execute("^[-a-zA-Z]{1,}$year$month");
52
    $sth->execute("^[-a-zA-Z0-9]{1,}$year$month");
53
    while (my ($count)= $sth->fetchrow_array) {
53
    while (my ($count)= $sth->fetchrow_array) {
54
        $nextnum = $count if $count;
54
        $nextnum = $count if $count;
55
        $nextnum = 0 if $nextnum == 9999; # this sequence only allows for cataloging 9999 items per month
55
        $nextnum = 0 if $nextnum == 9999; # this sequence only allows for cataloging 9999 items per month
56
- 

Return to bug 19113