Thank you so much, I have placed a <code> tag in there. Basically the script below is used in MediaSurface content management system.

<server language="perl">

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

<code>

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++;

}

<code>

print "</ul>\n";

}

</server>
[download]

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.