From 75bb33a8ed86433672720bd82d9b6dcc6ef70c51 Mon Sep 17 00:00:00 2001 From: Liz Rea Date: Fri, 3 Jan 2020 21:18:27 +0000 Subject: [PATCH] Bug 24324: Resolve error with delete_records_via_leader.pl To test: Have a record with the 000 position 5 set to "deleted" (record status) Use koha-shell to run the job with the -i flag: perl misc/cronjobs/delete_records_via_leader.pl -c -i -v * items and the record should be deleted Mark another record with the 000 position 5 set to deleted (record status) Use koha-shell to run the job without the -i flag: perl misc/cronjobs/delete_records_via_leader.pl -c -v * if the record had items, it will not be deleted * if the record did not have items, it will be deleted. --- misc/cronjobs/delete_records_via_leader.pl | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/misc/cronjobs/delete_records_via_leader.pl b/misc/cronjobs/delete_records_via_leader.pl index 80c9996781..99705cb40a 100755 --- a/misc/cronjobs/delete_records_via_leader.pl +++ b/misc/cronjobs/delete_records_via_leader.pl @@ -39,6 +39,7 @@ use C4::Items; use Koha::Database; use Koha::Biblios; use Koha::Biblio::Metadatas; +use Koha::Items; my $delete_items; my $confirm; @@ -86,7 +87,6 @@ my $total_records_count = @metadatas; 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'); @@ -95,10 +95,9 @@ foreach my $m (@metadatas) { if ($delete_items) { my $deleted_count = 0; my $biblio = Koha::Biblios->find( $biblionumber ); - my @items = $biblio ? $biblio->items : (); + my @items = Koha::Items->search( { biblionumber => $biblionumber } ); foreach my $item ( @items ) { - my $itemnumber = $item->itemnumber(); - + my $itemnumber = $item->itemnumber; my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber ); $error = undef if $error eq '1'; -- 2.11.0