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 Courses
0
; ^; #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 Articles
0
Walkthroughs for common tasks using MLXchange
0
Tutorials and Demos showing you how to use MLXchange
0
^ if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /mlxhelp/i ); $xml .= qq^ Some Helpful tips for maintaining your PC
0
^; $xml .=qq^ Tempo Tutorials
0
Tempo UserGuide
0
^ if ($Request->ServerVariables("SERVER_NAME")->item()=~/tempohelp/i); $xml .= qq^ Documentation of MLXchange Software
0
Answers to the Most Common Questions
0
^ 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; }