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

(-)a/acqui/addorder.pl (+8 lines)
Lines 264-269 if ( $orderinfo->{quantity} ne '0' ) { Link Here
264
264
265
    $orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq '';
265
    $orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq '';
266
266
267
    $orderinfo = C4::Acquisition::populate_order_with_prices(
268
        {
269
            order        => $orderinfo,
270
            booksellerid => $orderinfo->{booksellerid},
271
            ordering     => 1,
272
        }
273
    );
274
267
    # if we already have $ordernumber, then it's an ordermodif
275
    # if we already have $ordernumber, then it's an ordermodif
268
    my $order = Koha::Acquisition::Order->new($orderinfo);
276
    my $order = Koha::Acquisition::Order->new($orderinfo);
269
    if ( $orderinfo->{ordernumber} ) {
277
    if ( $orderinfo->{ordernumber} ) {
(-)a/acqui/addorderiso2709.pl (+12 lines)
Lines 233-238 if ($op eq ""){ Link Here
233
233
234
        # remove uncertainprice flag if we have found a price in the MARC record
234
        # remove uncertainprice flag if we have found a price in the MARC record
235
        $orderinfo{uncertainprice} = 0 if $orderinfo{listprice};
235
        $orderinfo{uncertainprice} = 0 if $orderinfo{listprice};
236
237
        %orderinfo = %{
238
            C4::Acquisition::populate_order_with_prices(
239
                {
240
                    order        => \%orderinfo,
241
                    booksellerid => $booksellerid,
242
                    ordering     => 1,
243
                    receiving    => 1,
244
                }
245
            )
246
        };
247
236
        my $order = Koha::Acquisition::Order->new( \%orderinfo )->insert;
248
        my $order = Koha::Acquisition::Order->new( \%orderinfo )->insert;
237
249
238
        # 4th, add items if applicable
250
        # 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