Here is my problem, I need to get this site to display the help in the left margin, O wise ones what is wrong with my code currently nothing is displayed in left margin under the help tab, where am I going wrong? 
sub mLeftIndex
       if ($Request->item("Tab")->item() eq "Help")
      {
    my $content = '<leftIndex>';
    if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /mlxhelp/
+ ) {
        my $toc_file = ( $Session->{'usrType'} eq 'Pro' ) ? 'c:\Suppor
+tWeb\NerfHerder\Content\HELP\PRO\TOC.html' : 'c:\SupportWeb\NerfHerde
+r\Content\HELP\STD\TOC.html';
my $user_type = uc $Session->{'usrType'};

open TOC, $toc_file;
my @toc_lines = <TOC>;
close TOC;
        foreach my $line ( @toc_lines ) { 
            $content .= qq^<rlink tab="Help" script="frames['help_ifra
+me'].location.href='Content/HELP/$user_type/$1'" title="$3">
                    </rlink>^ if ( $line =~ /<p class="pTOC1"><a href=
+"(.*?)"\s+target="(.*?)">(.*?)<\/a>/ );
        }
        $content .= '</leftIndex>';
        
    }

and subroutine for help tab is .. 
<code>
sub tHelp
  {   
    my $str = ""; 
$str .= mLeftIndex();
if ($Request->ServerVariables("SERVER_NAME")->item=~/mlxhelp/i)
{
  my $target = ( $Session->{'usrType'} eq 'Pro' ) ? 'MLXchange%203.0%2
+0professional_frame' : 'MLXchange%203.0%20standard_frame';
my $startpoint = ( defined $Session->{'startPoint'} ) ? $Session->{'st
+artPoint'} : ( $Session->{'usrType'} eq 'Pro' ? 'Content/HELP/PRO/Fra
+meset.html' : 'Content/HELP/STD/Frameset.html'  );
$str .= ($Request->ServerVariables("SERVER_NAME")->item() =~ /mlxhelp/
+i) ? shadowBox("MLXChange Help", qq^<help_iframe name="$target" start
+point="$startpoint"/>^ , ($g_docWidth/5*4-(2*$g_docSpace))) : shadowB
+ox("Tempo User", 'hello', ($g_docWidth/5*4-(2*$g_docSpace)));
    return $str;
    }
    else
    {
       my $target = ( $Session->{'usrType'} eq 'Pro' ) ? 'Tempo_help_f
+rame' : 'Tempo_help_frame';
my $startpoint = ( defined $Session->{'startPoint'} ) ? $Session->{'st
+artPoint'} : ( $Session->{'usrType'} eq 'Pro' ? 'Content/HELP/TPO/def
+ault/Tempo_help-08-1.html' : 'Content/HELP/TPO/default/Tempo_help-08-
+1.html'  );
$str .= ($Request->ServerVariables("SERVER_NAME")->item() =~ /tempohel
+p/i) ? shadowBox("Tempo Help", qq^<help_iframe name="Tempo_help_frame
+" startpoint="$startpoint"/>^ , ($g_docWidth/5*4-(2*$g_docSpace))) : 
+shadowBox("Tempo User", 'hello', ($g_docWidth/5*4-(2*$g_docSpace)));
 return $str;
 }   
  }

[download]

In reply to need help file to display by grashoper

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.