|
Lines 1575-1581
Return the ordernumber of created order.
Link Here
|
| 1575 |
sub TransferOrder { |
1575 |
sub TransferOrder { |
| 1576 |
my ($ordernumber, $basketno) = @_; |
1576 |
my ($ordernumber, $basketno) = @_; |
| 1577 |
|
1577 |
|
| 1578 |
return unless $ordernumber or $basketno; |
1578 |
return unless ($ordernumber and $basketno); |
| 1579 |
|
1579 |
|
| 1580 |
my $order = GetOrder( $ordernumber ); |
1580 |
my $order = GetOrder( $ordernumber ); |
| 1581 |
return if $order->{datereceived}; |
1581 |
return if $order->{datereceived}; |
| 1582 |
- |
|
|