FFZG #390 - sigurature zs -- perl replacement for function, encoding

diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
index 09784fd..7dd339f 100755 (executable)
--- a/cataloguing/additem.pl
+++ b/cataloguing/additem.pl
@@ -417,9 +417,14 @@ sub ffzg_zs_callnumber {
        my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.itemcallnumber",$frameworkcode);
        if ($record->field($tagfield)->subfield($tagsubfield) =~ m/^ZS#(\w\w)\s(\d+)-(\d+)$/ ) {
                my ( $prefix, $min, $max ) = ( $1, $2, $3 );
-               my $sth = $dbh->prepare(qq{ select ffzg_zs_nextval(?) });
+
+               $dbh->begin_work;
+               my $sth = $dbh->prepare(qq{ update ffzg_zs_seq set current = current + 1 where name = ? });
+               $sth->execute( $prefix );
+               $sth = $dbh->prepare(qq{ select current from ffzg_zs_seq where name = ? });
                $sth->execute( $prefix );
                my ($itemcallnumber) = $sth->fetchrow;
+               $dbh->commit;
 
 warn "ZS: $prefix $min - $max => $itemcallnumber\n";
 

diff --git a/cataloguing/value_builder/ffzg-signatura-zatvoreno-spremiste.pl b/cataloguing/value_builder/ffzg-signatura-zatvoreno-spremiste.pl
index 603e552..5774347 100755 (executable)
--- a/cataloguing/value_builder/ffzg-signatura-zatvoreno-spremiste.pl
+++ b/cataloguing/value_builder/ffzg-signatura-zatvoreno-spremiste.pl
@@ -7,6 +7,7 @@ use C4::Context;
 
 use C4::Search;
 use C4::Output;
+use utf8;
 
 =head1 NAME