diff options
| -rw-r--r-- | products/ship/shipping.asc | 2 | ||||
| -rw-r--r-- | usertag/anteraja_rates.tag (renamed from usertag/anteraja_cost.tag) | 10 |
2 files changed, 6 insertions, 6 deletions
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_rates.tag index ac18a86..e862790 100644 --- a/usertag/anteraja_cost.tag +++ b/usertag/anteraja_rates.tag @@ -1,11 +1,11 @@ -UserTag anteraja_cost Order district city province weight -UserTag anteraja_cost Routine <<EOR +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__" . "'", + . "' 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 . "'", |