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