Lines 169-180
foreach my $item (@items){
Link Here
|
169 |
|
169 |
|
170 |
# item has a host number if its biblio number does not match the current bib |
170 |
# item has a host number if its biblio number does not match the current bib |
171 |
if ($item->biblionumber ne $biblionumber){ |
171 |
if ($item->biblionumber ne $biblionumber){ |
172 |
$item_info->{hostbiblionumber} = $item->{biblionumber}; |
172 |
$item_info->{hostbiblionumber} = $item->biblionumber; |
173 |
$item_info->{hosttitle} = $item->biblio->title; |
173 |
$item_info->{hosttitle} = $item->biblio->title; |
174 |
} |
174 |
} |
175 |
|
175 |
|
176 |
# FIXME The acquisition code below could be improved using methods from Koha:: objects |
176 |
# FIXME The acquisition code below could be improved using methods from Koha:: objects |
177 |
my $order = GetOrderFromItemnumber( $item->{'itemnumber'} ); |
177 |
my $order = GetOrderFromItemnumber( $item->itemnumber ); |
178 |
$item_info->{'basketno'} = $order->{'basketno'}; |
178 |
$item_info->{'basketno'} = $order->{'basketno'}; |
179 |
$item_info->{'orderdate'} = $order->{'entrydate'}; |
179 |
$item_info->{'orderdate'} = $order->{'entrydate'}; |
180 |
if ($item_info->{'basketno'}){ |
180 |
if ($item_info->{'basketno'}){ |
181 |
- |
|
|