@@ -, +, @@ --- C4/Items.pm | 12 ++++++++---- 1 files changed, 8 insertions(+), 4 deletions(-) --- a/C4/Items.pm +++ a/C4/Items.pm @@ -30,6 +30,7 @@ use MARC::Record; use C4::ClassSource; use C4::Log; use List::MoreUtils qw/any/; +use DateTime::Format::MySQL; use Data::Dumper; # used as part of logging item record changes, not just for # debugging; so please don't remove this @@ -537,11 +538,14 @@ sub ModItem { for my $field ( qw( itemlost wthdrawn ) ) { if ( defined( $item->{$field} ) ) { - if ( $item->{$field} ) { - $item->{$field . '_on'} = DateTime::Format::MySQL->format_datetime( DateTime->now() ); - } else { - $item->{$field . '_on'} = undef; + my $pre_mod_item = GetItem($item->{'itemnumber'}); + unless ( $pre_mod_item->{$field} ) { + if ( $item->{$field} ) { + $item->{$field . '_on'} = DateTime::Format::MySQL->format_datetime( DateTime->now() ); + } } + } else { + $item->{$field . '_on'} = undef; } } --