<% $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 $section => undef <%INIT> my $INVITE = { 'documents' => ['Новый документ','document.html'], 'sections' => ['Новая секция','section.html'], 'links' => ['Новая связь','link.html'], 'users' => ['Новый пользователь','users.html'], }; my $btn_id = int(rand(10000)); my @class; if ( $proto eq 'documents' ) { @class = @{ $user->get_available_classes }; if ( ref $section ) { if ( $section->default_table_class ) { @class = grep { $_->new( $keeper )->class_table eq $section->default_table_class } @class; } elsif ( $section->default_document_class ) { @class = grep { $_ eq $section->default_document_class } @class; ($default) = grep { $_ eq $section->default_document_class } @class unless $default; } } } else { @class = @{ $state->{'available_'.$proto} }; } my $classes = scalar @class > 1 ? [ '' => '--- Выберите тип ---' ] : []; foreach my $class ( sort { $a->class_name cmp $b->class_name } @class ) { my $object = $class->new($keeper); push @$classes, $class, "".$object->class_name()." ($class)"; }