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