clear out some compile warnings

This commit is contained in:
Graham Knop 2008-10-01 22:43:29 +00:00
parent 21058ead4d
commit 05a01201ff
6 changed files with 6 additions and 9 deletions

View file

@ -729,20 +729,18 @@ sub www_manageGroupsInGroup {
);
my @groups;
my $group = WebGUI::Group->new($session,$session->form->process("gid"));
my $groupsIn = $group->getGroupsIn(1);
my $groupsFor = $group->getGroupsFor;
push(@groups, @$groupsIn,@$groupsFor,$session->form->process("gid"));
my $i18n = WebGUI::International->new($session);
$f->group(
$f->group(
-name=>"groups",
-excludeGroups=>\@groups,
-label=>$i18n->get(605),
-size=>5,
-multiple=>1
);
$f->submit;
my $output = $f->print;
$f->submit;
my $output = $f->print;
$output .= '<p />';
$output .= walkGroups($session, $session->form->process("gid"));
return _submenu($session,$output,'813');