From d05c0af5afdc824962d627dba11558bad1d02fc9 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 23 Dec 2008 01:18:19 +0000
Subject: [PATCH] more Form/FieldType subclass support

---
 lib/WebGUI/Form/FieldType.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Form/FieldType.pm b/lib/WebGUI/Form/FieldType.pm
index 477161dcb..a08c295ef 100644
--- a/lib/WebGUI/Form/FieldType.pm
+++ b/lib/WebGUI/Form/FieldType.pm
@@ -141,7 +141,7 @@ Returns either what's posted or if nothing comes back it returns "text".
 sub getValue {
 	my $self = shift;
 	my $fieldType = $self->SUPER::getValue(@_);
-	$fieldType =~ s/[^\w]//g;
+	$fieldType =~ s/[^\w:]//g;
 	return $fieldType || "text";
 }