Attachment 135640 Details for Bug 27272 – Bug 27272: Remove GetItemsInfo from catalogue/detail.pl

[patch] Bug 27272: Remove GetItemsInfo from catalogue/detail.pl

Bug-27272-Remove-GetItemsInfo-from-cataloguedetail.patch (text/plain), 19.04 KB, created by Jonathan Druart on 2022-06-03 06:49:05 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2022-06-03 06:49:05 UTC

Size: 19.04 KB

patch

obsolete

>From de60bb93bd9ec246fb7394a1ca9bacf06a727838 Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
>Date: Fri, 3 Dec 2021 16:43:06 +0100
>Subject: [PATCH] Bug 27272: Remove GetItemsInfo from catalogue/detail.pl
>
>---
> catalogue/detail.pl | 135 +++++++++---------
> .../prog/en/modules/catalogue/detail.tt | 46 +++---
> 2 files changed, 97 insertions(+), 84 deletions(-)
>
>diff --git a/catalogue/detail.pl b/catalogue/detail.pl
>index fcf83fa4636..ab44b85fd6a 100755
>--- a/catalogue/detail.pl
>+++ b/catalogue/detail.pl
>@@ -33,7 +33,7 @@ use C4::Koha qw(
> use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
> use C4::Output qw( output_html_with_http_headers );
> use C4::Biblio qw( GetBiblioData GetFrameworkCode );
>-use C4::Items qw( GetAnalyticsCount GetHostItemsInfo GetItemsInfo );
>+use C4::Items qw( GetAnalyticsCount );
> use C4::Circulation qw( GetTransfers );
> use C4::Reserves;
> use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
>@@ -57,6 +57,7 @@ use Koha::Plugins;
> use Koha::Recalls;
> use Koha::SearchEngine::Search;
> use Koha::SearchEngine::QueryBuilder;
>+use Koha::Serial::Items;
> 
> my $query = CGI->new();
> 
>@@ -157,24 +158,27 @@ $template->param(
> content_identifier_exists => $content_identifier_exists,
> );
> 
>-my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search->unblessed } };
>+my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };
> 
> my $dbh = C4::Context->dbh;
> 
>-my @all_items = GetItemsInfo( $biblionumber );
>+my $all_items = $biblio->items;
> my @items;
> my $patron = Koha::Patrons->find( $borrowernumber );
>-for my $itm (@all_items) {
>- push @items, $itm unless ( $itm->{itemlost} && $patron->category->hidelostitems && !$showallitems);
>+while ( my $item = $all_items->next ) {
>+ push @items, $item
>+ unless $item->itemlost
>+ && $patron->category->hidelostitems
>+ && !$showallitems;
> }
> 
> # flag indicating existence of at least one item linked via a host record
> my $hostrecords;
> # adding items linked via host biblios
>-my @hostitems = GetHostItemsInfo($marc_record);
>-if (@hostitems){
>- $hostrecords =1;
>- push (@items,@hostitems);
>+my $hostitems = $biblio->host_items;
>+if ( $hostitems->count ) {
>+ $hostrecords = 1;
>+ push @items, $hostitems->as_list;
> }
> 
> my $dat = &GetBiblioData($biblionumber);
>@@ -281,9 +285,9 @@ if ( defined $dat->{'itemtype'} ) {
> $dat->{imageurl} = getitemtypeimagelocation( 'intranet', $itemtypes->{ $dat->{itemtype} }{imageurl} );
> }
> 
>-$dat->{'count'} = scalar @all_items + @hostitems;
>-$dat->{'showncount'} = scalar @items + @hostitems;
>-$dat->{'hiddencount'} = scalar @all_items + @hostitems - scalar @items;
>+$dat->{'count'} = $all_items->count + $hostitems->count;
>+$dat->{'showncount'} = scalar @items + $hostitems->count;
>+$dat->{'hiddencount'} = $all_items->count + $hostitems->count - scalar @items;
> 
> my $shelflocations =
> { map { $_->{authorised_value} => $_->{lib} } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => $fw, kohafield => 'items.location' } ) };
>@@ -325,60 +329,63 @@ if ($currentbranch and C4::Context->preference('SeparateHoldings')) {
> }
> my $separatebranch = C4::Context->preference('SeparateHoldingsBranch') || 'homebranch';
> my ( $itemloop_has_images, $otheritemloop_has_images );
>-foreach my $item (@items) {
>- my $itembranchcode = $item->{$separatebranch};
> 
>- $item->{imageurl} = defined $item->{itype} ? getitemtypeimagelocation('intranet', $itemtypes->{ $item->{itype} }{imageurl})
>- : '';
>+foreach my $item (@items) {
>+ my $itembranchcode = $item->$separatebranch;
> 
>- $item->{datedue} = format_sqldatetime($item->{datedue});
>+ my $item_info = $item->unblessed;
>+ $item_info->{itemtype} = $itemtypes->{$item->effective_itemtype};
> 
> #get shelf location and collection code description if they are authorised value.
> # same thing for copy number
>- my $shelfcode = $item->{'location'};
>- $item->{'location'} = $shelflocations->{$shelfcode} if ( defined( $shelfcode ) && defined($shelflocations) && exists( $shelflocations->{$shelfcode} ) );
>- my $ccode = $item->{'ccode'};
>- $item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) );
>+ my $shelfcode = $item->location;
>+ $item_info->{'location'} = $shelflocations->{$shelfcode} if ( defined( $shelfcode ) && defined($shelflocations) && exists( $shelflocations->{$shelfcode} ) );
>+ my $ccode = $item->ccode;
>+ $item_info->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) );
> my $copynumber = $item->{'copynumber'};
>- $item->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumber) && defined($copynumbers) && exists( $copynumbers->{$copynumber} ) );
>- foreach (qw(ccode enumchron copynumber stocknumber itemnotes itemnotes_nonpublic uri publisheddate)) { # Warning when removing GetItemsInfo - publisheddate (at least) is not part of the items table
>- $itemfields{$_} = 1 if ( $item->{$_} );
>+ $item_info->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumber) && defined($copynumbers) && exists( $copynumbers->{$copynumber} ) );
>+ foreach (qw(ccode enumchron copynumber stocknumber itemnotes itemnotes_nonpublic uri )) {
>+ $itemfields{$_} = 1 if $item->$_;
>+ }
>+
>+ # FIXME The following must be Koha::Item->serial
>+ my $serial_item = Koha::Serial::Items->find($item->itemnumber);
>+ if ( $serial_item ) {
>+ $item_info->{serial} = $serial_item->serialid; # FIXME Not returning a Koha::Object!
>+ $itemfields{publisheddate} = 1;
> }
> 
> # checking for holds
>- my $item_object = Koha::Items->find( $item->{itemnumber} );
>- my $holds = $item_object->current_holds;
>+ my $holds = $item->current_holds;
> if ( my $first_hold = $holds->next ) {
>- $item->{first_hold} = $first_hold;
>+ $item_info->{first_hold} = $first_hold;
> }
> 
>- if ( my $checkout = $item_object->checkout ) {
>- $item->{CheckedOutFor} = $checkout->patron;
>- }
>+ $item_info->{checkout} = $item->checkout;
> 
> # Check the transit status
>- my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber});
>- if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) {
>- $item->{transfertwhen} = $transfertwhen;
>- $item->{transfertfrom} = $transfertfrom;
>- $item->{transfertto} = $transfertto;
>- $item->{nocancel} = 1;
>+ my $transfer = $item->get_transfer;
>+ if ( $transfer ) {
>+ $item_info->{transfertwhen} = $transfer->datesent;
>+ $item_info->{transfertfrom} = $transfer->frombranch;
>+ $item_info->{transfertto} = $transfer->tobranch;
>+ $item_info->{nocancel} = 1;
> }
> 
> foreach my $f (qw( itemnotes )) {
>- if ($item->{$f}) {
>- $item->{$f} =~ s|\n| |g;
>+ if ($item_info->{$f}) {
>+ $item_info->{$f} =~ s|\n| |g;
> $itemfields{$f} = 1;
> }
> }
> 
> #item has a host number if its biblio number does not match the current bib
> 
>- if ($item->{biblionumber} ne $biblionumber){
>- $item->{hostbiblionumber} = $item->{biblionumber};
>- $item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title};
>+ if ($item->biblionumber ne $biblionumber){
>+ $item_info->{hostbiblionumber} = $item->biblionumber;
>+ $item_info->{hosttitle} = $item->biblio->title;
> }
>-	
>+
> 
> if ( $analyze ) {
> # count if item is used in analytical bibliorecords
>@@ -386,52 +393,52 @@ foreach my $item (@items) {
> my $countanalytics = C4::Context->preference('EasyAnalyticalRecords') ? GetAnalyticsCount($item->{itemnumber}) : 0;
> if ($countanalytics > 0){
> $analytics_flag=1;
>- $item->{countanalytics} = $countanalytics;
>+ $item_info->{countanalytics} = $countanalytics;
> }
> }
> 
>- if (defined($item->{'materials'}) && $item->{'materials'} =~ /\S/){
>+ if (defined($item->materials) && $item->materials =~ /\S/){
> $materials_flag = 1;
>- if (defined $materials_map{ $item->{materials} }) {
>- $item->{materials} = $materials_map{ $item->{materials} };
>+ if (defined $materials_map{ $item->materials }) {
>+ $item_info->{materials} = $materials_map{ $item->materials };
> }
> }
> 
> if ( C4::Context->preference('UseCourseReserves') ) {
>- $item->{'course_reserves'} = GetItemCourseReservesInfo( itemnumber => $item->{'itemnumber'} );
>- }
>-
>- if ( C4::Context->preference('IndependentBranches') ) {
>- my $userenv = C4::Context->userenv();
>- if ( not C4::Context->IsSuperLibrarian()
>- and $userenv->{branch} ne $item->{homebranch} ) {
>- $item->{cannot_be_edited} = 1;
>- }
>+ $item_info->{'course_reserves'} = GetItemCourseReservesInfo( itemnumber => $item->itemnumber );
> }
> 
> if ( C4::Context->preference("LocalCoverImages") == 1 ) {
>- $item->{cover_images} = $item_object->cover_images;
>+ $item_info->{cover_images} = $item->cover_images;
> }
> 
> if ( C4::Context->preference('UseRecalls') ) {
> my $recall = Koha::Recalls->find({ item_id => $item->{itemnumber}, completed => 0 });
> if ( defined $recall ) {
>- $item->{recalled} = 1;
>- $item->{recall} = $recall;
>+ $item_info->{recalled} = 1;
>+ $item_info->{recall} = $recall;
>+ }
>+ }
>+
>+ if ( C4::Context->preference('IndependentBranches') ) {
>+ my $userenv = C4::Context->userenv();
>+ if ( not C4::Context->IsSuperLibrarian()
>+ and $userenv->{branch} ne $item->homebranch ) {
>+ $item_info->{cannot_be_edited} = 1;
> }
> }
> 
> if ($currentbranch and C4::Context->preference('SeparateHoldings')) {
> if ($itembranchcode and $itembranchcode eq $currentbranch) {
>- push @itemloop, $item;
>- $itemloop_has_images++ if $item_object->cover_images->count;
>+ push @itemloop, $item_info;
>+ $itemloop_has_images++ if $item->cover_images->count;
> } else {
>- push @otheritemloop, $item;
>- $otheritemloop_has_images++ if $item_object->cover_images->count;
>+ push @otheritemloop, $item_info;
>+ $otheritemloop_has_images++ if $item->cover_images->count;
> }
> } else {
>- push @itemloop, $item;
>- $itemloop_has_images++ if $item_object->cover_images->count;
>+ push @itemloop, $item_info;
>+ $itemloop_has_images++ if $item->cover_images->count;
> }
> }
> 
>diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt
>index 905fd07bd39..8fde562c867 100644
>--- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt
>+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt
>@@ -383,13 +383,14 @@
> 
> [% IF ( item_level_itypes ) %]
> <td class="itype">
>- [% IF !noItemTypeImages && item.imageurl %]
>- <img src="[% item.imageurl | html %]" alt="[% item.translated_description | html %]" title="[% item.translated_description | html %]" />
>+ [% SET itemtype = item.itemtype %]
>+ [% IF !noItemTypeImages && itemtype.image_location %]
>+ <img src="[% itemtype.image_location | html %]" alt="[% itemtype.translated_description | html %]" title="[% itemtype.translated_description | html %]" />
> [% END %]
>- [% item.translated_description | html %]
>+ [% itemtype.translated_description | html %]
> </td>
> [% END %]
>- <td class="location">[% UNLESS ( singlebranchmode ) %][% Branches.GetName( item.branchcode ) | html %] [% END %]</td>
>+ <td class="location">[% UNLESS ( singlebranchmode ) %][% Branches.GetName( item.holdingbranch ) | html %] [% END %]</td>
> <td class="homebranch">
> [% Branches.GetName(item.homebranch) | html %]
> 
>@@ -411,25 +412,26 @@ Note that permanent location is a code, and location may be an authval.
> [% IF ( itemdata_ccode ) %]<td>[% item.ccode | html %]</td>[% END %]
> <td class="itemcallnumber">[% IF ( item.itemcallnumber ) %] [% item.itemcallnumber | html %][% END %]</td>
> [% IF ( volinfo ) %]
>+ [% SET serial = item.serial %]
> [% IF itemdata_publisheddate #If there is at least one published date, use it for sorting %]
>- <td class="enumchron" data-order="[% item.publisheddate | html %]">
>+ <td class="enumchron" data-order="[% serial.publisheddate | html %]">
> [% ELSE %]
> <td class="enumchron">
> [% END %]
> [% IF ( itemdata_enumchron ) %]
>- [% IF item.enumchron && item.serialseq %]
>+ [% IF item.enumchron && serial.serialseq %]
> [% item.enumchron | html %]
>- [% IF ( item.serialseq && item.enumchron!=item.serialseq ) %]
>+ [% IF ( item.serialseq && item.enumchron != serial.serialseq ) %]
> -- 
>- [% item.serialseq | html %]
>+ [% serial.serialseq | html %]
> [% END %]
> [% ELSIF item.enumchron %]
> [% item.enumchron | html %]
> [% ELSIF item.serialseq %]
>- [% item.serialseq | html %]
>+ [% serial.serialseq | html %]
> [% END %]
>- [% IF ( item.publisheddate ) %]
>- ([% item.publisheddate | $KohaDates %])
>+ [% IF serial.publisheddate %]
>+ ([% serial.publisheddate | $KohaDates %])
> [% END %]
> [% END %]
> 
>@@ -437,21 +439,21 @@ Note that permanent location is a code, and location may be an authval.
> [% END %]
> <td class="status">
> 
>- [% IF item.CheckedOutFor %]
>- [% IF item.onsite_checkout %]
>+ [% IF item.checkout %]
>+ [% IF item.checkout.onsite_checkout %]
> Currently in local use
> [% ELSE %]
> Checked out
> [% END %]
> [% UNLESS ( item.NOTSAMEBRANCH ) %]
>- [% IF item.onsite_checkout %]
>+ [% IF item.checkout.onsite_checkout %]
> by
> [% ELSE %]
> to
> [% END %]
>- [% INCLUDE 'patron-title.inc' patron=item.CheckedOutFor hide_patron_infos_if_needed=1 %]
>+ [% INCLUDE 'patron-title.inc' patron=item.checkout.patron hide_patron_infos_if_needed=1 %]
> [% END %]
>- : due [% item.datedue | html %]
>+ : due [% item.checkout.date_due | $KohaDates as_due_date => 1 %]
> 
> [% ELSIF ( item.transfertwhen ) %]
> In transit from [% Branches.GetName( item.transfertfrom ) | html %] to [% Branches.GetName( item.transfertto ) | html %] since [% item.transfertwhen | $KohaDates %]
>@@ -514,15 +516,15 @@ Note that permanent location is a code, and location may be an authval.
> [% END %]
> [% END %]
> 
>- [% IF item.recalled %]
>+ [% IF item.recall %]
> [% IF item.recall.waiting_date %]
>- Waiting at [% Branches.GetName( item.recall.pickup_library_id ) | html %] since [% item.recall.waiting_date | $KohaDates %]
>+ Waiting at [% Branches.GetName( item.recall.branchcode ) | html %] since [% item.recall.waiting_date | $KohaDates %]
> [% ELSE %]
>- Item recalled by <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% item.recall.patron_id | uri %]">[% item.recall.patron.firstname | html %] [% item.recall.patron.surname | html %] ([% item.recall.patron.cardnumber | html %])</a> on [% item.recall.created_date | $KohaDates %]
>+ Item recalled by <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% item.recall.patron_id | uri %]">[% item.recall.patron.firstname | html %] [% item.recall.patron.surname | html %] ([% item.recall.patron.cardnumber | html %])</a> on [% item.recall.recalldate | $KohaDates %]
> [% END %]
> [% END %]
> 
>- [% UNLESS ( item.itemnotforloan || item.notforloan_per_itemtype || item.onloan || item.itemlost || item.withdrawn || item.damaged || item.transfertwhen || hold || item.recalled ) %]
>+ [% UNLESS ( item.itemnotforloan || item.notforloan_per_itemtype || item.onloan || item.itemlost || item.withdrawn || item.damaged || item.transfertwhen || hold || ( Koha.Preference('UseRecalls') && recall ) ) %]
> Available
> [% END %]
> 
>@@ -633,7 +635,11 @@ Note that permanent location is a code, and location may be an authval.
> 
> [% IF ( count ) %]
> [% IF ( showncount ) %]
>+ [% IF too_many_items %]
>+ Too many items!
>+ [% ELSE %]
> [% PROCESS items_table tab="holdings" items=itemloop %]
>+ [% END %]
> [% END %]
> [% IF ( hiddencount ) %]
> <a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% biblionumber | uri %]&amp;showallitems=1">Show all items ([% hiddencount | html %] hidden)</a>
>-- 
>2.25.1

Actions: View | Diff | Splinter Review

Attachments on bug 27272: 128230 | 128231 | 135640 | 135641 | 135642 | 135643 | 135644 | 135645 | 135646 | 135647 | 135648 | 135649 | 135650 | 135651 | 135652 | 135653 | 135654 | 135655 | 135656 | 135657 | 135658 | 135659 | 137966 | 137967 | 137968 | 137969 | 137970 | 137971 | 137972 | 137973 | 137974 | 137975 | 137976 | 137977 | 137978 | 137979 | 137980 | 137981 | 137982 | 138109 | 138296 | 138297 | 138298 | 138303 | 138304 | 138305 | 138306 | 138307 | 138308 | 138437 | 138438 | 138439 | 138440 | 138441 | 138442 | 138553 | 138554 | 138555 | 138556 | 138557 | 138558 | 138559 | 138560 | 138561 | 138562 | 138563 | 138564 | 138565 | 138566 | 138567 | 138568 | 138569 | 138570 | 138571 | 138572 | 138573 | 138574 | 138575 | 138614 | 138615 | 138616 | 138617 | 138618 | 138619 | 138620 | 138621 | 138622 | 138623 | 138624 | 138625 | 138626 | 138627 | 138628 | 138629 | 138630 | 138631 | 138632 | 138633 | 138634 | 138635 | 138636 | 138714 | 138715 | 138716 | 138717 | 138718 | 138719 | 138720 | 138721 | 138722 | 138723 | 138724 | 138725 | 138726 | 138727 | 138728 | 138729 | 138730 | 138731 | 138732 | 138733 | 138734 | 138735 | 138736 | 138773 | 138774 | 138775 | 138776 | 138777 | 138778 | 138779 | 138780 | 138781 | 138782 | 138783 | 138784 | 138785 | 138786 | 138787 | 138788 | 138789 | 138790 | 138791 | 138792 | 138793 | 138794 | 138832 | 139928