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

[koha.git] / cataloguing / additem.pl

diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
index 19279b3..86bcac7 100755 (executable)
--- a/cataloguing/additem.pl
+++ b/cataloguing/additem.pl
@@ -177,13 +177,12 @@ sub generate_subfield_form {
             }
             elsif ( $subfieldlib->{authorised_value} eq "itemtypes" ) {
                   push @authorised_values, "" unless ( $subfieldlib->{mandatory} );
-                  my $sth = $dbh->prepare("SELECT itemtype,description FROM itemtypes ORDER BY description");
-                  $sth->execute;
-                  while ( my ( $itemtype, $description ) = $sth->fetchrow_array ) {
-                      push @authorised_values, $itemtype;
-                      $authorised_lib{$itemtype} = $description;
+                  my $itemtypes = GetItemTypes( style => 'array' );
+                  for my $itemtype ( @$itemtypes ) {
+                      push @authorised_values, $itemtype->{itemtype};
+                      $authorised_lib{$itemtype->{itemtype}} = $itemtype->{translated_description};
                   }
-        
+
                   unless ( $value ) {
                       my $itype_sth = $dbh->prepare("SELECT itemtype FROM biblioitems WHERE biblionumber = ?");
                       $itype_sth->execute( $biblionumber );
@@ -395,6 +394,33 @@ my ($template, $loggedinuser, $cookie)
                  });
 
 
+# XXX dpavlin -- signatura zatvorenog spremista
+sub ffzg_zs_callnumber {
+       my ($record) = @_;
+       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 );
+
+               $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";
+
+               if ( $itemcallnumber < $min || $itemcallnumber > $max ) {
+                       die "can't find next itemcallnumber for $prefix $min-$max, got: $itemcallnumber";
+               }
+               my $fieldItem = $record->field($tagfield);
+               $fieldItem->update($tagsubfield => $prefix . ' ' . $itemcallnumber);
+       }
+       return $record;
+}
+
+
 # Does the user have a restricted item editing permission?
 my $uid = $loggedinuser ? GetMember( borrowernumber => $loggedinuser )->{userid} : undef;
 my $restrictededition = $uid ? haspermission($uid,  {'editcatalogue' => 'edit_items_restricted'}) : undef;
@@ -460,6 +486,8 @@ if ($op eq "additem") {
 
     my $addedolditem = TransformMarcToKoha( $dbh, $record );
 
+       $record = ffzg_zs_callnumber( $record ); # XXX dpavlin
+
     # If we have to add or add & duplicate, we add the item
     if ( $add_submit || $add_duplicate_submit ) {
 
@@ -586,6 +614,40 @@ if ($op eq "additem") {
     $itemrecord = C4::Items::GetMarcItem($biblionumber,$itemnumber);
     $nextop = "saveitem";
 #-------------------------------------------------------------------------------
+} elsif ($op eq "dupeitem") {
+#-------------------------------------------------------------------------------
+# retrieve item if exist => then, it's a modif
+    $itemrecord = C4::Items::GetMarcItem($biblionumber,$itemnumber);
+    if (C4::Context->preference('autoBarcode') eq 'incremental') {
+        $itemrecord = _increment_barcode($itemrecord, $frameworkcode);
+    }
+    else {
+        # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin
+        my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode);
+        my $fieldItem = $itemrecord->field($tagfield);
+        $itemrecord->delete_field($fieldItem);
+        $fieldItem->delete_subfields($tagsubfield);
+        $itemrecord->insert_fields_ordered($fieldItem);
+    }
+
+    #check for hidden subfield and remove them for the duplicated item
+    foreach my $field ($itemrecord->fields()){
+        my $tag = $field->{_tag};
+        foreach my $subfield ($field->subfields()){
+            my $subfieldtag = $subfield->[0];
+            if (subfield_is_koha_internal_p($subfieldtag) || $tagslib->{$tag}->{$subfieldtag}->{'tab'} ne "10"
+            ||  abs($tagslib->{$tag}->{$subfieldtag}->{hidden})>4 ){
+                my $fieldItem = $itemrecord->field($tag);
+                $itemrecord->delete_field($fieldItem);
+                $fieldItem->delete_subfields($subfieldtag);
+                $itemrecord->insert_fields_ordered($fieldItem);
+            }
+        }
+    }
+
+    $itemrecord = removeFieldsForPrefill($itemrecord) if ($prefillitem);
+    $nextop = "additem";
+#-------------------------------------------------------------------------------
 } elsif ($op eq "delitem") {
 #-------------------------------------------------------------------------------
     # check that there is no issue on this item before deletion.
@@ -650,6 +712,9 @@ if ($op eq "additem") {
     # MARC::Record builded => now, record in DB
     # warn "R: ".$record->as_formatted;
     # check that the barcode don't exist already
+
+       $itemtosave = ffzg_zs_callnumber( $itemtosave ); # XXX dpavlin
+
     my $addedolditem = TransformMarcToKoha($dbh,$itemtosave);
     my $exist_itemnumber = get_item_from_barcode($addedolditem->{'barcode'});
     if ($exist_itemnumber && $exist_itemnumber != $itemnumber) {