[ редактировать ]
<& /contenido/components/select.msn, name => 'obj_list_'.$name, height=>170, width=>'100%', values => \@start, multiple => 1, size => 10 &>
 
<%args> $name => undef $params => {} $check => undef $options => undef <%init> use vars qw( $project ); my @ids = split(',', $check); my @start = (); foreach my $id (@ids) { my $local_object = $keeper->get_document_by_id($id); push @start, $id, $local_object->name if $local_object; } my $start_id = 1; my $classes = ''; if ( ref($options) && (exists($options->{$name})) && (ref($options->{$name}))) { $start_id = $options->{$name}->[0]; $classes = $options->{$name}->[1]; }