Lines 57-65
$GLOBAL->{sth}->{target_items}->execute();
Link Here
|
57 |
|
57 |
|
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->{biblionumber}, $item->{itemnumber} ); |
61 |
if( $status eq '1' ) { |
61 |
if( $status eq '1' ) { |
62 |
C4::Items::DelItemCheck( $item->{itemnumber}, $item->{biblionumber} ); |
62 |
C4::Items::DelItemCheck( $item->{biblionumber}, $item->{itemnumber} ); |
63 |
verbose "Deleting '$item->{itemnumber}'"; |
63 |
verbose "Deleting '$item->{itemnumber}'"; |
64 |
} else { |
64 |
} else { |
65 |
verbose "Item '$item->{itemnumber}' not deletd: $status"; |
65 |
verbose "Item '$item->{itemnumber}' not deletd: $status"; |
66 |
- |
|
|