<& "/contenido/components/title.msn", %ARGS &>
Редакторский интерфейс\ % if( $style ne 'index' ) { :  На главную % } <% $pn_name %> <% uc($pn_domen) %>
% my @TABS = (); % my @plugins = ($state->project, split(/\s+/, $state->plugins)); % my %plugins = map { lc($_) => 1 } @plugins; % for my $tab_id ( sort { $a cmp $b } keys %{ $toopi } ) { % my ($b1, $b2) = $tab_id eq $profile ? ('', '') : ('', ''); % if ($r->uri() =~ /keywords\.html$/ || ($r->uri =~ /^\/contenido\/(\w+)\//i && exists $plugins{lc($1)} ) ) { % ($b1, $b2) = ('', ''); % } % next if $tab_id eq 'admin' && !$user->check_group(1); % push (@TABS, $b1.''.$toopi->{$tab_id}->{name}.''.$b2); % } <% join(' | ', @TABS) %>\ % for my $plugin ($state->project, split(/\s+/, $state->plugins)) { % my $l_plugin = lc($plugin); % next if $state->{$l_plugin}->{contenido_notab}; % my $uri = "$plugin/"; % my $tab_name; % if (exists $state->{$plugin}{tab_name} && $state->{$plugin}{tab_name}) { % $tab_name = $state->{$plugin}{tab_name}; % } elsif ($plugin eq $state->project) { % $tab_name = $state->project_name; % } else { % $tab_name = $plugin; % } % my ($b1, $b2) = $r->uri =~ /^\/contenido\/(\w+)\//i && lc($1) eq $l_plugin ? ('','') : ('','');  | <% $b1.$tab_name.$b2 %> % } Пользователь: <% $user->name() %> (<% $user->login() %>)
<%args> $style => undef $title => undef <%init> my $pn = $state->project_name(); my ($pn_name, $pn_domen) = split(/\./, $pn); my $toopi = $project->tabs(); my $profile = $m->comp('/contenido/components/context.msn', name => 'profile');