$User = $Request->item("Login")->item();
$Site = $Request->item("Site")->item();
$topic= $Request->item("Topic")->item();
my $Referer = $Request->ServerVariables("HTTP_REFERER")->item();
$Request->ServerVariables("QUERY_STRING")->item();
use CGI;
use OLE;
use CGI::Simple;
$query= new CGI;

	
%ttopics = (
   home            => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics-01-1.html',
   listingmgr      => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics-06-1.html',
   cma             => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics-11-1.html',
   hotsheetmgr     => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics-10-1.html',
   clientmgr       => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics-05-1.html',
   tempofinancials => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics-14-1.html',
   tools           => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics-18-1.html',
   rep             => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics-12-01.html',
   taxmgr          => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics-13-1.html',
   TempoMemberInfo => 'Content/HELP/TPO\/default\//Tempo_help-01-1.html',
   email           => 'Content/HELP/TPO\/default\//Tempo_help-01-1.html',
);


if (!defined($topic)) {
my $startpoint='Content/HELP/TPO/default/Tempo_help-08-1.html';
}
my $baseurl='http://www.tempohelp.com/index.asp?tab=Help&View=#';
$nightmare = $ttopics{$topic};
my @topicvalues=$nightmare;
my @baseurl=$baseurl;
tHelp(@baseurl,@startpoint);


##</code><code>##

sub tHelp
  {
$baseurl=shift(@baseurl); 
$startpoint=shift(@topicvalues);
$Response->write("$baseurl"."$startpoint");
# This returns values for baseurl and startpoint so far so #good
then deeper in my sub when I go to use startpoint it does not work why?
if ($Session->{'usrType'} eq 'Std')
   {
	if ($Request->ServerVariables("SERVER_NAME")->item()=~/tempohelp/i)
{
 #my startpoint='Content/HELP/TPO/default/Tempo_help-08-1.html';
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;
	}
}

  

##</code><code>##

if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /tempohelp/ ) {
		my $toc_file = ( $Session->{'usrType'} eq 'Pro' ) ? 'e:\SupportWeb\Content\HELP\PRO\TOC.html' : 'e:\SupportWeb\Content\help\tpo\default\TOC.html';
my $user_type = uc $Session->{'usrType'};
if ($user_type='STD')
{$user_type='TPO/default/'}
$startpoint=shift(@topicvalues);
open TOC, $toc_file;
my @toc_lines = <TOC>;
close TOC;
        
		foreach my $line ( @toc_lines ) { 
			$content .= qq^<rlink tab="Help" script="frames['help_iframe'].location.href='Content/HELP/$user_type/$1'" title="$3">
						</rlink>^ if ( $line =~ /<p class="pTOC\d"><a href="(.*?)"\s+target="(.*?)">(.*?)<\/a>/ );
					
		}
		$content .= '</leftIndex>';	
	}