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

converted to use WebGUI::Pluggable

Browse source
This commit is contained in:
JT Smith 2008-01-04 20:09:36 +00:00
parent 3f62be51ec
commit c6660242de
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Operation/ProfileSettings.pm
View file

@ -16,6 +16,7 @@ use WebGUI::AdminConsole;
use WebGUI::HTMLForm;
use WebGUI::International;
use WebGUI::Form::FieldType;
use WebGUI::Pluggable;
use WebGUI::ProfileField;
use WebGUI::ProfileCategory;
@ -304,12 +305,10 @@ sub www_editProfileField {
my @profileForms = ();
foreach my $form ( sort @{ $fieldType->get("types") }) {
next if $form eq 'DynamicField';
my $cmd = join '::', 'WebGUI::Form', $form;
eval "use $cmd";
my $w = eval {"$cmd"->new($session)};
unless(defined $w) {
$session->errorHandler->warn("Could not load $cmd. Please check the syntax of this module to make sure it works properly");
next;
my $w = eval { WebGUI::Pluggable::instanciate("WebGUI::Form::".$form, "new", [$session]) };
if ($@) {
$session->errorHandler->error($@);
next;
}
push @profileForms, $form if $w->get("profileEnabled");
}