% foreach $tab (sort keys %{$toptabs}) { % } [{$tab}->{'path'}) { class='currenttab' % } HREF="<%$RT::WebPath%>/<% $toptabs->{$tab}->{'path'}%>"><% $toptabs->{$tab}->{'title'}%>] % if ($tabs_scalar) { <% $tabs_scalar |n%> % } % if ($tabs) { % foreach $tab (sort keys %{$tabs}) { %} [{$tab}->{'path'}) { class='currenttab' % } HREF="<%$RT::WebPath%>/<% $tabs->{$tab}->{'path'}%>"><% $tabs->{$tab}->{'title'}%>] %} % if ($subtabs_scalar) { <% $subtabs_scalar |n%> % } % if ($subtabs) { % foreach $tab (sort keys %{$subtabs}) { %} [<% $subtabs->{$tab}->{'title'}%>] %}

% foreach $action (sort keys %{$topactions}) { % } <%$topactions->{"$action"}->{'html'} |n %> % if ($actions) { % foreach $action (sort keys %{$actions}) { % } % if ($actions->{"$action"}->{'html'}) { <%$actions->{"$action"}->{'html'} |n%> % } else { <% $actions->{$action}->{'title'}%> % } % } % if ($subactions_scalar) { <% $subactions_scalar |n%> % } % if ($subactions) { |  % foreach $action (sort keys %{$subactions}) { <%$subactions->{"$action"}->{'html'} |n%> | % } % }

<%INIT> my ($tab, $action); my $toptabs = { A => { title => 'Home', path => '', }, B => { title => 'Search', path => 'Search/Listing.html' }, D => { title => 'Configuration', path => 'Admin/' } }; my $topactions = { A => { html => $m->scomp('/Elements/CreateTicket') }, B => { html => $m->scomp('/Elements/GotoTicket') } }; <%ARGS> $current_toptab => "none" $current_tab => "none" $current_subtab => "none" $tabs => undef $tabs_scalar => undef $subtabs => undef $actions => undef $subactions => undef $subtabs_scalar => undef $subactions_scalar => undef