(bug #4263) dateaccessionned is cleaned on item modification

Every item modification, date accessionned is cleaned, if there is no modification made, we must'nt reset to "undef" the value.
This commit is contained in:
Nahuel ANGELINETTI 2010-04-23 13:54:30 +02:00 committed by Henri-Damien LAURENT
parent 48a6f861b2
commit 603574e62b
1 changed files with 2 additions and 1 deletions

View File

@ -422,8 +422,9 @@ sub ModItemFromMarc {
my $localitemmarc=MARC::Record->new;
$localitemmarc->append_fields($item_marc->field($itemtag));
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};
$item->{$item_field} = $default_values_for_mod_from_marc{$item_field} unless (exists $item->{$item_field} or not $default_values_for_mod_from_marc{$item_field});
}
my $unlinked_item_subfields = _get_unlinked_item_subfields($localitemmarc, $frameworkcode);