diff options
| author | ꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id> | 2021-07-17 13:20:49 +0800 |
|---|---|---|
| committer | ꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id> | 2021-07-17 13:20:49 +0800 |
| commit | 8afdce3692396d8d18c5f40727fe2fc4da6b4792 (patch) | |
| tree | 8f298704470aeaa9dcdccac5eae0675c24edf4df | |
| parent | 11fb116d5946b2ecfb37be74d0aea7ad7189b275 (diff) | |
Make sure the variables are set as strings
| -rw-r--r-- | config/pikul_order.tag | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/config/pikul_order.tag b/config/pikul_order.tag index 074cc07..de4f7f2 100644 --- a/config/pikul_order.tag +++ b/config/pikul_order.tag @@ -19,7 +19,7 @@ sub { "$Global::Variable->{ANTERAJA_SECRET_ACCESS_KEY}", "$Global::Variable->{ANTERAJA_PREFIX}" ); - $origin = $::Variable->{ANTERAJA_ORIGIN}; + $origin = "$::Variable->{ANTERAJA_ORIGIN}"; } my @items = @{$Tag->query({sql => "SELECT sku,quantity FROM orderline WHERE \ order_number='$order_number'", @@ -36,10 +36,10 @@ sub { my $waybill = Pikul::order( $order_number, $service, - $::Variable->{COMPANY}, - $::Variable->{PHONE}, + "$::Variable->{COMPANY}", + "$::Variable->{PHONE}", $origin, - $::Variable->{ADDRESS}, + "$::Variable->{ADDRESS}", "$fname $lname", $phone_day, $Tag->query({sql => "SELECT code FROM $table WHERE district='$address2' AND city='$city' \ |