From 0dd014f92375659a4b156bdae7988fb68c747084 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 14 Sep 2010 13:20:39 -0700
Subject: [PATCH] Convert Date plugin to headTags

---
 lib/WebGUI/Form/Date.pm | 37 +++++++++++++++++++++++++------------
 1 file changed, 25 insertions(+), 12 deletions(-)

diff --git a/lib/WebGUI/Form/Date.pm b/lib/WebGUI/Form/Date.pm
index 99b8e47b2..7a1a3d187 100644
--- a/lib/WebGUI/Form/Date.pm
+++ b/lib/WebGUI/Form/Date.pm
@@ -189,6 +189,30 @@ sub getValueAsHtml {
 
 #-------------------------------------------------------------------
 
+=head2 headTags ()
+
+Set head tags for this form plugin
+
+=cut
+
+sub headTags {
+    my $self    = shift;
+    my $session = $self->session;
+    my $style   = $session->style;
+    my $url     = $session->url;
+    $style->setLink($url->extras('yui/build/calendar/assets/skins/sam/calendar.css'), { rel=>"stylesheet", type=>"text/css", media=>"all" });
+    $style->setScript($url->extras('yui/build/utilities/utilities.js'),         { type => 'text/javascript' });
+    $style->setScript($url->extras('yui/build/json/json-min.js'),               { type => 'text/javascript' });
+    $style->setScript($url->extras('yui/build/yahoo/yahoo-min.js'),             { type => 'text/javascript' });
+    $style->setScript($url->extras('yui/build/dom/dom-min.js'),                 { type => 'text/javascript' });
+    $style->setScript($url->extras('yui/build/event/event-min.js'),             { type => 'text/javascript' });
+    $style->setScript($url->extras('yui/build/calendar/calendar-min.js'),       { type => 'text/javascript' });
+    $style->setScript($url->extras('yui-webgui/build/i18n/i18n.js' ),           { type => 'text/javascript' });
+    $style->setScript($url->extras('yui-webgui/build/datepicker/datepicker.js'),{ type => 'text/javascript' });
+}
+
+#-------------------------------------------------------------------
+
 =head2 isDynamicCompatible ( )
 
 A class method that returns a boolean indicating whether this control is compatible with the DynamicField control.
@@ -221,18 +245,6 @@ sub toHtml {
         $value = WebGUI::DateTime->new($session,0)->toMysqlDate if $value eq '';
     }
 
-    my $style   = $session->style;
-    my $url     = $session->url;
-    $style->setLink($url->extras('yui/build/calendar/assets/skins/sam/calendar.css'), { rel=>"stylesheet", type=>"text/css", media=>"all" });
-    $style->setScript($url->extras('yui/build/utilities/utilities.js'));
-    $style->setScript($url->extras('yui/build/json/json-min.js'));
-    $style->setScript($url->extras('yui/build/yahoo/yahoo-min.js'));
-    $style->setScript($url->extras('yui/build/dom/dom-min.js'));
-    $style->setScript($url->extras('yui/build/event/event-min.js'));
-    $style->setScript($url->extras('yui/build/calendar/calendar-min.js'));
-    $style->setScript($url->extras('yui-webgui/build/i18n/i18n.js' ));
-    $style->setScript($url->extras('yui-webgui/build/datepicker/datepicker.js'));
-
     my $field = WebGUI::Form::Text->new($self->session,
         name      => $self->get("name"),
         value     => $value,
@@ -241,6 +253,7 @@ sub toHtml {
         id        => $self->get('id'),
         maxlength => $self->get("maxlength"),
     );
+    $self->headTags;
     return $field->toHtml;
 }