% for my $select (@totals) % { % }

Настройка селектов
Идентификатор	Русское название	Варианты выбора
<% $select->{attr} %>	<% $select->{rusname} %>	\ % if (exists($options->{ $select->{attr} })) % { <% join("\n", @{ $options->{ $select->{attr} } } ) %>\ % }

<%ARGS> $object => undef $options => undef <%INIT> return if (! ref($object)); my @totals = (); my @properties = $object->structure(); for (0..$#properties) { my $prop = $properties[$_]; if ($prop->{type} eq 'select' or $prop->{type} eq 'color' or $prop->{type} eq 'colorset') { push (@totals, $prop ); } } return if (scalar(@totals) == 0);