|
Lines 1587-1593
Return the ordernumber of created order.
Link Here
|
| 1587 |
sub TransferOrder { |
1587 |
sub TransferOrder { |
| 1588 |
my ($ordernumber, $basketno) = @_; |
1588 |
my ($ordernumber, $basketno) = @_; |
| 1589 |
|
1589 |
|
| 1590 |
return unless $ordernumber or $basketno; |
1590 |
return unless ($ordernumber and $basketno); |
| 1591 |
|
1591 |
|
| 1592 |
my $order = GetOrder( $ordernumber ); |
1592 |
my $order = GetOrder( $ordernumber ); |
| 1593 |
return if $order->{datereceived}; |
1593 |
return if $order->{datereceived}; |
| 1594 |
- |
|
|