print <<EOTableHeaders;
<table border="1" cellpadding="3" cellspacing="4">
    <tr>
        <td class="list"><b class="list">Group Name</b></td>
        <td class="list"><b class="list">Group Members</b></td>
        <td class="list"><b class="list">Edit Mail Group</b></td>
    </tr>
EOTableHeaders

for (my $i = 0, my $j = 0; $i < (scalar(@{$all_groups}) - 1); $i++, $j++) {

	print "<tr";
	if ($j % 2 == 0) {
		print qq|bgcolor="#AAAACC"|;
	}
	print ">\n";

	print qq|<td valign="top"><span class="list">| . $all_groups->[$i][1] |</span></td>\n|;
        print qq|<td valign="top"><span class="list">|;

        while ((defined($all_groups->[($i + 1)][0])) && ($all_groups->[$i][0] == $all_groups->[($i + 1)][0])) {
		print $all_groups->[$i][2] . "<br>";
		$i++;
	}
	print $all_groups->[$i][2];

	print "</td>\n";
	print qq|<td><a href="edit_group.html?group_id=| . $all_groups->[$i][0] . |&&group_name=| . Apache::Util::escape_uri($all_groups->[$i][1]) |>Edit this Email Group</a></td>\n|;
	print "</tr>";
}
    </tr>
</table>