my $dbh = manageusers::OpenConnection();
warn("update_tables.cgi after open connection");
# Dispatch to proper action based on user selection
my $count = 0;
my $query = new CGI;
my $cgiURL = CGI::url();
my $action = lc ($query->param('action'));
my $userid_1 = 0;
###############################################################
            
$userid_1 = $manageusers::LoggedOn_user_id; <-------------------------