Skip Menu |
 

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

Report information
The Basics
Id: 38779
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] fix HTML::TagCloud to avoid BIG TAGS when they're all have the same number
Date: Thu, 28 Aug 2008 01:17:58 -0700
To: bug-HTML-TagCloud [...] rt.cpan.org
From: Ask Bjørn Hansen <ask [...] develooper.com>
Download (untitled) / with headers
text/plain 532b
--- lib/perl5/HTML/TagCloud.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/lib/perl5/HTML/TagCloud.pm b/lib/perl5/HTML/TagCloud.pm index 5113982..7e0714f 100644 --- a/lib/perl5/HTML/TagCloud.pm +++ b/lib/perl5/HTML/TagCloud.pm @@ -52,7 +52,7 @@ sub tags { # special case all tags having the same count if ($max - $min == 0) { - $min = $min - $self->{levels}; + $min = $min - $self->{levels} / 4; $factor = 1; } else { $factor = $self->{levels} / ($max - $min); -- 1.6.0
From: ask [...] develooper.com
Download (untitled) / with headers
text/plain 438b
Just as a sidenote: The current behavior was completely nuts on our site - I suppose others might have different use cases, in which case having a configuration knob for this would be nice. A second sidenote: I am vaguely guessing at what this does, but I think the subject here is a good guess. This and the other patches were just the diff between what we are using and 0.34 as distributed (this is "get in sync week", I guess).


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.