[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