View | Details | Raw Unified | Return to bug 39620
Collapse All | Expand All

(-)a/Koha/MarcOrder.pm (-3 / +3 lines)
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
- 

Return to bug 39620