Fix Keyword -> generateCloud and make the test repeatable again without having to parse the returned URLs.

This commit is contained in:
Colin Kuskie 2011-01-24 20:26:57 -08:00
parent 052b3dfd45
commit dbcd507d61

View file

@ -216,13 +216,13 @@ sub generateCloud {
$url = $display->$urlCallback($keyword);
}
else {
my %q = ( keyword => $keyword );
my @q = ( [ 'keyword', $keyword, ] );
my $e = $self->session->url;
if (my $func = $options->{displayFunc}) {
$q{displayFunc} = $func;
unshift @q, [ 'func', $func ];
}
$url = $display->getUrl(
join(';', map { join '=', $_, $e->escape($q{$_}) } keys %q)
join(';', map { join '=', $_->[0], $e->escape($_->[1]) } @q)
);
}
$cloud->add($keyword, $url, $count);