Lines 274-280
sub duplicate_to {
Link Here
|
274 |
$order_info->{$field} = $value; |
274 |
$order_info->{$field} = $value; |
275 |
} |
275 |
} |
276 |
|
276 |
|
277 |
# FIXME $order_info->{created_by} = logged_in_user? |
277 |
my $userenv = C4::Context->userenv; |
|
|
278 |
$order_info->{created_by} = $userenv->{number}; |
278 |
$order_info->{basketno} = $basket->basketno; |
279 |
$order_info->{basketno} = $basket->basketno; |
279 |
|
280 |
|
280 |
$new_order = Koha::Acquisition::Order->new($order_info)->store; |
281 |
$new_order = Koha::Acquisition::Order->new($order_info)->store; |
281 |
- |
|
|