git.infodrom.org Git - infodrom.org/oldenburg.linux.de/blob - Styles/menu.inc

   1 <define-tag menu whitespace=delete>
   2 <preserve href name current>
   3 <set-var %attributes>
   4
   5 <:
   6 my $dir = "<get-var WML_SRC_DIRNAME>";
   7 my $current = '';
   8 $dir =~ s,.*/src/?,,;
   9
  10 $link = "<get-var href>";
  11 $current = 'id=current' if ($dir eq $link || $dir =~ m,^$link/,);
  12 $link .= '/' if (length($link));
  13 $link = $root_prefix . $link;
  14 :>
  15
  16 #<ifeq <get-var WML_SRC_BASENAME> "<get-var href>"
  17 #  <set-var current="id=current">>
  18
  19 <li><a <:=$current:> href="<:=$link:>"><get-var name></a></li>
  20
  21 <restore href name current>
  22 </define-tag>