Lines 503-508
sub get_order_infos {
Link Here
|
503 |
foreach my $key (qw(transferred_from transferred_to)) { |
503 |
foreach my $key (qw(transferred_from transferred_to)) { |
504 |
if ($line{$key}) { |
504 |
if ($line{$key}) { |
505 |
my $order = GetOrder($line{$key}); |
505 |
my $order = GetOrder($line{$key}); |
|
|
506 |
my $basket = GetBasket($order->{basketno}); |
506 |
my $bookseller = Koha::Acquisition::Booksellers->find( $basket->{booksellerid} ); |
507 |
my $bookseller = Koha::Acquisition::Booksellers->find( $basket->{booksellerid} ); |
507 |
$line{$key} = { |
508 |
$line{$key} = { |
508 |
order => $order, |
509 |
order => $order, |
509 |
- |
|
|