Lines 49-54
use C4::Biblio qw(
Link Here
|
49 |
GetMarcFromKohaField |
49 |
GetMarcFromKohaField |
50 |
TransformHtmlToXml |
50 |
TransformHtmlToXml |
51 |
GetMarcQuantity |
51 |
GetMarcQuantity |
|
|
52 |
GetMarcPrice |
52 |
); |
53 |
); |
53 |
use C4::Items qw( AddItemFromMarc ); |
54 |
use C4::Items qw( AddItemFromMarc ); |
54 |
use C4::Budgets qw( GetBudgetByCode ); |
55 |
use C4::Budgets qw( GetBudgetByCode ); |
Lines 722-729
sub import_biblios_list {
Link Here
|
722 |
my $marcrecord = $import_record->get_marc_record || die "couldn't translate MARC information"; |
723 |
my $marcrecord = $import_record->get_marc_record || die "couldn't translate MARC information"; |
723 |
|
724 |
|
724 |
my $infos = _get_syspref_mappings( $marcrecord, 'MarcFieldsToOrder' ); |
725 |
my $infos = _get_syspref_mappings( $marcrecord, 'MarcFieldsToOrder' ); |
725 |
|
726 |
my $price = |
726 |
my $price = $infos->{price} || undef; |
727 |
$infos->{price} ? $infos->{price} : GetMarcPrice( $marcrecord, C4::Context->preference('marcflavour') ); |
727 |
my $replacementprice = $infos->{replacementprice} || undef; |
728 |
my $replacementprice = $infos->{replacementprice} || undef; |
728 |
my $quantity = $infos->{quantity} || undef; |
729 |
my $quantity = $infos->{quantity} || undef; |
729 |
my $budget_code = $infos->{budget_code} || undef; |
730 |
my $budget_code = $infos->{budget_code} || undef; |
730 |
- |
|
|