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

(-)a/misc/cronjobs/delete_records_via_leader.pl (-12 / +15 lines)
Lines 99-118 foreach my $m (@metadatas) { Link Here
99
        foreach my $item ( @items ) {
99
        foreach my $item ( @items ) {
100
            my $itemnumber = $item->itemnumber;
100
            my $itemnumber = $item->itemnumber;
101
101
102
            my $error = $test ? "Test mode enabled" : $item->safe_delete;
102
            if( $test ){
103
            $error = undef if $error eq '1';
103
                my $result = $item->safe_to_delete;
104
104
                if ( $result eq "1") {
105
            if ($error) {
105
                    say "TEST MODE: Item $itemnumber would have been deleted";
106
                say "ERROR DELETING ITEM $itemnumber: $error";
106
                } else {
107
            }
107
                    say "TEST MODE: ERROR DELETING ITEM $itemnumber: $result";
108
            else {
108
                }
109
                say "DELETED ITEM $itemnumber" if $verbose;
109
            } else {
110
                $deleted_items_count++;
110
                my $result = $item->safe_delete;
111
                if ( ref $result eq "Koha::Item" ){
112
                    say "DELETED ITEM $itemnumber" if $verbose;
113
                    $deleted_items_count++;
114
                } else {
115
                    say "ERROR DELETING ITEM $itemnumber: $result";
116
                }
111
            }
117
            }
112
113
            $total_items_count++;
118
            $total_items_count++;
114
        }
119
        }
115
116
    }
120
    }
117
121
118
    my $error = $test ? q{Test mode enabled} : DelBiblio($biblionumber);
122
    my $error = $test ? q{Test mode enabled} : DelBiblio($biblionumber);
119
- 

Return to bug 27819