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