From 8afdce3692396d8d18c5f40727fe2fc4da6b4792 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=EA=A6=8C=EA=A6=AB=EA=A6=B6=EA=A6=8F=EA=A7=80=EA=A6=A6?=
 =?UTF-8?q?=EA=A6=BF=EA=A6=A7=EA=A6=AE=EA=A6=91=EA=A6=A9=EA=A6=AD=EA=A7=80?=
 <erik@darapsa.co.id>
Date: Sat, 17 Jul 2021 13:20:49 +0800
Subject: Make sure the variables are set as strings

---
 config/pikul_order.tag | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'config')

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' \
-- 
cgit v1.2.3