From a88e3cb6f9ca43822dea9ad36c286d132c04efb8 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: Tue, 13 Jul 2021 20:39:47 +0800
Subject: Rename to its original name

and give a chance for a seller to use their own provisions.
---
 products/ship/shipping.asc |  2 +-
 usertag/anteraja_cost.tag  | 15 ---------------
 usertag/anteraja_rates.tag | 15 +++++++++++++++
 3 files changed, 16 insertions(+), 16 deletions(-)
 delete mode 100644 usertag/anteraja_cost.tag
 create mode 100644 usertag/anteraja_rates.tag

diff --git a/products/ship/shipping.asc b/products/ship/shipping.asc
index 8011be1..ed5849a 100644
--- a/products/ship/shipping.asc
+++ b/products/ship/shipping.asc
@@ -2,4 +2,4 @@ anteraja:	Anteraja
 	crit	weight
 	min	1
 	max	50
-	cost	f [anteraja_cost district='[evalue address3]' city='[evalue city]' province='[evalue state]' weight=@@TOTAL@@]
+	cost	f [anteraja_rates district='[evalue address3]' city='[evalue city]' province='[evalue state]' weight=@@TOTAL@@]
diff --git a/usertag/anteraja_cost.tag b/usertag/anteraja_cost.tag
deleted file mode 100644
index ac18a86..0000000
--- a/usertag/anteraja_cost.tag
+++ /dev/null
@@ -1,15 +0,0 @@
-UserTag anteraja_cost Order district city province weight
-UserTag anteraja_cost Routine <<EOR
-sub {
-	my ($district, $city, $province, $weight) = @_;
-	my @provisions = ( "@@ANTERAJA_BASE_PATH@@", "@@ANTERAJA_ACCESS_KEY_ID@@",
-		"@@ANTERAJA_SECRET_ACCESS_KEY@@" );
-	my $origin = $Tag->query({sql => "SELECT code FROM shipping WHERE district='". "__DISTRICT__"
-			."' AND city='". "__CITY__" . "' AND province='" . "__PROVINCE__" . "'",
-			wantarray=> 1})->[0]->[0];
-	my $destination = $Tag->query({sql => "SELECT code FROM shipping WHERE district='" . $district
-			. "' AND city='" . $city . "' AND province='" . $province . "'",
-			wantarray=> 1})->[0]->[0];
-	return $Tag->pikul_cost(0, \@provisions, "$origin", "$destination", $weight * 1000, 'REG');
-}
-EOR
diff --git a/usertag/anteraja_rates.tag b/usertag/anteraja_rates.tag
new file mode 100644
index 0000000..e862790
--- /dev/null
+++ b/usertag/anteraja_rates.tag
@@ -0,0 +1,15 @@
+UserTag anteraja_rates Order district city province weight
+UserTag anteraja_rates Routine <<EOR
+sub {
+	my ($district, $city, $province, $weight) = @_;
+	my @provisions = ( "@_ANTERAJA_BASE_PATH_@", "@_ANTERAJA_ACCESS_KEY_ID_@",
+		"@_ANTERAJA_SECRET_ACCESS_KEY_@" );
+	my $origin = $Tag->query({sql => "SELECT code FROM shipping WHERE district='". "__DISTRICT__"
+			. "' AND city='" . "__CITY__" . "' AND province='" . "__PROVINCE__" . "'",
+			wantarray=> 1})->[0]->[0];
+	my $destination = $Tag->query({sql => "SELECT code FROM shipping WHERE district='" . $district
+			. "' AND city='" . $city . "' AND province='" . $province . "'",
+			wantarray=> 1})->[0]->[0];
+	return $Tag->pikul_cost(0, \@provisions, "$origin", "$destination", $weight * 1000, 'REG');
+}
+EOR
-- 
cgit v1.2.3