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'));

## changes ##
# my $userid_1 = 0;
my $session = CGI::Session->load(
    "driver:MySQL", $query, { Handle => $dbh }
);           
my $userid_1 = $session->param("user_id");