diff options
author | ꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id> | 2021-07-13 20:43:47 +0800 |
---|---|---|
committer | ꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id> | 2021-07-13 20:43:47 +0800 |
commit | 3e8f47da1d2c80285ab08f04e982f4d22d646876 (patch) | |
tree | da3caed6bca48ecdfc1e9cc0d28a12585c4170f1 | |
parent | a88e3cb6f9ca43822dea9ad36c286d132c04efb8 (diff) |
@_VARNAME_@ seems to generate error
-rw-r--r-- | usertag/anteraja_rates.tag | 4 |
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]; |