Выбор заказов по типу покупателей

% foreach my $sel ( @select ) { % my $selected = defined $value && $value eq $sel->{value} ? ' selected' : ''; ><% $sel->{name} %> % }

<%once> my @select = ( { name => 'Все заказы', value => '' }, { name => 'Розница', value => '0' }, { name => 'Опт', value => 'positive' }, ); <%args> $value => undef