Fix Keyword -> generateCloud and make the test repeatable again without having to parse the returned URLs.
This commit is contained in:
parent
052b3dfd45
commit
dbcd507d61
1 changed files with 3 additions and 3 deletions
|
|
@ -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);
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue