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