Make sure tha Form::FieldType can find subclasses (in subdirectories) of Forms.

docs/changelog/7.x.x.txt

@@ -6,6 +6,7 @@
  - fixed a bug where clicking the apply button when func=add would return the
    edit screen of the parent asset rather than that of the new asset. (Martin
    Kamerbeek / Oqapi).
+ - fixed: Make sure that Form subclasses are found by WebGUI::Form::FieldType
 
 7.6.7
  - fixed #9263: Thingy possibleValues processing, and List type autodetection.

lib/WebGUI/Form/FieldType.pm

@@ -20,7 +20,7 @@ use Tie::IxHash;
 use WebGUI::International;
 use WebGUI::Pluggable;
 use WebGUI::Utility;
-use Module::Find qw(findsubmod);
+use Module::Find qw(findallmod);
 
 =head1 NAME
 
@@ -113,7 +113,7 @@ sub getTypes {
     my $self = shift;
     my @types = @{$self->get('types')};
     unless (scalar(@types)) {
-        my @classes = findsubmod 'WebGUI::Form';
+        my @classes = findallmod 'WebGUI::Form';
         for my $class (@classes) {
             if ($class =~ /^WebGUI::Form::(.*)/) {
                 my $type = $1;