WebGUI::Form::* renaming breaks field type selection [1268605]

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 

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;

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 ($@) {