sub GetUserSessionCookie
{
    warn("Entered GetUserSessionCookie Sessionname: '$sessionname'");	
    my $sid = 0;
    my %cookies;
    my $id=0;
    if ($cookies{'CGISESSID'}) { 
      $id = $cookies{'CGISESSID'}->value;
      $sid = $id;
    }
	
    warn($sid);	  

# 	$sid = 0;  #for testing the rest of program. If I put in valid SID from #cookie recognizes user as logged on. 
	return $sid;
}