sub mLeftIndex
  {
    my $str = "";
    my $logoutLink = "<link tab=\"\" view=\"Logout\" title=\"Logout\"/>";
  	my $content = '<leftIndex>';
	if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /mlxhelp/ ) {
		my $toc_file = ( $Session->{'usrType'} eq 'Pro' ) ? 'e:\SupportWeb\Content\HELP\PRO\TOC.html' : 'e:\SupportWeb\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_iframe'].location.href='Content/HELP/$user_type/$1'" title="$3">
					</rlink>^ if ( $line =~ /<p class="pTOC1"><a href="(.*?)"\s+target="(.*?)">(.*?)<\/a>/ );
		}
		$content .= '</leftIndex>';
		
	}
if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /tempohelp/ ) {
		my $toc_file = ( $Session->{'usrType'} eq 'Pro' ) ? 'e:\SupportWeb\Content\HELP\PRO\TOC.html' : 'e:\SupportWeb\Content\help\tpo\default\TOC.html';
my $user_type = uc $Session->{'usrType'};
if ($user_type='STD')
{$user_type='TPO\/default\/'}
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="pTOC\d"><a href="(.*?)"\s+target="(.*?)">(.*?)<\/a>/ );
		}
		$content .= '</leftIndex>';
		
	}