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

(-)a/acqui/addorderiso2709.pl (-2 / +3 lines)
Lines 245-250 if ($op eq ""){ Link Here
245
            for (my $i = 0; $i < $count; $i++) {
245
            for (my $i = 0; $i < $count; $i++) {
246
                $budget_hash->{$budget_codes[$i]}->{quantity} += 1;
246
                $budget_hash->{$budget_codes[$i]}->{quantity} += 1;
247
                $budget_hash->{$budget_codes[$i]}->{price} = $itemprices[$i];
247
                $budget_hash->{$budget_codes[$i]}->{price} = $itemprices[$i];
248
                $budget_hash->{$budget_codes[$i]}->{itemnumbers} //= [];
249
                push( $budget_hash->{$budget_codes[$i]}->{itemnumbers}, $itemnumbers[$i] );
248
            }
250
            }
249
251
250
            # Create orderlines from MarcItemFieldsToOrder
252
            # Create orderlines from MarcItemFieldsToOrder
Lines 306-312 if ($op eq ""){ Link Here
306
                    };
308
                    };
307
309
308
                    my $order = Koha::Acquisition::Order->new( \%orderinfo )->store;
310
                    my $order = Koha::Acquisition::Order->new( \%orderinfo )->store;
309
                    $order->add_item( $_ ) for @itemnumbers;
311
                    $order->add_item( $_ ) for @{ $budget_hash->{$budget_id}->{itemnumbers} };
310
                }
312
                }
311
            }
313
            }
312
        } else {
314
        } else {
313
- 

Return to bug 19425