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); $url = $display->$urlCallback($keyword);
} }
else { else {
my %q = ( keyword => $keyword ); my @q = ( [ 'keyword', $keyword, ] );
my $e = $self->session->url; my $e = $self->session->url;
if (my $func = $options->{displayFunc}) { if (my $func = $options->{displayFunc}) {
$q{displayFunc} = $func; unshift @q, [ 'func', $func ];
} }
$url = $display->getUrl( $url = $display->getUrl(
join(';', map { join '=', $_, $e->escape($q{$_}) } keys %q) join(';', map { join '=', $_->[0], $e->escape($_->[1]) } @q)
); );
} }
$cloud->add($keyword, $url, $count); $cloud->add($keyword, $url, $count);