Lines 99-105
sub plugin_javascript {
Link Here
|
99 |
} |
99 |
} |
100 |
elsif ($autoBarcodeType eq 'hbyymmincr') { # Generates a barcode where hb = home branch Code, yymm = year/month catalogued, incr = incremental number, reset yearly -fbcit |
100 |
elsif ($autoBarcodeType eq 'hbyymmincr') { # Generates a barcode where hb = home branch Code, yymm = year/month catalogued, incr = incremental number, reset yearly -fbcit |
101 |
$year = substr($year, -2); |
101 |
$year = substr($year, -2); |
102 |
$query = "SELECT MAX(CAST(SUBSTRING(barcode,7,4) AS signed)) FROM items WHERE barcode REGEXP ?"; |
102 |
$query = "SELECT MAX(CAST(SUBSTRING(barcode,-4,4) AS signed)) FROM items WHERE barcode REGEXP ?"; |
103 |
my $sth = $dbh->prepare($query); |
103 |
my $sth = $dbh->prepare($query); |
104 |
$sth->execute("^[a-zA-Z]{1,}$year"); |
104 |
$sth->execute("^[a-zA-Z]{1,}$year"); |
105 |
while (my ($count)= $sth->fetchrow_array) { |
105 |
while (my ($count)= $sth->fetchrow_array) { |
106 |
- |
|
|