Generalise template_tag so no need for shipping usertag

1 files changed, 17 insertions, 3 deletions

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;
 }