@@ -, +, @@ =?UTF-8?q?ia=5Fleader.pl=20no=20longer=20deletes=20items?= deletion fails. Note the items remain in the items table of the database. --- misc/cronjobs/delete_records_via_leader.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) --- a/misc/cronjobs/delete_records_via_leader.pl +++ a/misc/cronjobs/delete_records_via_leader.pl @@ -70,16 +70,16 @@ This script has the following parameters : exit(); } -my @metadatas = # Should be replaced by a call to C4::Search on zebra index +my $metadatas = # Should be replaced by a call to C4::Search on zebra index # Record-status when bug 15537 will be pushed Koha::Biblio::Metadatas->search( { format => 'marcxml', schema => C4::Context->preference('marcflavour'), metadata => { LIKE => '%_____d%' } } ); -my $total_records_count = @metadatas; +my $total_records_count = $metadatas->count; my $deleted_records_count = 0; my $total_items_count = 0; my $deleted_items_count = 0; -foreach my $m (@metadatas) { - my $biblionumber = $m->get_column('biblionumber'); +while ( my $m = $metadatas->next ) { + my $biblionumber = $m->biblionumber; say "RECORD: $biblionumber" if $verbose; @@ -99,7 +99,7 @@ foreach my $m (@metadatas) { say "TEST MODE: ERROR DELETING ITEM $itemnumber: $error"; } } else { - my $deleted = $item->safe_to_delete; + my $deleted = $item->safe_delete; if ( $deleted ) { say "DELETED ITEM $itemnumber" if $verbose; $deleted_items_count++; --