diff options
| author | ꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id> | 2021-07-17 13:18:32 +0800 |
|---|---|---|
| committer | ꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id> | 2021-07-17 13:18:32 +0800 |
| commit | 11fb116d5946b2ecfb37be74d0aea7ad7189b275 (patch) | |
| tree | d90351706a5431ce4b36e84c2be11a8fd525613f | |
| parent | cb8001b6bf2597d1b7f05d1c12ccc29769932958 (diff) | |
Shipmode parts need to be saved into an array before shift
| -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}; |