{multiple} && ' multiple' %><% $prop->{size} && ' size="'.$prop->{size}.'"' %>> % % if ($prop->{allow_null}) { % >--- не указано --- % % } % % for my $chain (@chains) { % % my $selected = defined $chain && ( ref $check eq 'ARRAY' ? grep { $_ eq $chain } @$check : $check eq $chain ? 1 : 0 ); % $found++ if $selected; % ><% $chain %> % % } % % #if used not allowed value % if ( $check and not $found ) { % <% $check %> % % } % <%args> $prop => undef $name => undef $values => [] $check => undef $options => undef <%init> my $found = 0; my @chains = (); if ( ref $options && exists $options->{$name} ) { @chains = @{ $options->{$name} }; }