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

(-)a/acqui/addorder.pl (+8 lines)
Lines 261-266 if ( $orderinfo->{quantity} ne '0' ) { Link Here
261
261
262
    $orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq '';
262
    $orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq '';
263
263
264
    $orderinfo = C4::Acquisition::populate_order_with_prices(
265
        {
266
            order        => $orderinfo,
267
            booksellerid => $orderinfo->{booksellerid},
268
            ordering     => 1,
269
        }
270
    );
271
264
    # if we already have $ordernumber, then it's an ordermodif
272
    # if we already have $ordernumber, then it's an ordermodif
265
    my $order = Koha::Acquisition::Order->new($orderinfo);
273
    my $order = Koha::Acquisition::Order->new($orderinfo);
266
    if ($$orderinfo{ordernumber}) {
274
    if ($$orderinfo{ordernumber}) {
(-)a/acqui/addorderiso2709.pl (+12 lines)
Lines 257-262 if ($op eq ""){ Link Here
257
257
258
        # remove uncertainprice flag if we have found a price in the MARC record
258
        # remove uncertainprice flag if we have found a price in the MARC record
259
        $orderinfo{uncertainprice} = 0 if $orderinfo{listprice};
259
        $orderinfo{uncertainprice} = 0 if $orderinfo{listprice};
260
261
        %orderinfo = %{
262
            C4::Acquisition::populate_order_with_prices(
263
                {
264
                    order        => \%orderinfo,
265
                    booksellerid => $booksellerid,
266
                    ordering     => 1,
267
                    receiving    => 1,
268
                }
269
            )
270
        };
271
260
        my $order = Koha::Acquisition::Order->new( \%orderinfo )->insert;
272
        my $order = Koha::Acquisition::Order->new( \%orderinfo )->insert;
261
273
262
        # 4th, add items if applicable
274
        # 4th, add items if applicable
(-)a/acqui/finishreceive.pl (-1 / +8 lines)
Lines 103-108 if ($quantityrec > $origquantityrec ) { Link Here
103
        }
103
        }
104
    }
104
    }
105
105
106
    $order = C4::Acquisition::populate_order_with_prices(
107
        {
108
            order => $order,
109
            booksellerid => $booksellerid,
110
            receiving => 1
111
        }
112
    );
113
106
    # save the quantity received.
114
    # save the quantity received.
107
    if ( $quantityrec > 0 ) {
115
    if ( $quantityrec > 0 ) {
108
        ( $datereceived, $new_ordernumber ) = ModReceiveOrder(
116
        ( $datereceived, $new_ordernumber ) = ModReceiveOrder(
109
- 

Return to bug 13321