Groups list by members

2 files changed, 80 insertions, 0 deletions

diff --git a/actions/groups.php b/actions/groups.php
index 206065d26..6faa497fc 100644
--- a/actions/groups.php
+++ b/actions/groups.php
@@ -119,5 +119,7 @@ class GroupsAction extends Action
     {
         $gbp = new GroupsByPostsSection($this);
         $gbp->show();
+        $gbm = new GroupsByMembersSection($this);
+        $gbm->show();
     }
 }
diff --git a/lib/groupsbymemberssection.php b/lib/groupsbymemberssection.php
new file mode 100644
index 000000000..4fa07a244
--- /dev/null
+++ b/lib/groupsbymemberssection.php
@@ -0,0 +1,78 @@
+<?php
+/**
+ * Laconica, the distributed open-source microblogging tool
+ *
+ * Groups with the most members section
+ *
+ * PHP version 5
+ *
+ * LICENCE: This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * @category  Widget
+ * @package   Laconica
+ * @author    Evan Prodromou <evan@controlyourself.ca>
+ * @copyright 2009 Control Yourself, Inc.
+ * @license   http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0
+ * @link      http://laconi.ca/
+ */
+
+if (!defined('LACONICA')) {
+    exit(1);
+}
+
+/**
+ * Groups with the most members section
+ *
+ * @category Widget
+ * @package  Laconica
+ * @author   Evan Prodromou <evan@controlyourself.ca>
+ * @license  http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0
+ * @link     http://laconi.ca/
+ */
+
+class GroupsByMembersSection extends GroupSection
+{
+    function getGroups()
+    {
+        $qry = 'SELECT user_group.*, count(*) as value ' .
+          'FROM user_group JOIN group_member '.
+          'ON user_group.id = group_member.group_id ' .
+          'GROUP BY user_group.id ' .
+          'ORDER BY value DESC ';
+
+        $limit = GROUPS_PER_SECTION;
+        $offset = 0;
+
+        if (common_config('db','type') == 'pgsql') {
+            $qry .= ' LIMIT ' . $limit . ' OFFSET ' . $offset;
+        } else {
+            $qry .= ' LIMIT ' . $offset . ', ' . $limit;
+        }
+
+        $group = Memcached_DataObject::cachedQuery('User_group',
+                                                   $qry,
+                                                   3600);
+        return $group;
+    }
+
+    function title()
+    {
+        return _('Groups with most members');
+    }
+
+    function divId()
+    {
+        return 'top_groups_by_member';
+    }
+}