% unless ($error) {
% } else { <% $error %> % $m->comp('/contenido/components/inputs/integer.msn', %ARGS); % } <%args> $object $name => undef $check => undef $prop => {} <%init> my ($error, $doc, $lookup_string); if ($prop && ref($prop) && ref($prop->{lookup_opts}) eq 'HASH' && exists $prop->{lookup_opts}->{class}) { if ( $check ) { $doc = $keeper->get_document_by_id ( $check, %{$prop->{lookup_opts}} ); } $lookup_string = '/contenido/find_document.html?nf='.$name.'_docname&vf='.$name.'_value'; if ( exists $prop->{lookup_opts} && ref $prop->{lookup_opts} eq 'HASH' ) { while ( my ($param, $value) = each %{ $prop->{lookup_opts} } ) { $lookup_string .= '&'.$param.'='.$value; } } } else { $error = 'Похоже неверное описание lookup_opts в документе'; }