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