Lines 1700-1706
Return the ordernumber of created order.
Link Here
|
1700 |
sub TransferOrder { |
1700 |
sub TransferOrder { |
1701 |
my ($ordernumber, $basketno) = @_; |
1701 |
my ($ordernumber, $basketno) = @_; |
1702 |
|
1702 |
|
1703 |
return unless $ordernumber or $basketno; |
1703 |
return unless ($ordernumber and $basketno); |
1704 |
|
1704 |
|
1705 |
my $order = GetOrder( $ordernumber ); |
1705 |
my $order = GetOrder( $ordernumber ); |
1706 |
return if $order->{datereceived}; |
1706 |
return if $order->{datereceived}; |
1707 |
- |
|
|