diff options
Diffstat (limited to 'config')
| -rw-r--r-- | config/pikul_cost.tag | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/config/pikul_cost.tag b/config/pikul_cost.tag index 9b36e3b..315b608 100644 --- a/config/pikul_cost.tag +++ b/config/pikul_cost.tag @@ -2,20 +2,20 @@ UserTag pikul_cost Order company district city province weight service UserTag pikul_cost Routine <<EOR sub { 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'; - } + my @provisions; + my $origin; + my $table; + if ($company == 0) { + @provisions = ( + "$Global::Variable->{ANTERAJA_BASE_PATH}", + "$Global::Variable->{ANTERAJA_ACCESS_KEY_ID}", + "$Global::Variable->{ANTERAJA_SECRET_ACCESS_KEY}" + ); + $origin = "$Global::Variable->{ANTERAJA_ORIGIN}"; + $table = 'anteraja'; } use Pikul; - Pikul::init($company, $provisions); + Pikul::init($company, \@provisions); 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); |