Subroutine prototypes are verboten! PBP/194

This commit is contained in:
Colin Kuskie 2007-12-05 17:23:48 +00:00
parent 98863256ea
commit fc6cd26348

View file

@ -530,7 +530,7 @@ A reference to the current session.
=cut
sub www_setWorkingVersionTag () {
sub www_setWorkingVersionTag {
my $session = shift;
my $tag = WebGUI::VersionTag->new($session, $session->form->process("tagId"));
if (defined $tag && $session->user->isInGroup($tag->get("groupToUse"))) {