Lines 242-248
sub duplicate_to {
Link Here
|
242 |
$order_info->{$field} = $value; |
242 |
$order_info->{$field} = $value; |
243 |
} |
243 |
} |
244 |
|
244 |
|
245 |
# FIXME $order_info->{created_by} = logged_in_user? |
245 |
my $userenv = C4::Context->userenv; |
|
|
246 |
$order_info->{created_by} = $userenv->{number}; |
246 |
$order_info->{basketno} = $basket->basketno; |
247 |
$order_info->{basketno} = $basket->basketno; |
247 |
|
248 |
|
248 |
$new_order = Koha::Acquisition::Order->new($order_info)->store; |
249 |
$new_order = Koha::Acquisition::Order->new($order_info)->store; |
249 |
- |
|
|