|
Lines 63-69
DELITEM: while ( my $item = $GLOBAL->{sth}->{target_items}->fetchrow_hashref() )
Link Here
|
| 63 |
my $item_object = Koha::Items->find($item->{itemnumber}); |
63 |
my $item_object = Koha::Items->find($item->{itemnumber}); |
| 64 |
my $safe_to_delete = $item_object->safe_to_delete; |
64 |
my $safe_to_delete = $item_object->safe_to_delete; |
| 65 |
if( $safe_to_delete eq '1' ) { |
65 |
if( $safe_to_delete eq '1' ) { |
| 66 |
$item->safe_delete |
66 |
$item_object->safe_delete |
| 67 |
if $OPTIONS->{flags}->{commit}; |
67 |
if $OPTIONS->{flags}->{commit}; |
| 68 |
verbose "Deleting '$item->{itemnumber}'"; |
68 |
verbose "Deleting '$item->{itemnumber}'"; |
| 69 |
} else { |
69 |
} else { |
| 70 |
- |
|
|