|
Lines 283-289
for ( 0 .. 5 ) {
Link Here
|
| 283 |
values %{ $order_content[$_]->{num} }; |
283 |
values %{ $order_content[$_]->{num} }; |
| 284 |
@ocontent{ keys %{ $order_content[$_]->{str} } } = |
284 |
@ocontent{ keys %{ $order_content[$_]->{str} } } = |
| 285 |
values %{ $order_content[$_]->{str} }; |
285 |
values %{ $order_content[$_]->{str} }; |
| 286 |
use Data::Printer colored => 1; warn p %ocontent; |
|
|
| 287 |
$ordernumbers[$_] = Koha::Acquisition::Order->new( \%ocontent )->store->ordernumber; |
286 |
$ordernumbers[$_] = Koha::Acquisition::Order->new( \%ocontent )->store->ordernumber; |
| 288 |
$order_content[$_]->{str}->{ordernumber} = $ordernumbers[$_]; |
287 |
$order_content[$_]->{str}->{ordernumber} = $ordernumbers[$_]; |
| 289 |
} |
288 |
} |
| 290 |
- |
|
|