% unless ($error) {
" size="10" onfocus="key_flag_<% $name %> = 0;" onblur="key_flag_<% $name %> = 1;" style="width: 100%;" <% $prop->{readonly} ? 'readonly' : '' %>>
% } else { <% $error %> % $m->comp('/contenido/components/inputs/integer.msn', %ARGS); % } <%args> $name => undef $check => undef $prop => undef <%init> my (@list, $error); if ($prop && ref($prop) && ref($prop->{lookup_opts}) eq 'HASH') { @list = $keeper->get_documents(order => ['name','reverse'], %{$prop->{lookup_opts}}); } else { $error = 'Похоже неверное описание lookup_opts в документе'; }