From cc0329508ac46461705c9184bb752a5d7fa84cad Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 12 Mar 2015 19:39:06 +0100 Subject: [PATCH] FFZG #390 - sigurature zs -- perl replacement for function, encoding --- cataloguing/additem.pl | 7 ++++++- .../value_builder/ffzg-signatura-zatvoreno-spremiste.pl | 1 + 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index c6401e5f2a..86bcac76e9 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -400,9 +400,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 -- 2.20.1