oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed #12029: issue with keywords

Browse source
This commit is contained in:
Paul Driver 2011-01-24 09:42:39 -06:00
parent 48c834eb75
commit 48bbec5c6f
3 changed files with 28 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Keyword.pm
View file

@ -211,11 +211,20 @@ sub generateCloud {
[ $options->{startAsset}->get("lineage").'%', @extraPlaceholders, $maxKeywords ]);
my $cloud = HTML::TagCloud->new(levels=>$options->{cloudLevels} || 24);
while (my ($count, $keyword) = $sth->array) {
my $url
= $urlCallback ? $display->$urlCallback($keyword)
: $options->{displayFunc} ? $display->getUrl("func=".$options->{displayFunc}.";keyword=".$keyword)
: $display->getUrl("keyword=".$keyword)
;
my $url;
if ($urlCallback) {
$url = $display->$urlCallback($keyword);
}
else {
my %q = ( keyword => $keyword );
my $e = $self->session->url;
if (my $func = $options->{displayFunc}) {
$q{displayFunc} = $func;
}
$url = $display->getUrl(
join(';', map { join '=', $_, $e->escape($q{$_}) } keys %q)
);
}
$cloud->add($keyword, $url, $count);
}
return $cloud->html_and_css($maxKeywords);