my $item = shift;
$item->{dateaccessioned} ||= C4::Dates->new->output('iso');
$item->{$_} ||= 0 for (qw( notforloan damaged itemlost withdrawn));
$item->{permanent_location} = $item->{location} unless ($item->{permanent_location});
}
=head2 _koha_new_item
-