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

(-)a/acqui/addorderiso2709.pl (-2 / +7 lines)
Lines 513-519 sub import_biblios_list { Link Here
513
        # Items
513
        # Items
514
        my @itemlist = ();
514
        my @itemlist = ();
515
        my $all_items_quantity = 0;
515
        my $all_items_quantity = 0;
516
        my $alliteminfos = get_infos_syspref_on_item('MarcItemFieldsToOrder', $marcrecord, ['homebranch', 'holdingbranch', 'itype', 'nonpublic_note', 'public_note', 'loc', 'ccode', 'notforloan', 'uri', 'copyno', 'price', 'replacementprice', 'itemcallnumber', 'quantity', 'budget_code']);
516
        my $alliteminfos = get_infos_syspref_on_item('MarcItemFieldsToOrder', $marcrecord, ['homebranch', 'holdingbranch', 'itype', 'nonpublic_note', 'public_note', 'loc', 'ccode', 'notforloan', 'uri', 'copyno', 'price', 'replacementprice', 'itemcallnumber', 'quantity', 'budget_code', 'discount', 'sort1', 'sort2']);
517
        if ($alliteminfos != -1) {
517
        if ($alliteminfos != -1) {
518
            foreach my $iteminfos (@$alliteminfos) {
518
            foreach my $iteminfos (@$alliteminfos) {
519
                my $item_homebranch = $iteminfos->{homebranch};
519
                my $item_homebranch = $iteminfos->{homebranch};
Lines 528-533 sub import_biblios_list { Link Here
528
                my $item_copyno = $iteminfos->{copyno};
528
                my $item_copyno = $iteminfos->{copyno};
529
                my $item_quantity = $iteminfos->{quantity} || 1;
529
                my $item_quantity = $iteminfos->{quantity} || 1;
530
                my $item_budget_code = $iteminfos->{budget_code};
530
                my $item_budget_code = $iteminfos->{budget_code};
531
                my $item_discount = $iteminfos->{discount};
532
                my $item_sort1 = $iteminfos->{sort1};
533
                my $item_sort2 = $iteminfos->{sort2};
531
                my $item_budget_id;
534
                my $item_budget_id;
532
                if ( $iteminfos->{budget_code} ) {
535
                if ( $iteminfos->{budget_code} ) {
533
                    my $item_budget = GetBudgetByCode( $iteminfos->{budget_code} );
536
                    my $item_budget = GetBudgetByCode( $iteminfos->{budget_code} );
Lines 556-561 sub import_biblios_list { Link Here
556
                        'copyno' => $item_copyno,
559
                        'copyno' => $item_copyno,
557
                        'quantity' => $item_quantity,
560
                        'quantity' => $item_quantity,
558
                        'budget_id' => $item_budget_id || $budget_id,
561
                        'budget_id' => $item_budget_id || $budget_id,
562
                        'discount' => $item_discount || $discount,
563
                        'sort1' => $item_sort1 || $sort1,
564
                        'sort2' => $item_sort2 || $sort2,
559
                        'itemprice' => $item_price || $price,
565
                        'itemprice' => $item_price || $price,
560
                        'replacementprice' => $item_replacement_price || $replacementprice,
566
                        'replacementprice' => $item_replacement_price || $replacementprice,
561
                        'itemcallnumber' => $item_callnumber,
567
                        'itemcallnumber' => $item_callnumber,
562
- 

Return to bug 34645