|
% 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() %>)
|