It's better to die than to return in failure.

This commit is contained in:
Scott Walters 2010-08-18 15:29:14 -04:00
parent 23210c84e0
commit 9c3a3b1b79

View file

@ -602,14 +602,18 @@ sub processConfigurationForm {
my $class = shift;
my $session = shift;
return undef unless ($class->getPluginList($session));
if (! $class->getPluginList($session)) {
WebGUI::Error->throw(error => "No graphing plugins listed in config")
}
my $namespace = "WebGUI::Image::".$session->form->process('graphingPlugin');
$namespace =~ s/_/::/g;
return undef unless (isIn($namespace, @{$class->getPluginList($session)}));
if (! isIn($namespace, @{$class->getPluginList($session)})) {
WebGUI::Error->throw(error => "Graphing plugin not available")
}
my $graph = $class->load($session, $namespace);
my $graph = $class->load($session, $namespace);
$graph->setConfiguration($session->form->paramsHashRef);