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