Lines 57-73
my $items = Koha::Items->search( \$where_clause );
Link Here
|
57 |
|
57 |
|
58 |
DELITEM: while ( my $item = $items->next ){ |
58 |
DELITEM: while ( my $item = $items->next ){ |
59 |
|
59 |
|
60 |
my $holdings_count = $item->biblio->items->count; |
|
|
61 |
my $error; |
62 |
|
63 |
my $safe_to_delete = $item->safe_to_delete; |
60 |
my $safe_to_delete = $item->safe_to_delete; |
64 |
if ($safe_to_delete) { |
61 |
if ($safe_to_delete) { |
|
|
62 |
my $holdings_count = $item->biblio->items->count - 1; |
65 |
$item->safe_delete |
63 |
$item->safe_delete |
66 |
if $commit; |
64 |
if $commit; |
67 |
$verbose && say "$deleted_string item " . $item->itemnumber . " ($holdings_count items remain on record)"; |
65 |
$verbose && say "$deleted_string item " . $item->itemnumber . " ($holdings_count items remain on record)"; |
68 |
|
66 |
|
69 |
if ( $delete_biblios && $holdings_count == 1 ) { # aka DO-EET for empty bibs! |
67 |
if ( $delete_biblios && $holdings_count == 0 ) { # aka DO-EET for empty bibs! |
70 |
$error = &DelBiblio( $item->biblionumber ) if $commit; |
68 |
my $error = &DelBiblio( $item->biblionumber ) if $commit; |
71 |
if ($error) { |
69 |
if ($error) { |
72 |
$verbose && say "Could not delete bib " . $item->biblionumber . ": $error"; |
70 |
$verbose && say "Could not delete bib " . $item->biblionumber . ": $error"; |
73 |
} else { |
71 |
} else { |
74 |
- |
|
|