From f56d373f38591f9020bf16361ac9fb6df4022b21 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 6 Dec 2021 14:44:07 +0100 Subject: [PATCH] Bug 9565: Use Koha::Biblio (rebase for 21.05.x) Signed-off-by: Jonathan Druart --- tools/batch_delete_records.pl | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/tools/batch_delete_records.pl b/tools/batch_delete_records.pl index dbc7cb1e93..c387f98a06 100755 --- a/tools/batch_delete_records.pl +++ b/tools/batch_delete_records.pl @@ -23,10 +23,10 @@ use Modern::Perl; use CGI; use List::MoreUtils qw( uniq ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Biblio qw( GetMarcBiblio ); use C4::AuthoritiesMarc; -use C4::Biblio; use Koha::Virtualshelves; use Koha::Authorities; @@ -87,8 +87,8 @@ if ( $op eq 'form' ) { for my $record_id ( uniq @record_ids ) { if ( $recordtype eq 'biblio' ) { # Retrieve biblio information - my $biblio = Koha::Biblios->find( $record_id ); - unless ( $biblio ) { + my $biblio_object = Koha::Biblios->find( $record_id ); + unless ( $biblio_object ) { push @messages, { type => 'warning', code => 'biblio_not_exists', @@ -96,12 +96,12 @@ if ( $op eq 'form' ) { }; next; } - my $holds_count = $biblio->holds->count; - $biblio = $biblio->unblessed; + my $biblio = $biblio_object->unblessed; my $record = &GetMarcBiblio({ biblionumber => $record_id }); $biblio->{itemnumbers} = [Koha::Items->search({ biblionumber => $record_id })->get_column('itemnumber')]; - $biblio->{holds_count} = $holds_count; + $biblio->{holds_count} = $biblio_object->holds->count; $biblio->{issues_count} = C4::Biblio::CountItemsIssued( $record_id ); + $biblio->{subscriptions_count} = $biblio_object->subscriptions->count; push @records, $biblio; } else { # Retrieve authority information -- 2.20.1