From 6b22fc9c29885d195745264e61f83455fc545758 Mon Sep 17 00:00:00 2001
From: Jonathan Druart 
Date: Fri, 3 Jun 2022 08:29:19 +0200
Subject: [PATCH] Bug 31319: Remove GetItemsInfo from tags/list.pl
Bug 27272 is going to remove C4::Items::GetItemsInfo in favour of Koha::Items->search_ordered.
Here we are going to deal with tags/list
Test plan:
List items on the modified view and confirm that all the info is
displayed correctly
Signed-off-by: Owen Leonard 
Signed-off-by: Nick Clemens 
---
 koha-tmpl/intranet-tmpl/prog/en/modules/tags/list.tt | 5 +++--
 tags/list.pl                                         | 9 ++++++---
 2 files changed, 9 insertions(+), 5 deletions(-)
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tags/list.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tags/list.tt
index cc25b9f11d..70904be156 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/tags/list.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tags/list.tt
@@ -1,6 +1,7 @@
 [% USE raw %]
 [% USE Asset %]
 [% USE AuthorisedValues %]
+[% USE Branches %]
 [% SET footerjs = 1 %]
 [% INCLUDE 'doc-head-open.inc' %]
 [% IF ( do_it ) %]Review[% ELSE %]Review tags[% END %] › Tags › Tools › Koha
@@ -64,9 +65,9 @@ tr.selected { background-color : #FFFFCC; } tr.selected td { background-color :
             [% END %]
             [% END %]
             
-            [% IF ( title.items ) %][% FOREACH item IN title.items %]
+            [% IF ( title.items.count ) %][% FOREACH item IN title.items %]
                 - 
-                    [% item.branchname | html %]
+                    [% Branches.GetName(item.holdingbranch) | html %]
                     
                         [% AuthorisedValues.GetDescriptionByKohaField( kohafield => 'items.location', authorised_value => item.location ) | html %]
                     
diff --git a/tags/list.pl b/tags/list.pl
index ac2ccbc8b1..b9aec1aa19 100755
--- a/tags/list.pl
+++ b/tags/list.pl
@@ -23,10 +23,11 @@ use CGI qw ( -utf8 );
 use C4::Auth qw( get_template_and_user );
 use C4::Biblio qw( GetBiblioData );
 use C4::Context;
-use C4::Items qw( GetItemsInfo );
 use C4::Tags qw( get_tag_rows get_tags remove_tag );
 use C4::Output qw( output_html_with_http_headers );
 
+use Koha::Biblios;
+
 my $needed_flags = { tools => 'moderate_tags'
 };    # FIXME: replace when more specific permission is created.
 
@@ -57,11 +58,13 @@ else {
     if ($tag) {
         my $taglist = get_tag_rows( { term => $tag } );
         for ( @{$taglist} ) {
+            # FIXME We should use Koha::Biblio here
             my $dat    = &GetBiblioData( $_->{biblionumber} );
-            my @items = GetItemsInfo( $_->{biblionumber} );
+            my $biblio = Koha::Biblios->find($dat->{biblionumber});
+            my $items = $biblio->items->search_ordered;
             $dat->{biblionumber} = $_->{biblionumber};
             $dat->{tag_id}       = $_->{tag_id};
-            $dat->{items}        = \@items;
+            $dat->{items}        = $items;
             $dat->{TagLoop}      = get_tags(
                 {
                     biblionumber => $_->{biblionumber},
-- 
2.30.2
   |   |