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

initial commit: new admin console

Browse source
This commit is contained in:
Doug Bell 2010-04-01 16:52:21 -05:00
parent 743e57c8ae
commit 8f4024a4b2
3 changed files with 285 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

48
lib/WebGUI/VersionTag.pm
View file

@ -322,6 +322,41 @@ sub getAssets {
#-------------------------------------------------------------------
=head2 getCommitUrl ( )
Get the URL to commit this version tag. Will check settings to see
if commit comments are on or off
=cut
sub getCommitUrl {
my ( $self ) = @_;
my $session = $self->session;
my ( $url ) = $session->quick(qw( url ));
if ($session->setting->get("skipCommitComments")) {
return $url->page("op=commitVersionTagConfirm;tagId=".$self->getId);
}
else {
return $url->page("op=commitVersionTag;tagId=".$self->getId);
}
}
#-------------------------------------------------------------------
=head2 getEditUrl ( )
Get the URL to edit this version tag
=cut
sub getEditUrl {
my ( $self ) = @_;
return $self->session->url->page( "op=editVersionTag;tagId=".$self->getId );
}
#-------------------------------------------------------------------
=head2 getId ( )
Returns the ID of this version tag.
@ -335,6 +370,19 @@ sub getId {
#-------------------------------------------------------------------
=head2 getJoinUrl ( )
Get the URL to join this version tag
=cut
sub getJoinUrl {
my ( $self ) = @_;
return $self->session->url->page( "op=setWorkingVersionTag;tagId=".$self->getId );
}
#-------------------------------------------------------------------
=head2 getOpenTags ( session )
Returns an array reference containing all the open version tag objects. This is a class method.