clear out some compile warnings
This commit is contained in:
parent
21058ead4d
commit
05a01201ff
6 changed files with 6 additions and 9 deletions
|
|
@ -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');
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue