lots of work...

This commit is contained in:
daviddelikat 2009-10-31 09:41:56 -05:00
parent 1819323cd3
commit 45c90f7be2
5 changed files with 83 additions and 1 deletions

View file

@ -384,6 +384,19 @@ sub getFormDescription {
return JSON->new->decode($self->get('formDescription'));
}
#-------------------------------------------------------------------
=head2 getQueueUrl
returns the URL for the submission queue page with the submisison id in the hash part
=cut
sub getQueueUrl {
my $self = shift;
return $self->ems->getUrl('func=viewSubmissionQueue#' . $self->getId );
}
#-------------------------------------------------------------------
=head2 getQueueUrl