|
Lines 1567-1573
Return the ordernumber of created order.
Link Here
|
| 1567 |
sub TransferOrder { |
1567 |
sub TransferOrder { |
| 1568 |
my ($ordernumber, $basketno) = @_; |
1568 |
my ($ordernumber, $basketno) = @_; |
| 1569 |
|
1569 |
|
| 1570 |
return unless $ordernumber or $basketno; |
1570 |
return unless ($ordernumber and $basketno); |
| 1571 |
|
1571 |
|
| 1572 |
my $order = GetOrder( $ordernumber ); |
1572 |
my $order = GetOrder( $ordernumber ); |
| 1573 |
return if $order->{datereceived}; |
1573 |
return if $order->{datereceived}; |
| 1574 |
- |
|
|