"; my $parentlink = str_primaryattachpoint(); my $linkslist = str_links($parentlink, '$path,$name,$itemid:', 1, 'order', 'sortnumeric'); my @topvariables = split(/:/, $linkslist); my $count = @topvariables; my $int = '0'; while ($int < $count) { foreach my $topvariables (@topvariables) { (my $link, my $title, my $id) = split(/,/, $topvariables); $topvariables[$int] = ([$link, $title, $id]); $int++; } } my $parentslink = str_previousbranch(); my $int2 = '0'; print "

\n"; foreach (@topvariables) { #print $topvariables[$int2][2]. "
"; #print $item{itemid} . "
"; if ($topvariables[$int2][2]=~$item{itemid}) { print "
• $topvariables[$int2][1]\n"; print "
  \n"; print str_links($topvariables[$int2][0], '
  • $name
  \n', 1, 'order', 'sortnumeric'); print "
\n"; } else { print "
• $topvariables[$int2][1]
\n"; print "
\n"; print str_links($topvariables[$int2][0], '
• $name
\n', 1, 'order', 'sortnumeric'); print "
\n"; } $int2++; } print "

\n"; }