more Form/FieldType subclass support
This commit is contained in:
parent
6fc73d854b
commit
d05c0af5af
1 changed files with 1 additions and 1 deletions
|
|
@ -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";
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue