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

15
lib/WebGUI/VersionTag.pm
View file

@ -150,6 +150,19 @@ sub getId {
#-------------------------------------------------------------------
=head2 getWorkflowInstance ( )
Returns a reference to the workflow instance attached to this version tag if any.
=cut
sub getWorkflowInstance {
my $self = shift;
return WebGUI::Workflow::Instance->new($self->session, $self->get("workflowInstanceId"));
}
#-------------------------------------------------------------------
=head2 getWorking ( session, noCreate )
This is a class method. Returns the current working version tag for this user as set by setWorking(). If there is no current working tag an autotag will be created and assigned as the working tag for this user.
@ -245,6 +258,8 @@ sub requestCommit {
methodName=>"new",
parameters=>$self->getId
});
$self->{_data}{workflowInstanceId} = $instance->getId;
$self->session->db->setRow("assetVersionTag","tagId",$self->{_data});
}