% for my $obj_list (@totals) % { % }

Настройка источника линка
Идентификатор	Русское название		Допустимые Классы
<% $obj_list->{attr} %>	<% $obj_list->{rusname} %>		% my @local_values = (); % for my $class (@{ $state->{available_documents} }) % { % push (@local_values, $class, $class); % } % my @local_checks = (); % if (exists($options->{ $obj_list->{attr} })) % { % @local_checks = split(',', $options->{ $obj_list->{attr} }->[1] ); % } % <& "/contenido/components/select.msn", multiple=>1, size=>5, values=>\@local_values, width=>"90%;", name=>$obj_list->{attr}.'.obj_list_classes', check=>\@local_checks &>

<%ARGS> $object => undef $options => undef <%INIT> return if (! ref($object)); my @totals = (); my @properties = $object->structure(); for (0..$#properties) { my $prop = $properties[$_]; if ($prop->{type} eq 'link_source_id') { push (@totals, $prop ); } } return if (scalar(@totals) == 0);