Skip Menu |

This queue is for tickets about the HTML-TagCloud CPAN distribution.

Report information
The Basics
Id: 38778
Status: new
Priority: 0/
Queue: HTML-TagCloud

People
Owner: Nobody in particular
Requestors: ask [...] develooper.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



CC: Ask Bjørn Hansen <ask [...] develooper.com>
Subject: [PATCH] use css class instead of id to allow more than one tagcloud per page
Date: Thu, 28 Aug 2008 01:18:00 -0700
To: bug-HTML-TagCloud [...] rt.cpan.org
From: Ask Bjørn Hansen <ask [...] develooper.com>
--- lib/perl5/HTML/TagCloud.pm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/perl5/HTML/TagCloud.pm b/lib/perl5/HTML/TagCloud.pm index a08a19c..72d867f 100644 --- a/lib/perl5/HTML/TagCloud.pm +++ b/lib/perl5/HTML/TagCloud.pm @@ -85,7 +85,7 @@ sub html { return ""; } elsif ($ntags == 1) { my $tag = $tags[0]; - return qq{<div id="htmltagcloud"><span class="tagcloud1"><a href="}. + return qq{<div class="htmltagcloud"><span class="tagcloud1"><a href="}. $tag->{url}.qq{">}.$tag->{name}.qq{</a></span></div>\n}; } @@ -98,7 +98,7 @@ sub html { $html .= qq{<span class="tagcloud}.$tag->{level}.qq{"><a href="}.$tag->{url}. qq{">}.$tag->{name}.qq{</a></span>\n}; } - $html = qq{<div id="htmltagcloud"> + $html = qq{<div class="htmltagcloud"> $html</div>}; return $html; } -- 1.6.0