<%args> $tagsRaw => undef <%INIT> use RTx::Tags; $tagsRaw = defined($tagsRaw) ? $tagsRaw : RT->Config->Get('tagsRaw'); my $title = loc("Tag Clouds"); <& /Elements/Header, Title=>$title &> <& /Ticket/Elements/Tabs, Title=>$title &> <& /Elements/TagCloud, Title=>'Global',TitleHREF=>undef, tagsRaw_=>$tagsRaw &> <%perl> my $r = $RT::Handle->SimpleQuery('SELECT DISTINCT ObjectCustomFieldValues.ObjectType FROM ObjectCustomFieldValues'); return (0, "Internal error: <$r>. Please send bug report.") unless $r; #XXX skip iff count == 1 & $tagsRaw while( my $row = $r->fetchrow_arrayref ) { my $nom = $row->[0]; $nom =~ s/^RT:://; <& /Elements/TagCloud, Title=>$nom, TitleHREF=>undef, tagsRaw_=>1, tagsTypes=>[$row->[0]], tagsLinkType=>$nom eq 'Ticket' ? 1 : undef &> % }