Hi, I am trying to exclude pages showing up from the navigation which is using the code below: 
<server language="perl">

print "<div id=\"maincontent\">";
#<!-- LEFT -->
print"<div id=\"left\">";

if ($item{itemtypeid} =~ '2572100') {

print qq(<span class="sectionBack">&#60; <a href="/">Home</a></span>);

print "<ul class=\"sectionNav\">\n";
print str_links(undef, '<li><a href=$url>$name</a></li>\n', 1, 'order'
+, 'sortnumeric');
print "</ul>\n";

}

else {

my $sectionurl = "/" . substr(str_primaryattachpoint(), 1, index(str_p
+rimaryattachpoint(), '/', 1));
my $sectionurl2 = str_primaryattachpoint();
my $sectionurl3 = str_primaryattachpoint($sectionurl2);

my %section = getitem($sectionurl3, 0);


print "<div id=\"leftnav\">";

my $parentlink = str_primaryattachpoint();

my $linkslist = str_links($parentlink, '$path,$name,$itemid:', 1, 'ord
+er', '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 "<ul class=\"sectionNav\">\n";

foreach (@topvariables) {

#print $topvariables[$int2][2]. "<br>";
#print $item{itemid} . "<br>";

if ($topvariables[$int2][2]=~$item{itemid}) {

print "<li><a class=\"currentpage\" href=\"$topvariables[$int2][0]\">$
+topvariables[$int2][1]</a>\n";
print "<ul class=\"submenu\">\n";
print str_links($topvariables[$int2][0], '<li class=\"nav2\"><a href=\
+"$path\" class=\"submenu\">$name</a></li>\n', 1, 'order', 'sortnumeri
+c');
print "</ul></li>\n";

}

else {

print "<li><a href=$topvariables[$int2][0]>$topvariables[$int2][1]</a>
+</li>\n";
print "<ul style='display:none;'>\n";
print str_links($topvariables[$int2][0], '<li class=\"nav2\"><a href=$
+url>$name</a></li>\n', 1, 'order', 'sortnumeric');
print "</ul></li>\n";

}
$int2++;

}


print "</ul>\n";

}

</server>

[download]
Could anyone please help me how to do this? Many thanks!

In reply to Excluding pages from the navigation by webteam

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.