more Form/FieldType subclass support

This commit is contained in:
Colin Kuskie 2008-12-23 01:18:19 +00:00
parent 6fc73d854b
commit d05c0af5af

View file

@ -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";
}