Lines 394-423
sub GetBasketGroupAsCSV {
Link Here
|
394 |
|
394 |
|
395 |
foreach my $order (@orders) { |
395 |
foreach my $order (@orders) { |
396 |
my $biblio = Koha::Biblios->find( $order->{biblionumber} ); |
396 |
my $biblio = Koha::Biblios->find( $order->{biblionumber} ); |
397 |
my $biblioitem = $biblio->biblioitem; |
397 |
my $biblioitem; |
|
|
398 |
if ($biblio) { |
399 |
$biblioitem = $biblio->biblioitem; |
400 |
} |
398 |
my $row = { |
401 |
my $row = { |
399 |
clientnumber => $bookseller->accountnumber, |
402 |
clientnumber => $bookseller->accountnumber, |
400 |
basketname => $basket->{basketname}, |
403 |
basketname => $basket->{basketname}, |
401 |
ordernumber => $order->{ordernumber}, |
404 |
ordernumber => $order->{ordernumber}, |
402 |
author => $biblio->author, |
405 |
author => $biblio ? $biblio->author : q{}, |
403 |
title => $biblio->title, |
406 |
title => $biblio ? $biblio->title : q{}, |
404 |
publishercode => $biblioitem->publishercode, |
407 |
publishercode => $biblioitem ? $biblioitem->publishercode : q{}, |
405 |
publicationyear => $biblioitem->publicationyear, |
408 |
publicationyear => $biblioitem ? $biblioitem->publicationyear : q{}, |
406 |
collectiontitle => $biblioitem->collectiontitle, |
409 |
collectiontitle => $biblioitem ? $biblioitem->collectiontitle : q{}, |
407 |
isbn => $order->{isbn}, |
410 |
isbn => $order->{isbn}, |
408 |
quantity => $order->{quantity}, |
411 |
quantity => $order->{quantity}, |
409 |
rrp_tax_included => $order->{rrp_tax_included}, |
412 |
rrp_tax_included => $order->{rrp_tax_included}, |
410 |
rrp_tax_excluded => $order->{rrp_tax_excluded}, |
413 |
rrp_tax_excluded => $order->{rrp_tax_excluded}, |
411 |
discount => $bookseller->discount, |
414 |
discount => $bookseller->discount, |
412 |
ecost_tax_included => $order->{ecost_tax_included}, |
415 |
ecost_tax_included => $order->{ecost_tax_included}, |
413 |
ecost_tax_excluded => $order->{ecost_tax_excluded}, |
416 |
ecost_tax_excluded => $order->{ecost_tax_excluded}, |
414 |
notes => $order->{order_vendornote}, |
417 |
notes => $order->{order_vendornote}, |
415 |
entrydate => $order->{entrydate}, |
418 |
entrydate => $order->{entrydate}, |
416 |
booksellername => $bookseller->name, |
419 |
booksellername => $bookseller->name, |
417 |
bookselleraddress => $bookseller->address1, |
420 |
bookselleraddress => $bookseller->address1, |
418 |
booksellerpostal => $bookseller->postal, |
421 |
booksellerpostal => $bookseller->postal, |
419 |
contractnumber => $contract->{contractnumber}, |
422 |
contractnumber => $contract->{contractnumber}, |
420 |
contractname => $contract->{contractname}, |
423 |
contractname => $contract->{contractname}, |
421 |
}; |
424 |
}; |
422 |
my $temp = { |
425 |
my $temp = { |
423 |
basketgroupdeliveryplace => $basketgroup->{deliveryplace}, |
426 |
basketgroupdeliveryplace => $basketgroup->{deliveryplace}, |
424 |
- |
|
|