View | Details | Raw Unified | Return to bug 35654
Collapse All | Expand All

(-)a/misc/cronjobs/delete_items.pl (-6 / +3 lines)
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
- 

Return to bug 35654