AKZG -- added inventory number generation for new homebranch

diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl
index 800a9d2..e80e368 100755 (executable)
--- a/acqui/finishreceive.pl
+++ b/acqui/finishreceive.pl
@@ -218,18 +218,22 @@ foreach my $itemnumber ( @received_items ) {
 
        my $year = DateTime->now->year;
 
-       if (! $stocknumber && $homebranch eq 'FFZG' ) {
+       if (! $stocknumber && ( $homebranch eq 'FFZG' || $homebranch eq 'AKZG' ) ) {
 
-               $sth = $dbh->prepare("select max(num) from ffzg_inventarna_knjiga where year = ?");
+               my $inventarna_knjiga = lc($homebranch) . '_inventarna_knjiga';
+
+               $sth = $dbh->prepare("select max(num) from $inventarna_knjiga where year = ?");
                $sth->execute($year);
 
                $stocknumber = $sth->fetchrow; # return null without any data
                $stocknumber += 1;
 
-               $sth = $dbh->prepare("insert into ffzg_inventarna_knjiga (year,num, biblionumber, itemnumber) values (?,?,?,?)");
+               $sth = $dbh->prepare("insert into $inventarna_knjiga (year,num, biblionumber, itemnumber) values (?,?,?,?)");
                $sth->execute( $year, $stocknumber, $biblionumber, $itemnumber );
 
                $stocknumber = "$year-$stocknumber";
+
+               $stocknumber = 'AK-' . $stocknumber if $homebranch eq 'AKZG';
        }
 
        warn "## itemnumber: $itemnumber barcode: $barcode stocknumber: $stocknumber\n";

diff --git a/ffzg/akzg_inventarna_knjiga.sql b/ffzg/akzg_inventarna_knjiga.sql
new file mode 100644 (file)
index 0000000..489d31a
--- /dev/null
+++ b/ffzg/akzg_inventarna_knjiga.sql
@@ -0,0 +1,9 @@
+create table akzg_inventarna_knjiga (
+       id int not null auto_increment primary key,
+       year int not null,
+       num int not null,
+       biblionumber int not null,
+       itemnumber int,
+       last_update timestamp default current_timestamp on update current_timestamp,
+       unique index akzg_inv_br(year,num)
+);