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 {
|
sub getValue {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $fieldType = $self->SUPER::getValue(@_);
|
my $fieldType = $self->SUPER::getValue(@_);
|
||||||
$fieldType =~ s/[^\w]//g;
|
$fieldType =~ s/[^\w:]//g;
|
||||||
return $fieldType || "text";
|
return $fieldType || "text";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue