added workflow form control

This commit is contained in:
JT Smith 2006-02-14 16:06:47 +00:00
parent 84fd39285f
commit 1416aa76e8
2 changed files with 157 additions and 0 deletions

View file

@ -184,6 +184,31 @@ sub getActivities {
}
#-------------------------------------------------------------------
=head2 getList ( session, [ type ] )
Returns a hash reference of workflowId/title pairs of all the workflows defined in the system. This is a class method.
=head3 session
A reference to the current session.
=head3 type
If specified this will limit the list to a certain type of workflow based upon the object type that the workflow is set up to handle.
=cut
sub getList {
my $session = shift;
my $type = shift;
my $sql = "select workflowId, title from Workflow";
$sql .= " where type=?" if ($type);
return $session->db->buildHashRef($sql, $type);
}
#-------------------------------------------------------------------
=head2 getNextActivity ( [ activityId ] )