View | Details | Raw Unified | Return to bug 9673
Collapse All | Expand All

(-)a/C4/Items.pm (-5 / +8 lines)
Lines 30-35 use MARC::Record; Link Here
30
use C4::ClassSource;
30
use C4::ClassSource;
31
use C4::Log;
31
use C4::Log;
32
use List::MoreUtils qw/any/;
32
use List::MoreUtils qw/any/;
33
use DateTime::Format::MySQL;
33
use Data::Dumper; # used as part of logging item record changes, not just for
34
use Data::Dumper; # used as part of logging item record changes, not just for
34
                  # debugging; so please don't remove this
35
                  # debugging; so please don't remove this
35
36
Lines 537-547 sub ModItem { Link Here
537
538
538
    for my $field ( qw( itemlost wthdrawn ) ) {
539
    for my $field ( qw( itemlost wthdrawn ) ) {
539
        if ( defined( $item->{$field} ) ) {
540
        if ( defined( $item->{$field} ) ) {
540
            if ( $item->{$field} ) {
541
            my $pre_mod_item = GetItem($item->{'itemnumber'});
541
                $item->{$field . '_on'} = DateTime::Format::MySQL->format_datetime( DateTime->now() );
542
            unless ( $pre_mod_item->{$field} ) {
542
            } else {
543
                 if ( $item->{$field} ) {
543
                $item->{$field . '_on'} = undef;
544
                    $item->{$field . '_on'} = DateTime::Format::MySQL->format_datetime( DateTime->now() );
545
                 }
544
            }
546
            }
547
        } else {
548
            $item->{$field . '_on'} = undef;
545
        }
549
        }
546
    }
550
    }
547
551
548
- 

Return to bug 9673