|
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 |
- |
|
|