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

Owner: Nobody in particular
Requestors: ask [...]

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

CC: Ask Bjørn Hansen <ask [...]>
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 [...]
From: Ask Bjørn Hansen <ask [...]>
Download (untitled) / with headers
text/plain 532b
--- lib/perl5/HTML/ | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/lib/perl5/HTML/ b/lib/perl5/HTML/ index 5113982..7e0714f 100644 --- a/lib/perl5/HTML/ +++ b/lib/perl5/HTML/ @@ -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 [...]
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 infrastructure.

Please report any issues with to