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

better detection and logging for singleton workflows

Browse source
This commit is contained in:
Graham Knop 2008-08-01 20:34:00 +00:00
parent 8582745644
commit 52ebbb05d5
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -64,10 +64,13 @@ sub create {
my ($isSingleton) = $session->db->quickArray("select count(*) from Workflow where workflowId=? and
mode='singleton'",[$properties->{workflowId}]);
my $params = (exists $properties->{parameters})
? JSON->new->utf8->pretty->encode({parameters => $properties->{parameters}})
? JSON->new->utf8->canonical->encode({parameters => $properties->{parameters}})
: undef;
my ($count) = $session->db->quickArray("select count(*) from WorkflowInstance where workflowId=? and parameters=?",[$properties->{workflowId},$params]);
return undef if ($isSingleton && $count);
if ($isSingleton && $count) {
$session->log->info("singleton workflow $properties->{workflowId} already running, not running again");
return undef
}
# create instance
my $instanceId = $session->db->setRow("WorkflowInstance","instanceId",{instanceId=>"new", runningSince=>time()});