From 85bc0f37e4a178f0d25441301316b76282d28d6a 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 11:48:48 +0800
Subject: Generalise template_tag so no need for shipping usertag

---
 config/pikul_cost.tag | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

(limited to 'config')

diff --git a/config/pikul_cost.tag b/config/pikul_cost.tag
index c8f1052..9b36e3b 100644
--- a/config/pikul_cost.tag
+++ b/config/pikul_cost.tag
@@ -1,10 +1,24 @@
-UserTag pikul_cost Order company provisions origin destination weight service
+UserTag pikul_cost Order company district city province weight service
 UserTag pikul_cost Routine <<EOR
 sub {
-	my ($company, $provisions, $origin, $destination, $weight, $service) = @_;
+	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';
+		}
+	}
 	use Pikul;
 	Pikul::init($company, $provisions);
-	my $cost = Pikul::cost($origin, $destination, $weight, $service);
+	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);
 	Pikul::cleanup();
 	return $cost;
 }
-- 
cgit v1.2.3