@@ -, +, @@ --- acqui/addorder.pl | 8 ++++++++ acqui/addorderiso2709.pl | 12 ++++++++++++ acqui/finishreceive.pl | 8 ++++++++ 3 files changed, 28 insertions(+) --- a/acqui/addorder.pl +++ a/acqui/addorder.pl @@ -264,6 +264,14 @@ if ( $orderinfo->{quantity} ne '0' ) { $orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq ''; + $orderinfo = C4::Acquisition::populate_order_with_prices( + { + order => $orderinfo, + booksellerid => $orderinfo->{booksellerid}, + ordering => 1, + } + ); + # if we already have $ordernumber, then it's an ordermodif my $order = Koha::Acquisition::Order->new($orderinfo); if ( $orderinfo->{ordernumber} ) { --- a/acqui/addorderiso2709.pl +++ a/acqui/addorderiso2709.pl @@ -233,6 +233,18 @@ if ($op eq ""){ # remove uncertainprice flag if we have found a price in the MARC record $orderinfo{uncertainprice} = 0 if $orderinfo{listprice}; + + %orderinfo = %{ + C4::Acquisition::populate_order_with_prices( + { + order => \%orderinfo, + booksellerid => $booksellerid, + ordering => 1, + receiving => 1, + } + ) + }; + my $order = Koha::Acquisition::Order->new( \%orderinfo )->insert; # 4th, add items if applicable --- a/acqui/finishreceive.pl +++ a/acqui/finishreceive.pl @@ -103,6 +103,14 @@ if ($quantityrec > $origquantityrec ) { } } + $order = C4::Acquisition::populate_order_with_prices( + { + order => $order, + booksellerid => $booksellerid, + receiving => 1 + } + ); + # save the quantity received. if ( $quantityrec > 0 ) { ( $datereceived, $new_ordernumber ) = ModReceiveOrder( --