Bug 33076: (QA follow-up) Update context hint to "EDIFACT message QUOTE"

[koha-ffzg.git] / catalogue / detail.pl

diff --git a/catalogue/detail.pl b/catalogue/detail.pl
index 3af8277..48bd799 100755 (executable)
--- a/catalogue/detail.pl
+++ b/catalogue/detail.pl
@@ -265,8 +265,8 @@ if ( $showcomp eq 'both' || $showcomp eq 'staff' ) {
               );
         }
         $template->param( ComponentParts => $parts );
-        my ( $comp_query, $comp_sort ) = $biblio->get_components_query;
-        my $cpq = $comp_query . "&sort_by=" . $comp_sort;
+        my ( $comp_query, $comp_query_str, $comp_sort ) = $biblio->get_components_query;
+        my $cpq = $comp_query_str . "&sort_by=" . $comp_sort;
         $template->param( ComponentPartsQuery => $cpq );
     }
 } else { # check if we should show analytics anyway
@@ -402,11 +402,8 @@ foreach my $item (@items) {
 
     # Check the transit status
     my $transfer = $item->get_transfer;
-    if ( $transfer && $transfer->in_transit ) {
-        $item_info->{transfertwhen} = $transfer->datesent;
-        $item_info->{transfertfrom} = $transfer->frombranch;
-        $item_info->{transfertto} = $transfer->tobranch;
-        $item_info->{nocancel} = 1;
+    if ( $transfer ) {
+        $item_info->{transfer} = $transfer;
     }
 
     foreach my $f (qw( itemnotes )) {
@@ -445,6 +442,8 @@ foreach my $item (@items) {
         $item_info->{'course_reserves'} = GetItemCourseReservesInfo( itemnumber => $item->itemnumber );
     }
 
+    $item_info->{can_be_edited} = $patron->can_edit_items_from( $item->homebranch );
+
     if ( C4::Context->preference("LocalCoverImages") == 1 ) {
         $item_info->{cover_images} = $item->cover_images;
     }