Lines 53-66
sub plugin_javascript {
Link Here
|
53 |
|
53 |
|
54 |
my $branchcode = C4::Context->userenv->{'branch'}; |
54 |
my $branchcode = C4::Context->userenv->{'branch'}; |
55 |
|
55 |
|
56 |
$query = "SELECT MAX(CAST(SUBSTRING_INDEX(stocknumber,'_',-1) AS SIGNED)) FROM items WHERE homebranch = ?"; |
56 |
$query = "SELECT MAX(CAST(SUBSTRING_INDEX(stocknumber,'_',-1) AS SIGNED))+1 FROM items WHERE homebranch = ? AND stocknumber LIKE ?"; |
57 |
my $sth=$dbh->prepare($query); |
57 |
my $sth=$dbh->prepare($query); |
58 |
$sth->execute($branchcode); |
|
|
59 |
while (my ($count)= $sth->fetchrow_array) { |
60 |
$nextnum = $count; |
61 |
} |
62 |
$nextnum++; |
63 |
|
58 |
|
|
|
59 |
$sth->execute($branchcode,$branchcode."_%"); |
60 |
my ($nextnum) = $sth->fetchrow; |
64 |
my $nextnum = $branchcode.'_'.$nextnum; |
61 |
my $nextnum = $branchcode.'_'.$nextnum; |
65 |
|
62 |
|
66 |
my $scr = <<END_OF_JS; |
63 |
my $scr = <<END_OF_JS; |
67 |
- |
|
|