From 7e2efccc869baafa17bfbf76c8dec1bef420d4f3 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 12 Jul 2006 21:22:41 +0000
Subject: [PATCH] Internal javascript style storage changed from array to hash.
 This broke the getUserPrefsForm for dashboards.  Fix this so that js'es are
 added again.

---
 lib/WebGUI/Asset/Shortcut.pm | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/lib/WebGUI/Asset/Shortcut.pm b/lib/WebGUI/Asset/Shortcut.pm
index bd23d4f21..3b87baea8 100644
--- a/lib/WebGUI/Asset/Shortcut.pm
+++ b/lib/WebGUI/Asset/Shortcut.pm
@@ -707,14 +707,7 @@ sub www_getUserPrefsForm {
 	}
 	$f->submit({extras=>'className="nothing"'});
 	$f->raw('</table>');
-	my $tags;
-	foreach my $tag (@{$self->session->style->{_javascript}}) {
-		$tags .= '<script';
-		foreach my $name (keys %{$tag}) {
-			$tags .= ' '.$name.'="'.$tag->{$name}.'"';
-		}
-		$tags .= '></script>'."\n";
-	}
+	my $tags = join "", values %{ $self->session->style->{_javascript} };
 	$output .= $tags.$f->print;
 	return $output;
 }