Lines 703-715
for my $item ( $biblio->items->as_list, $biblio->host_items->as_list ) {
Link Here
|
703 |
my $i = $item->columns_to_str; |
703 |
my $i = $item->columns_to_str; |
704 |
my $i_order = GetOrderFromItemnumber( $i->{itemnumber} ); |
704 |
my $i_order = GetOrderFromItemnumber( $i->{itemnumber} ); |
705 |
my $i_serialid = Koha::Serial::Items->find( { itemnumber => $i->{itemnumber} }, { prefetch => 'serialid' } ); |
705 |
my $i_serialid = Koha::Serial::Items->find( { itemnumber => $i->{itemnumber} }, { prefetch => 'serialid' } ); |
706 |
if ($i_order) { |
706 |
|
707 |
$warning_messages{ $i->{itemnumber} } = |
707 |
$warning_messages{ $i->{itemnumber} } = { |
708 |
sprintf( "There is an order (ordernumber %s) on this item", $i_order->{ordernumber} ); |
708 |
subscription_linked => $i_serialid ? 1 : undef, |
709 |
} |
709 |
ordernumber_linked => $i_order ? $i_order->{ordernumber} : undef, |
710 |
if ($i_serialid) { |
710 |
}; |
711 |
$warning_messages{ $i->{itemnumber} } = 'A subscription is linked to this item'; |
711 |
|
712 |
} |
712 |
|
713 |
$i->{nomod} = 1 unless $patron->can_edit_items_from( $item->homebranch ); |
713 |
$i->{nomod} = 1 unless $patron->can_edit_items_from( $item->homebranch ); |
714 |
push @items, $i; |
714 |
push @items, $i; |
715 |
} |
715 |
} |