From a57218dc14329541bbcd71c5a525f687926c2453 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Thu, 29 Dec 2016 18:15:40 +0000 Subject: [PATCH] Bug 17196 - (QA Followup) Use items from Koha::Biblio Content-Type: text/plain; charset=utf-8 Signed-off-by: Nick Clemens Signed-off-by: Marcel de Rooy Amended: Using items from Koha::Biblio seems better :) --- misc/cronjobs/delete_records_via_leader.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/misc/cronjobs/delete_records_via_leader.pl b/misc/cronjobs/delete_records_via_leader.pl index baba5dc..b4d8781 100755 --- a/misc/cronjobs/delete_records_via_leader.pl +++ b/misc/cronjobs/delete_records_via_leader.pl @@ -36,7 +36,7 @@ use Getopt::Long; use C4::Biblio; use C4::Items; use Koha::Database; -use Koha::Biblioitems; +use Koha::Biblios; use Koha::Biblio::Metadatas; my $delete_items; @@ -86,8 +86,9 @@ foreach my $m (@metadatas) { if ($delete_items) { my $deleted_count = 0; - my $biblioitem = Koha::Biblioitems->find( $biblionumber ); - foreach my $item ( $biblioitem->items() ) { + my $biblio = Koha::Biblios->find( $biblionumber ); + my @items = $biblio ? $biblio->items : (); + foreach my $item ( @items ) { my $itemnumber = $item->itemnumber(); my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber ); -- 2.1.4