fixed: Form::FieldType->getTypes should exclude Form::Slider base class

This commit is contained in:
Yung Han Khoe 2008-03-28 09:10:10 +00:00
parent 21f4a85055
commit 60ef5ffdf2
2 changed files with 2 additions and 1 deletions

View file

@ -105,7 +105,7 @@ sub getTypes {
my @types;
foreach my $type (@rawTypes) {
if ($type =~ /^(.*)\.pm$/) {
next if (isIn($1, qw/Control List DynamicField/));
next if (isIn($1, qw/Control List DynamicField Slider/));
push(@types,$1);
}
}