sub tSupport
  {   
    my $str = ""; 
    SWITCH:
    {
      if ($Request->item("View")->item() eq "HowTo"){ $str .= mHowTo(); last SWITCH; }
      if ($Request->item("View")->item() eq "Tutorials"){ $str .= mTutorials(); last SWITCH; }
      if ($Request->item("View")->item() eq "Tempotutorials"){ $str .= mtempotutorials(); last SWITCH; }
      if ($Request->item("View")->item() eq "TManuals") {$str.=mTManuals(); last SWITCH;}
      if ($Request->item("View")->item() eq "PCMaint"){ $str .= mPCMaint(); last SWITCH; }
      if ($Request->item("View")->item() eq "Manuals"){ $str .= mManuals(); last SWITCH; }
      if ($Request->item("View")->item() eq "FAQ"){ $str .= mFAQ(); last SWITCH; }
      $str .= mSearch();
    }
    return $str;   
  }