From e45b5c8023da9b35ab769f557454cbcbfa04a30d Mon Sep 17 00:00:00 2001 From: Hammat Wele Date: Thu, 9 Nov 2023 00:24:38 +0000 Subject: [PATCH] Bug 21272: (follow-up) using List::MoreUtils#any to get rid of %branches and fixing GetImportItemsBranches in ImportBatch.pm Signed-off-by: PhilipOrr --- C4/ImportBatch.pm | 13 ++++++------- .../prog/en/modules/tools/manage-marc-import.tt | 2 +- 2 files changed, 7 insertions(+), 8 deletions(-) diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm index 42ea2594f5..002e2f6572 100644 --- a/C4/ImportBatch.pm +++ b/C4/ImportBatch.pm @@ -41,7 +41,7 @@ use Koha::SearchEngine; use Koha::SearchEngine::Indexer; use Koha::Plugins::Handler; use Koha::Logger; -use List::MoreUtils qw( uniq ); +use List::MoreUtils qw( uniq any ); our ( @ISA, @EXPORT_OK ); @@ -850,12 +850,11 @@ sub _batchCommitItems { my ( $holdingbranchfield, $holdingbranchsubfield ) = GetMarcFromKohaField('items.holdingbranch'); my $holdingbranch = $item_marc->subfield( $holdingbranchfield, $holdingbranchsubfield ); - my @branches = map { $_->branchcode } Koha::Libraries->search->as_list; - my %branches = map { $_ => 1 } @branches; + my @branches = Koha::Libraries->search->as_list; my $missing_branchcode; - $missing_branchcode = $homebranch if ( !exists( $branches{$homebranch} ) ); - $missing_branchcode = $holdingbranch if ( !exists( $branches{$holdingbranch} ) ); + $missing_branchcode = $homebranch if not any { $_->branchcode eq $homebranch } @branches; + $missing_branchcode = $holdingbranch if not any { $_->branchcode eq $holdingbranch } @branches; if ($missing_branchcode) { $updsth->bind_param( 1, 'error' ); $updsth->bind_param( 2, undef ); @@ -1290,7 +1289,7 @@ sub GetImportItemsBranches { ORDER BY import_items_id"; my @params; push( @params, $batch_id ); - my $sth = $dbh->prepare_cached($query); + my $sth = $dbh->prepare($query); $sth->execute(@params); my $results = $sth->fetchall_arrayref( {} ); my @branch; @@ -1299,7 +1298,7 @@ sub GetImportItemsBranches { foreach my $row (@$results) { my $item_marc = MARC::Record->new_from_xml( StripNonXmlChars( $row->{'marcxml'} ), 'UTF-8', $row->{'encoding'} ); push @branch, $item_marc->subfield( $homebranchfield, $homebranchsubfield ); - push @branch, $item_marc->subfield( $holdingbranchfield, $holdingbranchsubfield );; + push @branch, $item_marc->subfield( $holdingbranchfield, $holdingbranchsubfield ); } $sth->finish(); return uniq @branch; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/manage-marc-import.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/manage-marc-import.tt index 7915227cd4..eda9c0ae23 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/manage-marc-import.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/manage-marc-import.tt @@ -258,7 +258,7 @@ [% IF ( missing_branches ) %] -
There are some missing libraries in your installation: +
There are some missing libraries in your installation: [% FOREACH branche IN branches %] [% branche | html %] -- 2.39.5