From 128a19ac90630df2ed194fc6bbe5732d1f920a2a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 14 Sep 2010 14:02:37 -0700
Subject: [PATCH] Convert Phone and DateTime to headTags

---
 lib/WebGUI/Form/DateTime.pm | 38 +++++++++++++++++++++++++------------
 lib/WebGUI/Form/Phone.pm    | 14 +++++++++++++-
 2 files changed, 39 insertions(+), 13 deletions(-)

diff --git a/lib/WebGUI/Form/DateTime.pm b/lib/WebGUI/Form/DateTime.pm
index cbd5be071..0a5445e65 100644
--- a/lib/WebGUI/Form/DateTime.pm
+++ b/lib/WebGUI/Form/DateTime.pm
@@ -199,6 +199,31 @@ sub getValueAsHtml {
 
 #-------------------------------------------------------------------
 
+=head2 headTags ( )
+
+Set the 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'));
+    $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'));
+}
+
+#-------------------------------------------------------------------
+
 =head2 isDynamicCompatible ( )
 
 A class method that returns a boolean indicating whether this control is compatible with the DynamicField control.
@@ -224,18 +249,7 @@ sub toHtml {
     $value      = WebGUI::DateTime->new($session,0) if $value eq '';
     $value      = $value->set_time_zone($self->get("timeZone"))->strftime("%Y-%m-%d %H:%M:%S");
 
-    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'));
-
+    $self->headTags;
     return WebGUI::Form::Text->new($self->session,
             name      => $self->get("name"),
             value     => $value,
diff --git a/lib/WebGUI/Form/Phone.pm b/lib/WebGUI/Form/Phone.pm
index 06d17ec4b..0d6d4ea0c 100644
--- a/lib/WebGUI/Form/Phone.pm
+++ b/lib/WebGUI/Form/Phone.pm
@@ -72,6 +72,19 @@ sub getValue {
 
 #-------------------------------------------------------------------
 
+=head2 headTags ( )
+
+Set the head tags for this form plugin
+
+=cut
+
+sub headTags {
+    my $self = shift;
+	$self->session->style->setScript($self->session->url->extras('inputCheck.js'));
+}
+
+#-------------------------------------------------------------------
+
 =head2 isDynamicCompatible ( )
 
 A class method that returns a boolean indicating whether this control is compatible with the DynamicField control.
@@ -92,7 +105,6 @@ Renders a phone number field.
 
 sub toHtml {
         my $self = shift;
-	$self->session->style->setScript($self->session->url->extras('inputCheck.js'));
         $self->set("extras", $self->get('extras') . ' onkeyup="doInputCheck(document.getElementById(\''.$self->get("id").'\'),\'x.0123456789-()+ \')" ');
 	return $self->SUPER::toHtml;
 }