|
Lines 644-651
sub import_biblios_list {
Link Here
|
| 644 |
my $itemrecord = {%$iteminfos}; |
644 |
my $itemrecord = {%$iteminfos}; |
| 645 |
$itemrecord->{item_id} = $item_id++; |
645 |
$itemrecord->{item_id} = $item_id++; |
| 646 |
|
646 |
|
| 647 |
# Rename price field to match UI |
|
|
| 648 |
$itemrecord->{itemprice} = delete $itemrecord->{price} if $itemrecord->{price}; |
| 649 |
$all_items_quantity++; |
647 |
$all_items_quantity++; |
| 650 |
push @itemlist, $itemrecord; |
648 |
push @itemlist, $itemrecord; |
| 651 |
} |
649 |
} |
| 652 |
- |
|
|