From dbcd507d6105e8acf3c4fc8928410b1a9e6e05c5 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 24 Jan 2011 20:26:57 -0800
Subject: [PATCH] Fix Keyword -> generateCloud and make the test repeatable
 again without having to parse the returned URLs.

---
 lib/WebGUI/Keyword.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Keyword.pm b/lib/WebGUI/Keyword.pm
index b1cd2794e..924ff7eef 100644
--- a/lib/WebGUI/Keyword.pm
+++ b/lib/WebGUI/Keyword.pm
@@ -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);