|
Lines 831-840
sub import_biblios_list {
Link Here
|
| 831 |
); |
831 |
); |
| 832 |
my $marcrecord = $import_record->get_marc_record || die "couldn't translate marc information"; |
832 |
my $marcrecord = $import_record->get_marc_record || die "couldn't translate marc information"; |
| 833 |
|
833 |
|
| 834 |
my $infos = _get_MarcFieldsToOrder_syspref_data( |
834 |
my $infos = _get_MarcFieldsToOrder_syspref_data( $marcrecord ); |
| 835 |
'MarcFieldsToOrder', $marcrecord, |
|
|
| 836 |
[ 'price', 'quantity', 'budget_code', 'discount', 'sort1', 'sort2', 'replacementprice' ] |
| 837 |
); |
| 838 |
my $price = $infos->{price}; |
835 |
my $price = $infos->{price}; |
| 839 |
my $replacementprice = $infos->{replacementprice}; |
836 |
my $replacementprice = $infos->{replacementprice}; |
| 840 |
my $quantity = $infos->{quantity}; |
837 |
my $quantity = $infos->{quantity}; |
| 841 |
- |
|
|