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

some more ui improvements

Browse source 
updated the wg
fixed some more cs mail bugs
This commit is contained in:
JT Smith 2006-04-11 02:07:14 +00:00
parent 6dba08b727
commit 9ef6621cc3
5 changed files with 32 additions and 81 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -64,7 +64,8 @@ sub create {
my $properties = shift;
my $id = shift;
my ($isSerial) = $session->db->quickArray("select isSerial from Workflow where workflowId=?",[$properties->{workflowId}]);
my ($count) = $session->db->quickArray("select count(*) from WorkflowInstance where workflowId=?",[$properties->{workflowId}]);
my $params = (exists $properties->{parameters}) ? JSON::objToJson({parameters => $properties->{parameters}}) : undef;
my ($count) = $session->db->quickArray("select count(*) from WorkflowInstance where workflowId=? and parameters=?",[$properties->{workflowId},$params]);
return undef if ($isSerial && $count);
my $instanceId = $session->db->setRow("WorkflowInstance","instanceId",{instanceId=>"new", runningSince=>time()}, $id);
my $self = $class->new($session, $instanceId);