[Cpan-forum-commit] rev 209 - in trunk: lib/CPAN/Forum/DB lib/CPAN/Forum/RM templates

[svn at pti.co.il]

Author: gabor
Date: 2006-08-30 12:24:55 +0300 (Wed, 30 Aug 2006)
New Revision: 209

Modified:
   trunk/lib/CPAN/Forum/DB/Posts.pm
   trunk/lib/CPAN/Forum/RM/Other.pm
   trunk/templates/stats.tmpl
Log:
Add top 10 most active users to stat page


Modified: trunk/lib/CPAN/Forum/DB/Posts.pm
===================================================================
--- trunk/lib/CPAN/Forum/DB/Posts.pm	2006-08-30 08:58:57 UTC (rev 208)
+++ trunk/lib/CPAN/Forum/DB/Posts.pm	2006-08-30 09:24:55 UTC (rev 209)
@@ -24,15 +24,24 @@
                             FROM groups, authors
                             WHERE groups.pauseid=authors.id and authors.pauseid=?)
                         ORDER BY date DESC});
-__PACKAGE__->set_sql(stat_posts => qq{
+__PACKAGE__->set_sql(stat_posts_by_group => qq{
             SELECT COUNT(*) cnt, groups.name gname
             FROM posts,groups 
             WHERE posts.gid=groups.id
             GROUP BY gname
             ORDER BY cnt DESC
-            LIMIT ? 
+            LIMIT ?
             });
 
+__PACKAGE__->set_sql(stat_posts_by_user => qq{
+            SELECT COUNT(*) cnt, users.username username 
+            FROM posts,users
+            WHERE posts.uid=users.id
+            GROUP BY username
+            ORDER BY cnt DESC
+            LIMIT ?
+            });
+
 sub retrieve_latest { 
     my ($class, $count) = @_;
     

Modified: trunk/lib/CPAN/Forum/RM/Other.pm
===================================================================
--- trunk/lib/CPAN/Forum/RM/Other.pm	2006-08-30 08:58:57 UTC (rev 208)
+++ trunk/lib/CPAN/Forum/RM/Other.pm	2006-08-30 09:24:55 UTC (rev 209)
@@ -38,9 +38,11 @@
 sub stats {
     my $self = shift;
     my $t = $self->load_tmpl("stats.tmpl");
-    my @entries = CPAN::Forum::DB::Posts->search_stat_posts(50);
+    my @groups = CPAN::Forum::DB::Posts->search_stat_posts_by_group(50);
+    my @users  = CPAN::Forum::DB::Posts->search_stat_posts_by_user(10);
     
-    $t->param(entries => \@entries);
+    $t->param(groups => \@groups);
+    $t->param(users  => \@users);
     $t->output;
 }
 

Modified: trunk/templates/stats.tmpl
===================================================================
--- trunk/templates/stats.tmpl	2006-08-30 08:58:57 UTC (rev 208)
+++ trunk/templates/stats.tmpl	2006-08-30 09:24:55 UTC (rev 209)
@@ -7,10 +7,20 @@
 <div class="about_list">
 <p class="about_title">Top 50 modules (number of posts)</p>
 <table>
-<TMPL_LOOP entries>
+<TMPL_LOOP groups>
   <tr><td><a href="/dist/<TMPL_VAR gname>"><TMPL_VAR gname></a></td><td><TMPL_VAR cnt></td></tr>
 </TMPL_LOOP>
 </table>
 </div>
+
+<div class="about_list">
+<p class="about_title">10 most active users (number of posts)</p>
+<table>
+<TMPL_LOOP users>
+  <tr><td><a href="/users/<TMPL_VAR username>"><TMPL_VAR username></a></td><td><TMPL_VAR cnt></td></tr>
+</TMPL_LOOP>
+</table>
+</div>
+
 <TMPL_INCLUDE NAME="footer.tmpl">