diff options
| -rw-r--r-- | config/pikul_order.tag | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/config/pikul_order.tag b/config/pikul_order.tag index 062d5ac..f3de13d 100644 --- a/config/pikul_order.tag +++ b/config/pikul_order.tag @@ -1,5 +1,7 @@ +=pod UserTag pikul_order Order order_number insurance UserTag pikul_order Routine <<EOR +=cut sub { my ($order_number, $insurance) = @_; my ($shipmode, $nitems, $subtotal, $fname, $lname, $address1, $address2, $city, $state, $phone_day) @@ -8,7 +10,7 @@ sub { FROM transactions WHERE code='$order_number'", wantarray => 1 })->[0]}; - my ($table, $service) = split(/_/, shift split(/ /, $shipmode)); + my ($table, $service) = split(/_/, shift @{split(/ /, $shipmode)}); my ($company, @provisions, $origin); if (substr($table, 0, 8) eq 'anteraja') { $company = $::Variable->{PIKUL_ANTERAJA}; |