From 91a83974cf54d6d92c8682d9763355ef70b3078f Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Fri, 25 Jul 2008 04:03:11 +0000
Subject: [PATCH] admin bar shouldn't double includes

---
 lib/WebGUI/Macro/AdminBar.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Macro/AdminBar.pm b/lib/WebGUI/Macro/AdminBar.pm
index f96728a2e..55f4f2e10 100644
--- a/lib/WebGUI/Macro/AdminBar.pm
+++ b/lib/WebGUI/Macro/AdminBar.pm
@@ -40,10 +40,8 @@ The ID for a template to use for formatting the link.  The default template crea
 sub process {
 	my $session = shift;
 	return "" unless ($session->var->isAdminOn);
-    $session->style->setRawHeadTags('<script type="text/javascript" src="'.$session->url->extras("/yui/build/yahoo/yahoo-min.js").'"></script>
-    <script type="text/javascript" src="'.$session->url->extras("/yui/build/event/event-min.js").'"></script>
-    <script type="text/javascript" src="'.$session->url->extras("/yui/build/dom/dom-min.js").'"></script>
-    <script type="text/javascript" src="'.$session->url->extras("/yui/build/animation/animation-min.js").'"></script>');
+    $session->style->setScript($session->url->extras('yui/build/yahoo-dom-event/yahoo-dom-event.js'), {type=>"text/javascript"});
+    $session->style->setScript($session->url->extras('yui/build/animation/animation-min.js'), {type=>"text/javascript"});
 	my @param = @_;
         my $templateId = $param[0] || "PBtmpl0000000000000090";
 	my $i18n = WebGUI::International->new($session,'Macro_AdminBar');