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