<%
my $schalter;
my $menu;
my $out;
my $layer = 2;
my $c = -1;
my $seite_id = $MENU{orig_id} || $MENU{id};
foreach (@{$SE{redsys}}) {
$c++;
my @menu_value = split(/\t/, $_);
if ($schalter) {
if ($menu_value[4] < 2) { last }
if ($menu_value[3] =~ /V|L|K/) {
for (my $i = $layer; $i >= $menu_value[4]; $i--) {
$menu .= qq(\n);
}
$layer = $menu_value[4];
my $sublayer = $menu_value[4]+1;
my $submenuicon;
if ($SE{redsys}->[$c+1] =~ /.*?\t.*?\t.*?\t[VLK]\t$sublayer\t(.*)/) { $submenuicon = " background-image: url(gfx/p.gif);" }
my $IEBugFix = qq(style="display: none;") if ($submenuicon eq "");
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(
);
$menu =~ s/<\/div><\/div>//;
my $align = "left: -1px; text-align: left;";
$align = "right: 0px; text-align: right;" if ($seite_id =~ /^ak_buergerservice/);
return qq(
 |
);
%>