3 %# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
5 %# (Except where explictly superceded by other copyright notices)
7 %# This work is made available to you under the terms of Version 2 of
8 %# the GNU General Public License. A copy of that license should have
9 %# been provided with this software, but in any event can be snarfed
12 %# This work is distributed in the hope that it will be useful, but
13 %# WITHOUT ANY WARRANTY; without even the implied warranty of
14 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 %# General Public License for more details.
17 %# Unless otherwise specified, all modifications, corrections or
18 %# extensions to this work which alter its source code become the
19 %# property of Best Practical Solutions, LLC when submitted for
20 %# inclusion in the work.
24 <table class="darkblue" border=0 cellspacing=0 cellpadding=0 width="100%">
25 <th class="titlebox" align="left"><span class="rtname"><%$AppName%></span>
27 <span class="topactions">
28 % foreach my $action (sort keys %{$topactions}) {
29 <td class="darkblueright">
30 <%$topactions->{"$action"}->{'html'} |n %>
35 <table border=0 cellspacing=0 cellpadding=0 width="100%" height="100%">
38 <TD valign="top" width="140" class="blue">
39 <& /Elements/Menu, toptabs => $toptabs, current_toptab => $current_toptab &>
42 <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
44 <td class="blue" valign="top">
45 <span class="title"><%$title%></span>
49 <td class="blueright" valign="top">
53 % foreach my $action (sort keys %{$actions}) {
54 % if ($actions->{"$action"}->{'html'}) {
55 % push @actions, $actions->{"$action"}->{'html'};
57 % push @actions, "<A class='nav' HREF=\"".$RT::WebPath."/".$actions->{$action}->{'path'}."\">".$actions->{$action}->{'title'}."</A>";
60 <% join(" | ", @actions) | n %>
63 % foreach my $action (sort keys %{$subactions}) {
64 % push @actions, $subactions->{"$action"}->{'html'};
66 <% join(" | ", @actions) | n %>
73 <TD valign="top" width="100%" height="100%" class="mainbody" >
77 foreach my $tab (sort keys %{$toptabs}) {
78 if ($toptabs->{$tab}->{'path'} eq $current_toptab) {
79 $toptabs->{$tab}->{"subtabs"} = $tabs;
80 $toptabs->{$tab}->{"current_subtab"} = $current_tab;
84 if (! defined($AppName)) {
85 $AppName = loc("RT for [_1]", $RT::rtname);
90 $current_toptab => undef
97 $title => $m->callers(-1)->path