if ( ! defined( $value ) || $value eq '') {
$value = $subfieldlib->{defaultvalue};
# get today date & replace YYYY, MM, DD if provided in the default value
- my $today = dt_from_string;
- $value =~ s/YYYY/$today->year/g;
- $value =~ s/MM/$today->month/g;
- $value =~ s/DD/$today->day/g;
+ my $today_iso = output_pref( { dt=>dt_from_string, dateonly => 1, dateformat => 'iso' } );
+ my ( $year, $month, $day ) = split ('-', $today_iso);
+ $value =~ s/YYYY/$year/g;
+ $value =~ s/MM/$month/g;
+ $value =~ s/DD/$day/g;
}
$subfield_data{visibility} = "display:none;" if (($subfieldlib->{hidden} > 4) || ($subfieldlib->{hidden} <= -4));
}
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 );
});
+# 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;
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 ) {
$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.
# 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) {