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 =cut
sub www_setWorkingVersionTag () { sub www_setWorkingVersionTag {
my $session = shift; my $session = shift;
my $tag = WebGUI::VersionTag->new($session, $session->form->process("tagId")); my $tag = WebGUI::VersionTag->new($session, $session->form->process("tagId"));
if (defined $tag && $session->user->isInGroup($tag->get("groupToUse"))) { if (defined $tag && $session->user->isInGroup($tag->get("groupToUse"))) {