|
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 |
- |
|
|