diff options
| -rw-r--r-- | config/pikul_order.tag | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/config/pikul_order.tag b/config/pikul_order.tag index 6fe34b4..074cc07 100644 --- a/config/pikul_order.tag +++ b/config/pikul_order.tag @@ -8,7 +8,8 @@ sub { FROM transactions WHERE code='$order_number'", wantarray => 1 })->[0]}; - my ($table, $service) = split(/_/, shift @{split(/ /, $shipmode)}); + my @parts = split(/ /, $shipmode, 2); + my ($table, $service) = split(/_/, shift @parts); my ($company, @provisions, $origin); if (substr($table, 0, 8) eq 'anteraja') { $company = $::Variable->{PIKUL_ANTERAJA}; |