sub mLeftIndex
{
my $str = ""; #Sets content to blank
my $logoutLink = ""; #Generates Logout link#
SWITCH:
{
if (($Request->item("Tab")->item() eq "Support") and ($selected="CTS"))
{
# Inserts leftIndex tag for document #
#$xml = qq^^;
#sets menuitem for left hand side #
$xml.=qq^
Outlines for CTMLS Courses0
;
^;
#closes menuitem and closing leftIndex tag here #
$xml=qq^
^;
#patternmatch stuff for here document..
if (!$Request->item("View")->item() && $xml =~ /(.*?)(.*)/s)
{
$xml = $1.$2;
}
$xml =~ s/(<\/leftIndex>)/$logoutLink$1/s;
$str .= $xml;
}
# other content for support tab #
if ($Request->item("Tab")->item() eq "Support")
{
my $xml =qq^
^;
$xml .= qq^
Search our Help Articles0Walkthroughs for common tasks using MLXchange0Tutorials and Demos showing you how to use MLXchange0
^ if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /mlxhelp/i );
$xml .= qq^
Some Helpful tips for maintaining your PC0
^;
$xml .=qq^
Tempo Tutorials0Tempo UserGuide0
^ if ($Request->ServerVariables("SERVER_NAME")->item()=~/tempohelp/i);
$xml .= qq^
Documentation of MLXchange Software0Answers to the Most Common Questions0
^ if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /mlxhelp/i );
$xml .= qq^
^;
if (!$Request->item("View")->item() && $xml =~ /(.*?)(.*)/s)
{
$xml = $1.$2;
}
$xml =~ s/(<\/leftIndex>)/$logoutLink$1/s;
$str .= $xml;
last SWITCH;
}