Lines 27-33
use C4::Biblio;
Link Here
|
27 |
use C4::Items; |
27 |
use C4::Items; |
28 |
use C4::Branch; |
28 |
use C4::Branch; |
29 |
use C4::Acquisition; |
29 |
use C4::Acquisition; |
30 |
use C4::Output; |
30 |
use C4::Bookseller qw(GetBookSellerFromId); |
|
|
31 |
use C4::Output; # contains gettemplate |
31 |
use C4::Auth; |
32 |
use C4::Auth; |
32 |
use C4::Serials; |
33 |
use C4::Serials; |
33 |
use C4::Dates qw/format_date/; |
34 |
use C4::Dates qw/format_date/; |
Lines 147-152
foreach my $item (@items){
Link Here
|
147 |
$item->{'ordernumber'} = $order->{'ordernumber'}; |
148 |
$item->{'ordernumber'} = $order->{'ordernumber'}; |
148 |
$item->{'basketno'} = $order->{'basketno'}; |
149 |
$item->{'basketno'} = $order->{'basketno'}; |
149 |
$item->{'booksellerinvoicenumber'} = $order->{'booksellerinvoicenumber'}; |
150 |
$item->{'booksellerinvoicenumber'} = $order->{'booksellerinvoicenumber'}; |
|
|
151 |
if ($item->{'basketno'}){ |
152 |
my $basket = GetBasket($item->{'basketno'}); |
153 |
my $bookseller = GetBookSellerFromId($basket->{'booksellerid'}); |
154 |
$item->{'vendor'} = $bookseller->{'name'}; |
155 |
} |
150 |
$item->{'datereceived'} = $order->{'datereceived'}; |
156 |
$item->{'datereceived'} = $order->{'datereceived'}; |
151 |
|
157 |
|
152 |
if ($item->{notforloantext} or $item->{itemlost} or $item->{damaged} or $item->{wthdrawn}) { |
158 |
if ($item->{notforloantext} or $item->{itemlost} or $item->{damaged} or $item->{wthdrawn}) { |