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

svn at pti.co.il svn at pti.co.il
Fri Jul 20 17:45:38 EEST 2007


Author: gabor
Date: 2007-07-20 17:45:38 +0300 (Fri, 20 Jul 2007)
New Revision: 274

Modified:
   trunk/
   trunk/lib/CPAN/Forum/RM/Tags.pm
   trunk/templates/tags.tmpl
   trunk/www/style.css
Log:
add tag cloud based on HTML::TagCloud



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

Modified: trunk/lib/CPAN/Forum/RM/Tags.pm
===================================================================
--- trunk/lib/CPAN/Forum/RM/Tags.pm	2007-07-20 14:45:21 UTC (rev 273)
+++ trunk/lib/CPAN/Forum/RM/Tags.pm	2007-07-20 14:45:38 UTC (rev 274)
@@ -7,17 +7,28 @@
 
     my $path = ${$self->param("path_parameters")}[0] || '';
     my $value = ${$self->param("path_parameters")}[1] || '';
+
+    # support tag tcp/ip  but not a/b/c
+    if (${$self->param("path_parameters")}[2]) {
+        $value .= "/" . ${$self->param("path_parameters")}[2];
+    }
+
     $self->log->debug("tags path='$path' value='$value'");
     if ($path eq 'name' and $value) {
         return $self->_list_modules_with_tag($value);
     }
-     
 
     my $t = $self->load_tmpl("tags.tmpl",
         loop_context_vars => 1,
         global_vars => 1,
     );
     my $tags = CPAN::Forum::DB::Tags->get_all_tags();
+
+    # maximize tag size to 24
+    foreach my $t (@$tags) {
+        $t->{total} = 24 if $t->{total} > 24;
+    }
+   
     $t->param(tags => $tags);
     return $t->output; 
 }

Modified: trunk/templates/tags.tmpl
===================================================================
--- trunk/templates/tags.tmpl	2007-07-20 14:45:21 UTC (rev 273)
+++ trunk/templates/tags.tmpl	2007-07-20 14:45:38 UTC (rev 274)
@@ -2,8 +2,10 @@
 <p id="pageTitle"><b>Tags</b></p>
 <TMPL_INCLUDE NAME="navigation.tmpl">
 
+<div id="htmltagcloud">
 <TMPL_LOOP tags>
-<a href="/tags/name/<TMPL_VAR name>"><TMPL_VAR name></a>(<TMPL_VAR total>)<TMPL_UNLESS __last__>, </TMPL_UNLESS>
+<span class="tagcloud<TMPL_VAR total>"><a href="/tags/name/<TMPL_VAR name>"><TMPL_VAR name></a></span><TMPL_UNLESS __last__>, </TMPL_UNLESS>
 </TMPL_LOOP>
+</div>
 
 <TMPL_INCLUDE NAME="footer.tmpl">

Modified: trunk/www/style.css
===================================================================
--- trunk/www/style.css	2007-07-20 14:45:21 UTC (rev 273)
+++ trunk/www/style.css	2007-07-20 14:45:38 UTC (rev 274)
@@ -257,3 +257,62 @@
 }
 
 
+
+/* From HTML::TagCloud (C) Leon Brocard */
+
+#htmltagcloud {
+  text-align:  center; 
+  line-height: 1; 
+}
+
+span.tagcloud0 {font-size: 12px;}
+span.tagcloud0 a {text-decoration: none;}
+span.tagcloud1 {font-size: 13px;}
+span.tagcloud1 a {text-decoration: none;}
+span.tagcloud2 {font-size: 14px;}
+span.tagcloud2 a {text-decoration: none;}
+span.tagcloud3 {font-size: 15px;}
+span.tagcloud3 a {text-decoration: none;}
+span.tagcloud4 {font-size: 16px;}
+span.tagcloud4 a {text-decoration: none;}
+span.tagcloud5 {font-size: 17px;}
+span.tagcloud5 a {text-decoration: none;}
+span.tagcloud6 {font-size: 18px;}
+span.tagcloud6 a {text-decoration: none;}
+span.tagcloud7 {font-size: 19px;}
+span.tagcloud7 a {text-decoration: none;}
+span.tagcloud8 {font-size: 20px;}
+span.tagcloud8 a {text-decoration: none;}
+span.tagcloud9 {font-size: 21px;}
+span.tagcloud9 a {text-decoration: none;}
+span.tagcloud10 {font-size: 22px;}
+span.tagcloud10 a {text-decoration: none;}
+span.tagcloud11 {font-size: 23px;}
+span.tagcloud11 a {text-decoration: none;}
+span.tagcloud12 {font-size: 24px;}
+span.tagcloud12 a {text-decoration: none;}
+span.tagcloud13 {font-size: 25px;}
+span.tagcloud13 a {text-decoration: none;}
+span.tagcloud14 {font-size: 26px;}
+span.tagcloud14 a {text-decoration: none;}
+span.tagcloud15 {font-size: 27px;}
+span.tagcloud15 a {text-decoration: none;}
+span.tagcloud16 {font-size: 28px;}
+span.tagcloud16 a {text-decoration: none;}
+span.tagcloud17 {font-size: 29px;}
+span.tagcloud17 a {text-decoration: none;}
+span.tagcloud18 {font-size: 30px;}
+span.tagcloud18 a {text-decoration: none;}
+span.tagcloud19 {font-size: 31px;}
+span.tagcloud19 a {text-decoration: none;}
+span.tagcloud20 {font-size: 32px;}
+span.tagcloud20 a {text-decoration: none;}
+span.tagcloud21 {font-size: 33px;}
+span.tagcloud21 a {text-decoration: none;}
+span.tagcloud22 {font-size: 34px;}
+span.tagcloud22 a {text-decoration: none;}
+span.tagcloud23 {font-size: 35px;}
+span.tagcloud23 a {text-decoration: none;}
+span.tagcloud24 {font-size: 36px;}
+span.tagcloud24 a {text-decoration: none;}
+



More information about the Cpan-forum-commit mailing list