|
Lines 1613-1619
Return the ordernumber of created order.
Link Here
|
| 1613 |
sub TransferOrder { |
1613 |
sub TransferOrder { |
| 1614 |
my ($ordernumber, $basketno) = @_; |
1614 |
my ($ordernumber, $basketno) = @_; |
| 1615 |
|
1615 |
|
| 1616 |
return unless $ordernumber or $basketno; |
1616 |
return unless ($ordernumber and $basketno); |
| 1617 |
|
1617 |
|
| 1618 |
my $order = GetOrder( $ordernumber ); |
1618 |
my $order = GetOrder( $ordernumber ); |
| 1619 |
return if $order->{datereceived}; |
1619 |
return if $order->{datereceived}; |
| 1620 |
- |
|
|