<%
my $schalter;
my $menu;
my $out;
foreach (@{$SE{redsys}}) {
my @menu_value = split(/\t/, $_);
if ($schalter) {
if ($menu_value[4] < 3) { last }
if ($menu_value[4] == 3 && $menu_value[3] =~ /V|L|K/) {
my $ziel = qq(href="index.shtml?$menu_value[0]");
$ziel = qq(href="$menu_value[5]") if $menu_value[3] eq "L" && $menu_value[5];
$ziel = qq(href="$menu_value[5]" target="$menu_value[12]" ) if $menu_value[3] eq "L" && $menu_value[5] && $menu_value[12];
$menu .= qq(
);
}
}
if ($menu_value[0] eq $MENU{id}) { $schalter=1 }
}
my $sid = $MENU{id};
$sid =~ s/^[a-z]+_//;
my $subpos;
if ($sid eq "veranstaltungen") {
$subpos = qq(right: 0px; text-align: right;);
} else {
$subpos = qq(left: 1px; text-align: left;);
}
my $menu1 = qq( onMouseOver="MenuObenShow('$MENU{id}');" onMouseOut="MenuObenHide('$MENU{id}');");
my $menu2 = qq(
) if ($menu ne "");
my $divider;
if ($TEMP{topmenu_divider} eq "") {
$TEMP{topmenu_divider} = 1;
} else {
$divider = qq( class="topmenu_divider");
}
$href = qq( );
$out = qq(
|
);
return $out;
%>