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

migrated forms system to use WebGUI::Pluggable

Browse source
This commit is contained in:
JT Smith 2008-01-04 19:57:54 +00:00
parent 1b4022205a
commit 3f62be51ec
4 changed files with 29 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Form.pm
View file

@ -22,6 +22,7 @@ use WebGUI::Asset;
use WebGUI::Asset::RichEdit;
use WebGUI::Asset::Template;
use WebGUI::International;
use WebGUI::Pluggable;
use WebGUI::Utility;
=head1 NAME
@ -64,14 +65,12 @@ sub AUTOLOAD {
my $name = ucfirst((split /::/, $AUTOLOAD)[-1]);
my $session = shift;
my @params = @_;
my $cmd = "use WebGUI::Form::".$name;
eval ($cmd);
if ($@) {
$session->errorHandler->error("Couldn't compile form control: ".$name.". Root cause: ".$@);
return;
}
my $class = "WebGUI::Form::".$name;
return $class->new($session,@params)->toHtml;
my $control = eval { WebGUI::Pluggable::instanciate("WebGUI::Form::".$name, "new", [ $session, @params ]) };
if ($@) {
$session->errorHandler->error($@);
return;
}
return $control->toHtml;
}