|
Lines 450-469
sub duplicate_to {
Link Here
|
| 450 |
for my $field ( |
450 |
for my $field ( |
| 451 |
qw( |
451 |
qw( |
| 452 |
ordernumber |
452 |
ordernumber |
| 453 |
received_on |
|
|
| 454 |
datereceived |
453 |
datereceived |
| 455 |
invoiceid |
454 |
invoiceid |
| 456 |
datecancellationprinted |
455 |
datecancellationprinted |
| 457 |
cancellationreason |
456 |
cancellationreason |
| 458 |
claims_count |
|
|
| 459 |
claimed_date |
| 460 |
parent_ordernumber |
457 |
parent_ordernumber |
| 461 |
) |
458 |
) |
| 462 |
) |
459 |
) |
| 463 |
{ |
460 |
{ |
| 464 |
undef $order_info->{$field}; |
461 |
undef $order_info->{$field}; |
| 465 |
} |
462 |
} |
| 466 |
$order_info->{placed_on} = dt_from_string; |
|
|
| 467 |
$order_info->{entrydate} = dt_from_string; |
463 |
$order_info->{entrydate} = dt_from_string; |
| 468 |
$order_info->{orderstatus} = 'new'; |
464 |
$order_info->{orderstatus} = 'new'; |
| 469 |
$order_info->{quantityreceived} = 0; |
465 |
$order_info->{quantityreceived} = 0; |
| 470 |
- |
|
|