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


From e6957863a2e313b21bf93a1479d50920631d93ac 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 13:29:02 +0800
Subject: Criteria is a MUST

---
 products/ship/shipping.asc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/products/ship/shipping.asc b/products/ship/shipping.asc
index 2253c18..e58e215 100644
--- a/products/ship/shipping.asc
+++ b/products/ship/shipping.asc
@@ -1,2 +1,3 @@
 anteraja:	Anteraja Regular
+	crit	weight
 	cost	f [pikul_cost company=0 district='[evalue address3]' city='[evalue city]' province='[evalue state]' weight=@@TOTAL@@ service='REG']
-- 
cgit v1.2.3