print div({-class=>'taskcolumnleft'},	
	h3("Chair(s) of<br>$name committee"),
	start_form({-action=>"/memberarea/cmt/members/edit/"}),
	hidden(-name=>'requestID',-value=>$requestID),
	$currentchairlist,
	submit(-name=>'submit',-value=>'Remove Chairs'));
	end_form;
print div({-class=>'taskcolumncenter'},
	h3("Current Members of<br>$name committee"),
	start_form({-action=>"/memberarea/cmt/members/edit/"}),
	hidden(-name=>'requestID',-value=>$requestID),
	scrolling_list(-name=>"currmembers", -value=>$mbrArray, -size=>20, labels=>$mbrHash, -multiple=>"true"),
	p(
	[
		submit(-name=>'submit',-value=>'<<= Assign as Committee Chair'),
		submit(-name=>'submit',-value=>'Remove Members =>>')
	]),
	end_form);
}
print div({-class=>'taskcolumnright'},
	h3("Members<br>(not on this committee)"),
	start_form({-action=>"/memberarea/cmt/members/edit/"}),
	hidden(-name=>'requestID',-value=>$requestID),
	scrolling_list(-name=>"addmember", -value=>$nocIDArray, -size=>20, labels=>$nocNameHash, -multiple=>"true"),
	p(submit(-name=>'submit',-value=>'<<= Add Members')),
	end_form);

##</code><code>##

sub add_members {
	foreach (@addmembers)
	{
		my $sql = "INSERT INTO cmt_members (CmtID, MemberID)";
		$sql .= "VALUES ($requestID, $_)";
		my $sth = $dbh->prepare($sql) ||
		die "Error preparing: $DBI::errstr";
		$sth->execute ||
		die "Error executing: $DBI::errstr";
	}
}

sub remove_members {
	print p("we're in the remove members function");
	foreach (@currmembers)
	{
		print p($_);
		my $sql = "DELETE FROM cmt_members WHERE MemberID = $_ and CmtID = $requestID";
		print p($sql);
		$sth = $dbh->prepare($sql) ||
			die "Error preparing: $DBI::errstr";
		$sth->execute ||
			die "Error executing: $DBI::errstr";
		$requestID = $requestID;
	}
}