summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id>2021-07-13 20:43:47 +0800
committerꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id>2021-07-13 20:43:47 +0800
commit3e8f47da1d2c80285ab08f04e982f4d22d646876 (patch)
treeda3caed6bca48ecdfc1e9cc0d28a12585c4170f1
parenta88e3cb6f9ca43822dea9ad36c286d132c04efb8 (diff)
@_VARNAME_@ seems to generate error
-rw-r--r--usertag/anteraja_rates.tag4
1 files changed, 2 insertions, 2 deletions
diff --git a/usertag/anteraja_rates.tag b/usertag/anteraja_rates.tag
index e862790..40a8afd 100644
--- a/usertag/anteraja_rates.tag
+++ b/usertag/anteraja_rates.tag
@@ -2,8 +2,8 @@ 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 @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];