Lines 58-64
$GLOBAL->{sth}->{target_items}->execute();
Link Here
|
58 |
DELITEM: while ( my $item = $GLOBAL->{sth}->{target_items}->fetchrow_hashref() ) { |
58 |
DELITEM: while ( my $item = $GLOBAL->{sth}->{target_items}->fetchrow_hashref() ) { |
59 |
|
59 |
|
60 |
my $status = C4::Items::ItemSafeToDelete( $item->{itemnumber}, $item->{biblionumber} ); |
60 |
my $status = C4::Items::ItemSafeToDelete( $item->{itemnumber}, $item->{biblionumber} ); |
61 |
if( $status == 1 ) { |
61 |
if( $status eq '1' ) { |
62 |
C4::Items::DelItemCheck( $item->{itemnumber}, $item->{biblionumber} ); |
62 |
C4::Items::DelItemCheck( $item->{itemnumber}, $item->{biblionumber} ); |
63 |
verbose "Deleting '$item->{itemnumber}'"; |
63 |
verbose "Deleting '$item->{itemnumber}'"; |
64 |
} else { |
64 |
} else { |