<%once>
use JSON::XS;
my $json = JSON::XS->new->utf8;
<%args>
$name => undef
$rusname => undef
$check => undef
<%init>
my $fields = $check ? $json->decode($check) : [];
$m->out('');
$m->out('');
$m->out('Порог стоимости (сумма заказа больше или равна): | ');
$m->out('Стоимость доставки (% или число): |
|---|
');
my $max = scalar @$fields + 2;
for my $i ( 1..$max ) {
my $rusname = "$rusname N$i";
my $object = $fields->[$i-1];
$m->comp('.field',
name => $name,
object => $object,
number => $i,
);
}
$m->out('
');
<%def .field>
<%args>
$name => undef
$object => undef
$number => undef
<%init>
|
|