diff --git a/docs/upgrades/upgrade_4.7.0-4.8.0.sql b/docs/upgrades/upgrade_4.7.0-4.8.0.sql
index af0c07007..addcf827a 100644
--- a/docs/upgrades/upgrade_4.7.0-4.8.0.sql
+++ b/docs/upgrades/upgrade_4.7.0-4.8.0.sql
@@ -1,5 +1,6 @@
insert into webguiVersion values ('4.8.0','upgrade',unix_timestamp());
update incrementer set nextValue=100000 where incrementerId='messageId';
+insert into international (internationalId,languageId,namespace,message,lastUpdated) values (748,1,'WebGUI','User Count', 1036553016);
diff --git a/lib/WebGUI/Operation/Group.pm b/lib/WebGUI/Operation/Group.pm
index 6d7b4ecad..e319afd78 100644
--- a/lib/WebGUI/Operation/Group.pm
+++ b/lib/WebGUI/Operation/Group.pm
@@ -136,12 +136,11 @@ sub www_editGroupSave {
#-------------------------------------------------------------------
sub www_listGroups {
- my ($output, $p, $sth, @data, @row, $i);
+ my ($output, $p, $sth, @data, @row, $i, $userCount);
if (WebGUI::Privilege::isInGroup(3)) {
$output = helpIcon(10);
$output .= '
'.WebGUI::International::get(89).'
';
$output .= '';
- $output .= '';
$sth = WebGUI::SQL->read("select groupId,groupName,description from groups
where groupId<>1 and groupId<>2 and groupId<>7 order by groupName");
while (@data = $sth->array) {
@@ -150,12 +149,18 @@ sub www_listGroups {
.editIcon('op=editGroup&gid='.$data[0])
.'';
$row[$i] .= '| '.$data[1].' | ';
- $row[$i] .= ''.$data[2].' | ';
+ $row[$i] .= ''.$data[2].' | ';
+ ($userCount) = WebGUI::SQL->quickArray("select count(*) from groupings where groupId=$data[0]");
+ $row[$i] .= ''.$userCount.' | ';
+ $row[$i] .= '';
$i++;
}
$sth->finish;
$p = WebGUI::Paginator->new(WebGUI::URL::page('op=listGroups'),\@row);
$output .= '';
+ $output .= ' |
';
$output .= $p->getPage($session{form}{pn});
$output .= '
';
$output .= $p->getBarTraditional($session{form}{pn});