% my $classes = [ '' => '--- Выберите тип ---' ]; % % foreach my $class (sort {$a->class_name cmp $b->class_name} $proto eq 'documents' ? @{ $user->get_available_classes } : @{ $state->{'available_'.$proto} }) % { % my $object = $class->new($keeper); % push @$classes, $class, "".$object->class_name()." ($class)"; % }
<% $INVITE->{$proto}->[0] %> <& "/contenido/components/select.msn", name=>'class', values=>$classes, check=>$default, style=>'width:100%;', onChange => "set_create_button(this, 'create_$btn_id')" &> >
<%ONCE> use locale; <%ARGS> $default => undef $proto => 'documents' $sect_id => 1 <%INIT> my $INVITE = { 'documents' => ['Новый документ','document.html'], 'sections' => ['Новая секция','section.html'], 'links' => ['Новая связь','link.html'], 'users' => ['Новый пользователь','users.html'], }; my $btn_id = int(rand(10000));