From 2653035da64375e55f1aa7b6bc49f407d6ba2186 Mon Sep 17 00:00:00 2001
From: Michele Dell'Aquila <michele@webgui-svn>
Date: Wed, 24 Aug 2005 16:56:03 +0000
Subject: [PATCH] WebGUI::Form::* renaming breaks field type selection
 [1268605]

---
 docs/changelog/6.x.x.txt     | 1 +
 lib/WebGUI/Form/Date.pm      | 2 +-
 lib/WebGUI/Form/FieldType.pm | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index 607d51040..19b842869 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -1,4 +1,5 @@
 6.7.2
+ - fix [ 1268605 ] field type selection broken (midellaq)
  - fix [ 1267548 ] can't add metadata field (midellaq) 
  - fix [ 1265788 ] SyndicatedContent *not working* in 6.7.x
  - fix [ 1245765 ] Missing 'page not found' crashes settings 
diff --git a/lib/WebGUI/Form/Date.pm b/lib/WebGUI/Form/Date.pm
index fe32b4f2d..35a2547e9 100644
--- a/lib/WebGUI/Form/Date.pm
+++ b/lib/WebGUI/Form/Date.pm
@@ -17,7 +17,7 @@ package WebGUI::Form::Date;
 use strict;
 use base 'WebGUI::Form::Text';
 use WebGUI::DateTime;
-use WebGUI::Form::text;
+use WebGUI::Form::Text;
 use WebGUI::International;
 use WebGUI::Session;
 use WebGUI::Style;
diff --git a/lib/WebGUI/Form/FieldType.pm b/lib/WebGUI/Form/FieldType.pm
index 5ee0bf723..4401d7c85 100644
--- a/lib/WebGUI/Form/FieldType.pm
+++ b/lib/WebGUI/Form/FieldType.pm
@@ -139,7 +139,7 @@ sub toHtml {
 	my $self = shift;
 	my %options;
 	foreach my $type (@{$self->{types}}) {
-		my $class = "WebGUI::Form::".$type;
+		my $class = "WebGUI::Form::".ucfirst($type);
 		my $cmd = "use ".$class;
         	eval ($cmd);    
         	if ($@) {