sub tHelp
  {   
 my $str = ""; 
 my $startpoint=$nightmare=@_;
# Are We Tempo? 


if ($Session->{'usrType'} eq 'Std')
   {
	if ($Request->ServerVariables("SERVER_NAME")->item()=~/tempohelp/i)
	  {
	   
	   my $target='Tempo%20help_frame';
	   $str .= shadowBox("Tempo Help", qq^<help_iframe name="$target" startpoint="$startpoint"/>^ , ($g_docWidth/5*4-(2*$g_docSpace)));
	   return $str;
	}
}
}