From 517b2b42b5c21c615ad612813239a59ba5ff019b 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: Wed, 14 Jul 2021 12:28:31 +0800
Subject: Fix so the template tag runs

Variable declarations have to be separated in Perl (or maybe use
parentheses?).
Using given when failed (maybe can't modify variables).
Fix provisions referral.
Template tag can't access catalog settings, I guess.. and the syntax
also has to be the one in GlobalSub.
Reference:
Interchange doc 5.5 -> Glossary -> variable
---
 config/pikul_cost.tag | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/config/pikul_cost.tag b/config/pikul_cost.tag
index 9b36e3b..315b608 100644
--- a/config/pikul_cost.tag
+++ b/config/pikul_cost.tag
@@ -2,20 +2,20 @@ UserTag pikul_cost Order company district city province weight service
 UserTag pikul_cost Routine <<EOR
 sub {
 	my ($company, $district, $city, $province, $weight, $service) = @_;
-	my @provisions, $origin, $table;
-	given ($company) {
-		when (0) {
-			@provisions = (
-				"$Tag->var('ANTERAJA_BASE_PATH', 2)",
-				"$Tag->var('ANTERAJA_ACCESS_KEY_ID', 2)",
-				"$Tag->var('ANTERAJA_SECRET_ACCESS_KEY', 2)"
-			);
-			$origin = "$Tag->var('ANTERAJA_ORIGIN', 2)";
-			$table = 'anteraja';
-		}
+	my @provisions;
+	my $origin;
+	my $table;
+	if ($company == 0) {
+		@provisions = (
+			"$Global::Variable->{ANTERAJA_BASE_PATH}",
+			"$Global::Variable->{ANTERAJA_ACCESS_KEY_ID}",
+			"$Global::Variable->{ANTERAJA_SECRET_ACCESS_KEY}"
+		);
+		$origin = "$Global::Variable->{ANTERAJA_ORIGIN}";
+		$table = 'anteraja';
 	}
 	use Pikul;
-	Pikul::init($company, $provisions);
+	Pikul::init($company, \@provisions);
 	my $cost = Pikul::cost($origin, $Tag->query({sql => "SELECT code FROM $table WHERE district='"
 				. $district . "' AND city='" . $city . "' AND province='" . $province . "'",
 				wantarray => 1})->[0]->[0], $weight, $service);
-- 
cgit v1.2.3