From fad001ca0a9781865d00dca92d464958e3fa0b8f 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: Mon, 19 Jul 2021 19:12:45 +0800
Subject: Tidy up a bit

Replace underscores with dashes in declarations.
Remove unnecessary double quotes.
---
 config/pikul_cost.tag  | 10 +++++-----
 config/pikul_order.tag | 22 +++++++++++-----------
 2 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/config/pikul_cost.tag b/config/pikul_cost.tag
index 3316ef9..2cea3f2 100644
--- a/config/pikul_cost.tag
+++ b/config/pikul_cost.tag
@@ -1,13 +1,13 @@
-UserTag pikul_cost Order company service district city province weight
-UserTag pikul_cost Routine <<EOR
+UserTag pikul-cost Order company service district city province weight
+UserTag pikul-cost Routine <<EOR
 sub {
 	my ($company, $service, $district, $city, $province, $weight) = @_;
 	my (@provisions, $origin, $table);
 	if ($company == $::Variable->{PIKUL_ANTERAJA}) {
 		@provisions = (
-			"$Global::Variable->{ANTERAJA_ACCESS_KEY_ID}",
-			"$Global::Variable->{ANTERAJA_SECRET_ACCESS_KEY}",
-			"$Global::Variable->{ANTERAJA_BASE_PATH}"
+			$Global::Variable->{ANTERAJA_ACCESS_KEY_ID},
+			$Global::Variable->{ANTERAJA_SECRET_ACCESS_KEY},
+			$Global::Variable->{ANTERAJA_BASE_PATH}
 		);
 		$origin = $::Variable->{ANTERAJA_ORIGIN};
 		$table = 'anteraja';
diff --git a/config/pikul_order.tag b/config/pikul_order.tag
index e159028..e5541f1 100644
--- a/config/pikul_order.tag
+++ b/config/pikul_order.tag
@@ -1,5 +1,5 @@
-UserTag pikul_order Order order_number
-UserTag pikul_order Routine <<EOR
+UserTag pikul-order Order order_number
+UserTag pikul-order Routine <<EOR
 sub {
 	my $order_number = shift;
 	my ($shipmode, $nitems, $subtotal, $fname, $lname, $address1, $address2, $city, $state, $zip,
@@ -15,12 +15,12 @@ sub {
 	if (substr($table, 0, 8) eq 'anteraja') {
 		$company = $::Variable->{PIKUL_ANTERAJA};
 		@provisions = (
-			"$Global::Variable->{ANTERAJA_ACCESS_KEY_ID}",
-			"$Global::Variable->{ANTERAJA_SECRET_ACCESS_KEY}",
-			"$Global::Variable->{ANTERAJA_BASE_PATH}",
-			"$Global::Variable->{ANTERAJA_PREFIX}"
+			$Global::Variable->{ANTERAJA_ACCESS_KEY_ID},
+			$Global::Variable->{ANTERAJA_SECRET_ACCESS_KEY},
+			$Global::Variable->{ANTERAJA_BASE_PATH},
+			$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'",
@@ -37,11 +37,11 @@ sub {
 	my $tracking_number = Pikul::order(
 		$order_number,
 		$service,
-		"$::Variable->{COMPANY}",
-		"$::Variable->{PHONE}",
+		$::Variable->{COMPANY},
+		$::Variable->{PHONE},
 		$origin,
-		"$::Variable->{ADDRESS}",
-		"$::Variable->{POSTAL_CODE}",
+		$::Variable->{ADDRESS},
+		$::Variable->{POSTAL_CODE},
 		"$fname $lname",
 		$phone_day,
 		$Tag->query({sql => "SELECT code FROM $table WHERE district='$address2' AND city='$city' \
-- 
cgit v1.2.3