From c095b8fa445adceb58e5dd59c59cad17d23a9bc4 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 14:16:32 +0800
Subject: Origin setting so we can use catalog's

To be able to use @_VARNAME_@ or its variant syntaxes, it needs to be
done in usertag, as template tag cannot touch catalog settings.
---
 config/pikul_cost.tag      | 6 ++----
 products/ship/shipping.asc | 2 +-
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/config/pikul_cost.tag b/config/pikul_cost.tag
index 315b608..f078c5d 100644
--- a/config/pikul_cost.tag
+++ b/config/pikul_cost.tag
@@ -1,9 +1,8 @@
-UserTag pikul_cost Order company district city province weight service
+UserTag pikul_cost Order company origin district city province weight service
 UserTag pikul_cost Routine <<EOR
 sub {
-	my ($company, $district, $city, $province, $weight, $service) = @_;
+	my ($company, $origin, $district, $city, $province, $weight, $service) = @_;
 	my @provisions;
-	my $origin;
 	my $table;
 	if ($company == 0) {
 		@provisions = (
@@ -11,7 +10,6 @@ sub {
 			"$Global::Variable->{ANTERAJA_ACCESS_KEY_ID}",
 			"$Global::Variable->{ANTERAJA_SECRET_ACCESS_KEY}"
 		);
-		$origin = "$Global::Variable->{ANTERAJA_ORIGIN}";
 		$table = 'anteraja';
 	}
 	use Pikul;
diff --git a/products/ship/shipping.asc b/products/ship/shipping.asc
index e58e215..fab032e 100644
--- a/products/ship/shipping.asc
+++ b/products/ship/shipping.asc
@@ -1,3 +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']
+	cost	f [pikul_cost company=0 origin='@_ANTERAJA_ORIGIN_@' district='[evalue address3]' city='[evalue city]' province='[evalue state]' weight=@@TOTAL@@ service='REG']
-- 
cgit v1.2.3