Select Code to Download

$User = $Request->item("Login")->item();
$Site = $Request->item("Site")->item();
...
my @baseurl=$baseurl;
tHelp(@baseurl,@startpoint);

sub tHelp
  {
...
}

if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /tempohelp/ )
+ {
        my $toc_file = ( $Session->{'usrType'} eq 'Pro' ) ? 'e:\Suppor
+tWeb\Content\HELP\PRO\TOC.html' : 'e:\SupportWeb\Content\help\tpo\def
+ault\TOC.html';
...
        }
        $content .= '</leftIndex>';    
    }