|
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 |
- |
|
|