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

several bug fixes

Browse source
This commit is contained in:
JT Smith 2006-04-10 03:47:39 +00:00
parent 08d0efe060
commit 1f6a6a2ba1
3 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/Spectre/Cron.pm
View file

@ -314,6 +314,8 @@ sub loadSchedule {
my $session = WebGUI::Session->open($self->config->getWebguiRoot, $config);
my $result = $session->db->read("select * from WorkflowSchedule");
while (my $data = $result->hashRef) {
my $params = JSON::jsonToObj($data->{parameters});
$data->{parameters} = $params->{parameters};
$data->{config} = $config;
$data->{sitename} = $session->config->get("sitename")->[0];
$kernel->yield("addJob", $data);

2
lib/WebGUI/Workflow/Cron.pm
View file

@ -116,7 +116,7 @@ sub get {
my $self = shift;
my $name = shift;
if ($name eq "parameters") {
my $parameters = JSON::jsonToObj( $self->{_data}{$name});
my $parameters = JSON::jsonToObj($self->{_data}{$name});
return $parameters->{parameters};
}
return $self->{_data}{$name};

13
lib/WebGUI/Workflow/Instance.pm
View file

@ -134,7 +134,7 @@ sub get {
my $self = shift;
my $name = shift;
if ($name eq "parameters") {
my $parameters = JSON::jsonToObj( $self->{_data}{$name});
my $parameters = JSON::jsonToObj($self->{_data}{$name});
return $parameters->{parameters};
}
return $self->{_data}{$name};
@ -249,7 +249,6 @@ sub run {
return "done";
}
$self->session->errorHandler->debug("Running workflow activity ".$activity->getId.", which is a ".(ref $activity).", for instance ".$self->getId.".");
my $object = {};
my $class = $self->get("className");
my $method = $self->get("methodName");
my $params = $self->get("parameters");
@ -258,12 +257,16 @@ sub run {
my $cmd = "use $class";
eval($cmd);
if ($@) {
$self->session->errorHandler->warn("Error loading activity class $class: ".$@);
$self->session->errorHandler->error("Error loading activity class $class: ".$@);
return "error";
}
eval{ $object = $class->$method($self->session, $params) };
my $object = eval{ $class->$method($self->session, $params) };
if ($@) {
$self->session->errorHandler->warn("Error instanciating activity (".$activity->getId.") pass-in object: ".$@);
$self->session->errorHandler->error("Error instanciating activity (".$activity->getId.") pass-in object: ".$@);
return "error";
}
unless (defined $object) {
$self->session->errorHandler->error("Pass in object came back undefined for activity (".$activity->getId.") using ".$class.", ".$method.", ".$params.".");
return "error";
}
$status = $activity->execute($object, $self);