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

[svn at pti.co.il]

Author: gabor
Date: 2007-07-19 17:04:41 +0300 (Thu, 19 Jul 2007)
New Revision: 255

Modified:
   trunk/
   trunk/lib/CPAN/Forum/DB/Tags.pm
   trunk/lib/CPAN/Forum/RM/Dist.pm
   trunk/templates/groups.tmpl
Log:
show tags of others on the per module page along with the frequency of that tag



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4221
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752
   + 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4222
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-19 14:04:25 UTC (rev 254)
+++ trunk/lib/CPAN/Forum/DB/Tags.pm	2007-07-19 14:04:41 UTC (rev 255)
@@ -39,15 +39,18 @@
 
 sub get_tags_of_module {
     my ($self, $group_id) = @_;
-    my $dbh = CPAN::Forum::DBI::db_Main();
-    my $sql = "SELECT tags.name name 
+    #my $dbh = CPAN::Forum::DBI::db_Main();
+    my $sql = "SELECT tags.name name, COUNT(tags.name) cnt 
                              FROM tag_cloud, tags
-                             WHERE tag_cloud.tag_id=tags.id AND tag_cloud.group_id=?";
-    my $sth = $dbh->prepare($sql);
-    $sth->execute($group_id);
-    my $ar = $sth->fetchall_arrayref;
-    my @names = map { {name => $_->[0]} } @$ar;
-    return \@names;
+                             WHERE tag_cloud.tag_id=tags.id AND tag_cloud.group_id=?
+                             GROUP BY name";
+    return $self->_fetch_arrayref_of_hashes($sql, $group_id);
+
+    #my $sth = $dbh->prepare($sql);
+    #$sth->execute($group_id);
+    #my $ar = $sth->fetchall_arrayref;
+    #my @names = map { {name => $_->[0]} } @$ar;
+    #return \@names;
 }
 
 sub attach_tag {

Modified: trunk/lib/CPAN/Forum/RM/Dist.pm
===================================================================
--- trunk/lib/CPAN/Forum/RM/Dist.pm	2007-07-19 14:04:25 UTC (rev 254)
+++ trunk/lib/CPAN/Forum/RM/Dist.pm	2007-07-19 14:04:41 UTC (rev 255)
@@ -7,6 +7,8 @@
 List last few posts belonging to this group, provides a link to post a new 
 message within this group
 
+/dist/XYZ
+
 =cut
 
 sub dist {
@@ -63,10 +65,14 @@
         $t->param(pauseid_name => $gr->pauseid->pauseid);
     }
 
+    my $frequent_tags = CPAN::Forum::DB::Tags->get_tags_of_module($gid);
+    $t->param(frequent_tags      => $frequent_tags);
+
+
     my $uid = $self->session->param('uid');
     if ($uid) {
-        my $tags = CPAN::Forum::DB::Tags->get_tags_of($gid, $uid);
-        $t->param(tags      => $tags);
+        my $mytags = CPAN::Forum::DB::Tags->get_tags_of($gid, $uid);
+        $t->param(mytags      => $mytags);
         $t->param(show_tags => 1);
     }
     $t->param(group_id => $gid);

Modified: trunk/templates/groups.tmpl
===================================================================
--- trunk/templates/groups.tmpl	2007-07-19 14:04:25 UTC (rev 254)
+++ trunk/templates/groups.tmpl	2007-07-19 14:04:41 UTC (rev 255)
@@ -11,16 +11,25 @@
 All the posts related to modules of <a href="/author/<TMPL_VAR pauseid_name>"><TMPL_VAR pauseid_name></a>.
 </p>
 
+<p>
+<TMPL_IF frequent_tags>
+Current tags: <TMPL_LOOP frequent_tags><a href="/tags/name/<TMPL_VAR name>"><TMPL_VAR name></a>(<TMPL_VAR cnt>)<TMPL_UNLESS __last__>, </TMPL_UNLESS></TMPL_LOOP>
+<br />
+</TMPL_IF>
+</p>
+
 <TMPL_IF show_tags>
 <p>
-<TMPL_IF tags>
-My Tags: <TMPL_LOOP tags><a href="/tags/name/<TMPL_VAR name>"><TMPL_VAR name></a><TMPL_UNLESS __last__>, </TMPL_UNLESS></TMPL_LOOP>
-</TMPL_IF><br />
+
+<TMPL_IF mytags>
+My Tags: <TMPL_LOOP mytags><a href="/tags/name/<TMPL_VAR name>"><TMPL_VAR name></a><TMPL_UNLESS __last__>, </TMPL_UNLESS></TMPL_LOOP>
+<br />
+</TMPL_IF>
 <form method="post" action="/update/">
 <input type="hidden" name="what" value="tags" />
 <input type="hidden" name="group_id" value="<TMPL_VAR group_id>" />
-<input name="new_tags" value="<TMPL_LOOP tags><TMPL_VAR name><TMPL_UNLESS __last__>,</TMPL_UNLESS> </TMPL_LOOP>" />
-<input type="submit" value="Update tags" />
+<input name="new_tags" value="<TMPL_LOOP mytags><TMPL_VAR name><TMPL_UNLESS __last__>,</TMPL_UNLESS> </TMPL_LOOP>" />
+<input type="submit" value="Update my tags" />
 </form>
 </p>
 </TMPL_IF>