Lines 261-266 if ( \$orderinfo->{quantity} ne '0' ) { (-)a/acqui/addorder.pl (+8 lines) 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}) {`
 Lines 257-262 if (\$op eq ""){ (-)a/acqui/addorderiso2709.pl (+12 lines) 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`
 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 `- `