From 2031988e5d9da719be13df2387ec76462d7caf3c Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Mon, 5 Jul 2010 20:39:52 +0200 Subject: [PATCH] Followup bug4263 : dateaccessioned should not be blanked Previous commit on bug 4263 reintroduced bug 2466 namely item subfields would not be wiped out. This patch takes the need for dateacessioned not to be blanked. But also wipe out desired item subfields. Signed-off-by: Henri-Damien LAURENT --- C4/Items.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Items.pm b/C4/Items.pm index cc84447a52..25b284f683 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -389,7 +389,7 @@ my %default_values_for_mod_from_marc = ( 'items.cn_source' => undef, copynumber => undef, damaged => 0, - dateaccessioned => undef, + #dateaccessioned => undef, enumchron => undef, holdingbranch => undef, homebranch => undef, @@ -424,7 +424,7 @@ sub ModItemFromMarc { my $item = &TransformMarcToKoha( $dbh, $localitemmarc, $frameworkcode, 'items'); foreach my $item_field (keys %default_values_for_mod_from_marc) { - $item->{$item_field} = $default_values_for_mod_from_marc{$item_field} unless (exists $item->{$item_field} or not defined $default_values_for_mod_from_marc{$item_field}); + $item->{$item_field} = $default_values_for_mod_from_marc{$item_field} unless (exists $item->{$item_field}); } my $unlinked_item_subfields = _get_unlinked_item_subfields($localitemmarc, $frameworkcode); -- 2.39.5