Отбор по классам

% my $serial=0; % foreach my $local_class (sort {$a->class_name cmp $b->class_name} @{ $user->get_available_classes }) { % $serial++; % my $document = new $local_class ($keeper); % next unless (ref($document)); % if ($local_class eq $class) { \ % } else { \ % } \ \ \ % }

N	Название
<% $serial %>	<% $document->class_name() %>	С учетом/Без учета секции

<%ONCE> use locale; <%ARGS> $section => undef $class => undef <%INIT> # return undef if (! ref($section)); my $id=ref($section) ? $section->id() : '';