our @EXPORT_OK = qw(
  &OpenConnection
  &OpenSession
  &ProcessLoginRequest
  &ProcessLostDataRequest
  &LoginUser
  &GetLoggedOnId  <<<<-------------------


##</code><code>##


#-------------------------------------------------------------------------------
#  Database Conection Functions
#-------------------------------------------------------------------------------
# FUNCTION:  OpenConnection()
# DESCRIPTION: Connect to the MySQL database
#-------------------------------------------------------------------------------
sub OpenConnection
{
    my $localtimenow = localtime(Now());
    $dbh = DBI->connect($dsn,$sql_username,$sql_password)
		or ErrorMessage("Could not connect to the database.");

    warn("Open Connection-JustBefore returning database handle: '$dbh' Current Time: '$localtimenow'");
   return $dbh;
}


#-------------------------------------------------------------------------------
# FUNCTION:  CloseConnection
# DESCRIPTION: Disconnect from the MySQL database
#-------------------------------------------------------------------------------
sub CloseConnection
{
    my $localdbh = @_;
    my $localtimenow = localtime(Now());
    if ($localdbh){
  	  $localdbh->disconnect();
	}
    elsif ($dbh) {
  	  $dbh->disconnect();
	}
        warn("Close Connection -just before exit  Current Time: '$localtimenow'");
#	exit(0);
}