if ($Request->item("Tab")->item() eq "Help")
      {
	my $content = '<leftIndex>';
	if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /mlxhelp/ )
	 {
		my $toc_file = ( $Session->{'usrType'} eq 'Pro' ) ? 'e:\SupportWeb\Nerfherder\Content\HELP\PRO\TOC.html' : 'e:\SupportWeb\Nerfherder\Content\HELP\STD\TOC.html';
my $user_type = uc $Session->{'usrType'};
$Response->write("Hello the table of content file is $toc_file");
open TOC, $toc_file;
my @toc_lines = <TOC>;
close TOC;
		foreach my $line ( @toc_lines ) { 
			$content .= qq^<rlink tab="Help" script="frames['help_iframe'].location.href='Content/HELP/$user_type/$1'" title="$3">
			</rlink>^ if ( $line =~ /<p class="pTOC1"><a href="(.*?)"\s+target="(.*?)">(.*?)<\/a>/ );
		}
		
		$content .= '</leftIndex>';
		
	}

##</code><code>##

sub tHelp
  {   
    my $str = ""; 
$str .= mLeftIndex();
#
# Are we Pro? Then set directory to PRO
# 
#

if ($Session->{'usrType'} eq 'Pro')
{
my $target='MLXchange 4.0 professional_frame';#MLX%20Pro%204.0%20Help_frame';
#my $startpoint='Content/HELP/PRO/MLX Pro 4.0 Help-01-1.html';
my $startpoint='Content/HELP/PRO/MLX%20Pro%204.0%20Help-01-1.html';

$str.=shadowBox("MLXchange Help", qq^<help_iframe name="$target" startpoint="$startpoint"/>^ , ($g_docWidth/5*4-(2*$g_docSpace)));
$Response->write(" this is the $target, $startpoint");

return $str;
}