a few more mp2 bugfixes

This commit is contained in:
JT Smith 2005-11-04 15:04:52 +00:00
parent bf9776d43e
commit fe549ee746
5 changed files with 17 additions and 15 deletions

View file

@ -15,10 +15,10 @@ use Tie::CPHash;
use Tie::IxHash;
use WebGUI::AdminConsole;
use WebGUI::DateTime;
use WebGUI::Form;
use WebGUI::FormProcessor;
use WebGUI::Group;
use WebGUI::Grouping;
use WebGUI::Form;
use WebGUI::HTMLForm;
use WebGUI::Icon;
use WebGUI::International;
@ -169,8 +169,8 @@ sub www_deleteGrouping {
if (($session{user}{userId} eq $session{form}{uid} || $session{form}{uid} eq '3') && $session{form}{gid} eq '3') {
return _submenu(WebGUI::Privilege::vitalComponent());
}
my @users = $session{req}->param('uid');
my @groups = $session{req}->param("gid");
my @users = WebGUI::FormProcessor::selectList('uid');
my @groups = WebGUI::FormProcessor::group("gid");
foreach my $user (@users) {
my $u = WebGUI::User->new($user);
$u->deleteFromGroups(\@groups);
@ -323,7 +323,7 @@ sub www_editUser {
$previousCategory = $category;
}
$a->finish;
my @groupsToAdd = $session{req}->param("groupsToAdd");
my @groupsToAdd = WebGUI::FormProcessor::group("groupsToAdd");
my @exclude = WebGUI::SQL->buildArray("select groupId from groupings where userId=".quote($u->userId));
@exclude = (@exclude,"1","2","7");
$tabform->getTab("groups")->group(
@ -345,7 +345,7 @@ sub www_editUser {
}
}
push (@include, "0");
my @groupsToDelete = $session{req}->param("groupsToDelete");
my @groupsToDelete = WebGUI::FormProcessor::group("groupsToDelete");
$tabform->getTab("groups")->selectList(
-name=>"groupsToDelete",
-options=>WebGUI::SQL->buildHashRef("select groupId, groupName from groups
@ -385,9 +385,9 @@ sub www_editUserSave {
$u->profileField($field{fieldName},WebGUI::FormProcessor::process($field{fieldName},$field{dataType}));
}
$a->finish;
my @groups = $session{req}->param("groupsToAdd");
my @groups = WebGUI::FormProcessor::group("groupsToAdd");
$u->addToGroups(\@groups);
@groups = $session{req}->param("groupsToDelete");
@groups = WebGUI::FormProcessor::group("groupsToDelete");
$u->deleteFromGroups(\@groups);
} else {
$error = '<ul><li>'.WebGUI::International::get(77).' '.$session{form}{username}.'Too or '.$session{form}{username}.'02</li></ul>';