sub insert_housing {
  my $self = shift;
  my $dbh = shift;
  my $reg_id = shift;
  my $hsg_values = shift;
  my($sql,$sth);

  ###l4p my $logger = 
     Log::Log4perl->get_logger('RegForm.insert_housing');
  ###l4p $logger->info("\$hsg_values is @$hsg_values.");
  my $hsg_fields = "reg_id, nights, parking, room_size, 
     roommate, gender";

  $sql = "INSERT INTO housing ($hsg_fields) 
          VALUES(?,?,?,?,?,?);";
  $sth = $dbh->prepare($sql);
  $sth->execute($reg_id,@$hsg_values);
  ###l4p $logger->info("RegID $reg_id: Just inserted data 
     into housing table.");
  return 1;
}