diff options
Diffstat (limited to 'config')
| -rw-r--r-- | config/pikul_cost.tag | 20 |
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; } |