From 6fc73d854b2da6756153c0102abda2c9e1ce1e29 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 23 Dec 2008 00:45:34 +0000
Subject: [PATCH] Make sure tha Form::FieldType can find subclasses (in
 subdirectories) of Forms.

---
 docs/changelog/7.x.x.txt     | 1 +
 lib/WebGUI/Form/FieldType.pm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index bee9da92c..7fe7fa302 100644
--- a/docs/changelog/7.x.x.txt
+++ b/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.
diff --git a/lib/WebGUI/Form/FieldType.pm b/lib/WebGUI/Form/FieldType.pm
index 77ca7ae97..477161dcb 100644
--- a/lib/WebGUI/Form/FieldType.pm
+++ b/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;