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

(-)a/C4/Items.pm (-1 / +9 lines)
Lines 537-542 sub ModItem { Link Here
537
537
538
    $item->{onloan} = undef if $item->{itemlost};
538
    $item->{onloan} = undef if $item->{itemlost};
539
539
540
    # Only call GetItem if we need to set an "on" date field
540
    if ( $item->{itemlost} || $item->{wthdrawn} ) {
541
    if ( $item->{itemlost} || $item->{wthdrawn} ) {
541
        my $pre_mod_item = GetItem( $item->{'itemnumber'} );
542
        my $pre_mod_item = GetItem( $item->{'itemnumber'} );
542
        for my $field (qw( itemlost wthdrawn )) {
543
        for my $field (qw( itemlost wthdrawn )) {
Lines 553-558 sub ModItem { Link Here
553
            }
554
            }
554
        }
555
        }
555
    }
556
    }
557
    # If the field is defined but empty, we are removing and, 
558
    # and thus need to clear out the 'on' field as well
559
    if ( defined( $item->{itemlost} ) && !$item->{itemlost} ) {
560
        $item->{itemlost_on} = undef;
561
    }
562
    if ( defined( $item->{wthdrawn} ) && !$item->{wthdrawn} ) {
563
        $item->{wthdrawn_on} = undef;
564
    }
556
565
557
    _set_derived_columns_for_mod($item);
566
    _set_derived_columns_for_mod($item);
558
    _do_column_fixes_for_mod($item);
567
    _do_column_fixes_for_mod($item);
559
- 

Return to bug 9673