oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Colin Kuskie 2008-12-23 00:45:34 +00:00
parent d502f4b5de
commit 6fc73d854b
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/changelog/7.x.x.txt
View file

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

4
lib/WebGUI/Form/FieldType.pm
View file

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