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

getting closer to having approvals work

Browse source
This commit is contained in:
JT Smith 2006-03-23 00:01:35 +00:00
parent f3a306d21c
commit eef3a0b654
6 changed files with 114 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lib/WebGUI/Operation/VersionTag.pm
View file

@ -40,6 +40,29 @@ These methods are available from this class:
=cut
#-------------------------------------------------------------------
=head2 www_editVersionTag ( session )
Sets an approval for a version tag.
=cut
sub www_approveVersionTag {
my $session = shift;
my $tag = WebGUI::VersionTag->new($session, $session->form->param("tagId"));
my $instance = $tag->getWorkflowInstance;
my $activity = $instance->getNextActivity;
return $session->privilege->insufficient() unless ($session->user->isInGroup($activity->get("groupToApprove")));
if ($session->form->process("status", "selectBox") eq "approved") {
$activity->setApproved($instance);
} else {
$activity->setDenied($instance);
}
$tag->set({comments=>$session->form->process("comments", "textarea")});
return www_manageVersions($session);
}
#-------------------------------------------------------------------
=head2 www_editVersionTag ( session, [ tagId ] )