sub getLoggedOn_user_id {
  my ($dbh,$query) = @_;
  my $session = CGI::Session->load(
    "driver:MySQL", $query, { Handle => $dbh } 
  );
  return $session->param("user_id");
}
##</code><code>##

$userid_1 = manageusers::getLoggedOn_user_id($dbh,$q);