From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 12 Mar 2015 18:39:06 +0000 (+0100)
Subject: FFZG #390 - sigurature zs -- perl replacement for function, encoding
X-Git-Url: http://git.rot13.org/?p=koha.git;a=commitdiff_plain;h=46010b70962870ebd10d123c061fd1f3d31c32aa

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

diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
index 09784fd4b2..7dd339f0dd 100755
--- 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 603e5528f5..5774347e4d 100755
--- 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