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