[Cpan-forum-commit] rev 242 - in trunk: . lib/CPAN/Forum/DB

[svn at pti.co.il]

Author: gabor
Date: 2007-07-04 10:41:22 +0300 (Wed, 04 Jul 2007)
New Revision: 242

Modified:
   trunk/
   trunk/lib/CPAN/Forum/DB/Tags.pm
Log:
show the number of people with the specific tag on the module



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4101
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752
   + 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4110
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752

Modified: trunk/lib/CPAN/Forum/DB/Tags.pm
===================================================================
--- trunk/lib/CPAN/Forum/DB/Tags.pm	2007-07-03 21:04:08 UTC (rev 241)
+++ trunk/lib/CPAN/Forum/DB/Tags.pm	2007-07-04 07:41:22 UTC (rev 242)
@@ -118,9 +118,10 @@
 sub get_modules_with_tag {
     my ($self, $tag_name) = @_;
 
-    my $sql = "SELECT groups.name
+    my $sql = "SELECT groups.name, COUNT(*) cnt
                FROM groups, tags, tag_cloud
-               WHERE groups.id=tag_cloud.group_id AND tag_cloud.tag_id=tags.id AND tags.name=?";
+               WHERE groups.id=tag_cloud.group_id AND tag_cloud.tag_id=tags.id AND tags.name=?
+               GROUP BY groups.name";
     my $dbh = CPAN::Forum::DBI::db_Main();
     my $sth = $dbh->prepare($sql);
     $sth->execute($tag_name);