rt/html/Elements/Menu

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC
   6 %#                                          <jesse@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  13 %# This work is made available to you under the terms of Version 2 of
  14 %# the GNU General Public License. A copy of that license should have
  15 %# been provided with this software, but in any event can be snarfed
  16 %# from www.gnu.org.
  17 %#
  18 %# This work is distributed in the hope that it will be useful, but
  19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 %# General Public License for more details.
  22 %#
  23 %# You should have received a copy of the GNU General Public License
  24 %# along with this program; if not, write to the Free Software
  25 %# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  26 %#
  27 %#
  28 %# CONTRIBUTION SUBMISSION POLICY:
  29 %#
  30 %# (The following paragraph is not intended to limit the rights granted
  31 %# to you to modify and distribute this software under the terms of
  32 %# the GNU General Public License and is only of importance to you if
  33 %# you choose to contribute your changes and enhancements to the
  34 %# community by submitting them to Best Practical Solutions, LLC.)
  35 %#
  36 %# By intentionally submitting any modifications, corrections or
  37 %# derivatives to this work, or any other work intended for use with
  38 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  39 %# you are the copyright holder for those contributions and you grant
  40 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  41 %# royalty-free, perpetual, license to use, copy, create derivative
  42 %# works based on those contributions, and sublicense and distribute
  43 %# those contributions and any derivatives thereof.
  44 %#
  45 %# END BPS TAGGED BLOCK }}}
  46 %# font size depends on level
  47 % if ($level ge 3) {
  48 %   $size = $basesize-(6);
  49 % } elsif ($level gt 0) {
  50 %   $size = $basesize-($level * 2);
  51 %   $padding = 2;
  52 % }
  53 %  else {
  54 %   $size = $basesize;
  55 %   $padding = 5;
  56 % }
  57 <ul class="topnav" >
  58 % my $sep=0;
  59 % my $accesskey="1";
  60 % foreach $tab (sort keys %{$toptabs}) {
  61 % my $current = $current_toptab || "";
  62 % my $path = $toptabs->{$tab}->{'path'} || "";
  63 % $path =~ s#/index.html$##gi;
  64 % $current =~ s#/index.html$##gi;
  65 % if ( $path eq $current) {
  66 %     $class="currenttopnav"
  67 % } else {
  68 %     $class="topnav"
  69 % }
  70 % my $style="";
  71 % if ($sep) {
  72 % $style="minor";
  73 % } elsif ($level == 0 ) {
  74 % $style="major";
  75 % }
  76 % if ($toptabs->{$tab}->{'separator'}) {
  77 % $sep=1;
  78 % } else {
  79 % $sep=0;
  80 % }
  81 % my $url = $toptabs->{$tab}->{'path'} =~ /^https?:/i ? $toptabs->{$tab}->{'path'} : $RT::WebPath . "/" . $toptabs->{$tab}->{'path'};
  82 <li class="<%$class%>-<%$level%>-<%$style%>"><A HREF="<% $url %>" class="<%$class%>-<%$level%>"
  83 <%($class eq 'currenttopnav') ? "name='focus'" : ""|n %>
  84 <% !$level && "accesskey='".$accesskey++."'" |n%>><% $toptabs->{$tab}->{'title'}%></A>
  85 %# Second-level items
  86 %# if ($current_toptab eq $toptabs->{$tab}->{'path'}) {
  87 %# commented out by jesse on 4 jan 2003 so that tickets/search and ticket/# can
  88 %# both have menu items
  89 % if ($toptabs->{$tab}->{'subtabs'}) {
  90         <& /Elements/Menu, level => $level+1,
  91                 current_toptab => $toptabs->{$tab}->{'current_subtab'},
  92                 toptabs => $toptabs->{$tab}->{'subtabs'} &></li>
  93 % }
  94 %# }
  95 % }
  96 </ul>
  97
  98 <%INIT>
  99 my ($tab, $subtab, $class, $size, $padding);
 100 my $basesize=16;
 101
 102 </%INIT>
 103
 104 <%ARGS>
 105 $current_toptab => ""
 106 $toptabs => undef
 107 $level => 0
 108 </%ARGS>