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

can now move workflow activities up and down within a workflow

Browse source
This commit is contained in:
JT Smith 2006-03-24 19:43:58 +00:00
parent a794fbd0d7
commit 70c501f8f2
3 changed files with 114 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

45
lib/WebGUI/Operation/Workflow.pm
View file

@ -118,6 +118,26 @@ sub www_deleteWorkflowActivity {
return www_editWorkflow($session);
}
#------------------------------------------------------------------
=head2 www_demoteWorkflowActivity ( session )
Moves a workflow activity down one position in the execution order.
=head3 session
A reference to the current session.
=cut
sub www_demoteWorkflowActivity {
my $session = shift;
return $session->privilege->insufficient() unless ($session->user->isInGroup("pbgroup000000000000015"));
my $workflow = WebGUI::Workflow->new($session, $session->form->param("workflowId"));
$workflow->demoteActivity($session->form->param("activityId"));
return www_editWorkflow($session);
}
#-------------------------------------------------------------------
=head2 www_editWorkflow ( session, workflow )
@ -184,11 +204,13 @@ sub www_editWorkflow {
);
$f->submit;
my $steps = '<table class="content">';
my $rs = $session->db->read("select activityId, title from workflowActivity where workflowId=?",[$workflow->getId]);
my $rs = $session->db->read("select activityId, title from workflowActivity where workflowId=? order by sequenceNumber",[$workflow->getId]);
while (my ($id, $title) = $rs->array) {
$steps .= '<tr><td>'
.$session->icon->delete("op=deleteWorkflowActivity;workflowId=".$workflow->getId.";activityId=".$id, undef, $i18n->get("confirm delete activity"))
.$session->icon->edit("op=editWorkflowActivity;workflowId=".$workflow->getId.";activityId=".$id)
.$session->icon->moveDown("op=demoteWorkflowActivity;workflowId=".$workflow->getId.";activityId=".$id)
.$session->icon->moveUp("op=promoteWorkflowActivity;workflowId=".$workflow->getId.";activityId=".$id)
.'</td><td>'.$title.'</td></tr>';
}
$steps .= '</table>';
@ -302,6 +324,27 @@ sub www_manageWorkflows {
return $ac->render($output);
}
#------------------------------------------------------------------
=head2 www_promoteWorkflowActivity ( session )
Moves a workflow activity up one position in the execution order.
=head3 session
A reference to the current session.
=cut
sub www_promoteWorkflowActivity {
my $session = shift;
return $session->privilege->insufficient() unless ($session->user->isInGroup("pbgroup000000000000015"));
my $workflow = WebGUI::Workflow->new($session, $session->form->param("workflowId"));
$workflow->promoteActivity($session->form->param("activityId"));
return www_editWorkflow($session);
}
#-------------------------------------------------------------------
=head2 www_runWorkflow ( )