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

add method to get version tag info

Browse source
This commit is contained in:
Doug Bell 2010-07-29 14:00:31 -05:00
parent df7d20e656
commit 441a139001
1 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lib/WebGUI/Admin.pm
View file

@ -194,6 +194,33 @@ sub www_getClipboard {
#----------------------------------------------------------------------
=head2 www_getCurrentVersionTag ( )
Get information about the current version tag
=cut
sub www_getCurrentVersionTag {
my ( $self ) = @_;
my $session = $self->session;
my $currentUrl = $session->url->getRequestedUrl;
my $currentTag = WebGUI::VersionTag->getWorking( $session, "nocreate" );
return JSON->new->encode( {} ) unless $currentTag;
my %tagInfo = (
tagId => $currentTag->getId,
name => $currentTag->get('name'),
editUrl => $currentTag->getEditUrl,
commitUrl => $currentTag->getCommitUrl,
leaveUrl => $currentUrl . '?op=leaveVersionTag',
);
return JSON->new->encode( \%tagInfo );
}
#----------------------------------------------------------------------
=head2 www_getTreeData ( )
Get the Tree data for a given asset URL