@@ -, +, @@ delete_records_via_leader.pl 1 - Find or create a record with some items 2 - Ensure those items can be deleted (not on loan, etc.) 3 - Edit the record leader and set position 5 to 'd' 4 - perl misc/cronjobs/delete_records_via_leader.pl -i -v --confirm 5 - Deletion succeeds, but reports failure on items 6 - Apply patch 7 - Find or create a new record as above, but this time add an additional item and check it out to a patron 8 - perl misc/cronjobs/delete_records_via_leader.pl -i -v 9 - Test mode should report 1 item to be deleted, one with error --- misc/cronjobs/delete_records_via_leader.pl | 26 +++++++++++++--------- 1 file changed, 15 insertions(+), 11 deletions(-) --- a/misc/cronjobs/delete_records_via_leader.pl +++ a/misc/cronjobs/delete_records_via_leader.pl @@ -99,20 +99,24 @@ foreach my $m (@metadatas) { foreach my $item ( @items ) { my $itemnumber = $item->itemnumber; - my $error = $test ? "Test mode enabled" : $item->safe_delete; - $error = undef if $error eq '1'; - - if ($error) { - say "ERROR DELETING ITEM $itemnumber: $error"; - } - else { - say "DELETED ITEM $itemnumber" if $verbose; - $deleted_items_count++; + if( $test ){ + my $result = $item->safe_to_delete; + if ( $result eq "1") { + say "TEST MODE: Item $itemnumber would have been deleted"; + } else { + say "TEST MODE: ERROR DELETING ITEM $itemnumber: $result"; + } + } else { + my $result = $item->safe_delete; + if ( ref $result eq "Koha::Item" ){ + say "DELETED ITEM $itemnumber" if $verbose; + $deleted_items_count++; + } else { + say "ERROR DELETING ITEM $itemnumber: $result"; + } } - $total_items_count++; } - } my $error = $test ? q{Test mode enabled} : DelBiblio($biblionumber); --