diff options
| author | ꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id> | 2021-07-20 14:50:48 +0800 |
|---|---|---|
| committer | ꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id> | 2021-07-20 14:50:48 +0800 |
| commit | 488e6e8145ce64dd124ba6187a5d7b5813bb927b (patch) | |
| tree | 3a81f24f4273fad235e9d0f1b82ffcf737fd96b2 /config | |
| parent | 0550cb43f08b97292639f800512df3965ee96df1 (diff) | |
Trying to get weight shouldn't be the template user's concern
Diffstat (limited to 'config')
| -rw-r--r-- | config/pikul_codes.tag | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/config/pikul_codes.tag b/config/pikul_codes.tag index fb4a0e6..71fd5cc 100644 --- a/config/pikul_codes.tag +++ b/config/pikul_codes.tag @@ -1,7 +1,7 @@ -UserTag pikul-codes Order company district city province weight +UserTag pikul-codes Order company district city province UserTag pikul-codes Routine <<EOR sub { - my ($company, $district, $city, $province, $weight) = @_; + my ($company, $district, $city, $province) = @_; my (@provisions, $origin, $table); if ($company == $::Variable->{PIKUL_ANTERAJA}) { @provisions = ( @@ -12,6 +12,10 @@ sub { $origin = $::Variable->{ANTERAJA_ORIGIN}; $table = 'anteraja'; } + my $weight = 0.0; + for my $item (@{$Carts->{main}}) { + $weight += $Tag->data('products', 'weight', $item->{code}) * $item->{quantity}; + } use Pikul; Pikul::init($company, \@provisions); my @codes = @{Pikul::codes( |