Lines 315-322
sub GetBasketAsCSV {
Link Here
|
315 |
my $bd = GetBiblioData( $order->{'biblionumber'} ); |
315 |
my $bd = GetBiblioData( $order->{'biblionumber'} ); |
316 |
my @biblioitems = GetBiblioItemByBiblioNumber( $order->{'biblionumber'}); |
316 |
my @biblioitems = GetBiblioItemByBiblioNumber( $order->{'biblionumber'}); |
317 |
for my $biblioitem (@biblioitems) { |
317 |
for my $biblioitem (@biblioitems) { |
318 |
if ($biblioitem->{isbn} eq $order->{isbn}) { |
318 |
if ( $biblioitem->{isbn} |
319 |
$order = {%$order, %$biblioitem}; |
319 |
and $order->{isbn} |
|
|
320 |
and $biblioitem->{isbn} eq $order->{isbn} ) |
321 |
{ |
322 |
$order = { %$order, %$biblioitem }; |
320 |
} |
323 |
} |
321 |
} |
324 |
} |
322 |
if ($contract) { |
325 |
if ($contract) { |
323 |
- |
|
|