bug fixes

This commit is contained in:
JT Smith 2004-03-08 01:05:12 +00:00
parent 1d02c5e73f
commit f1508cfd93
4 changed files with 4 additions and 6 deletions

View file

@ -138,8 +138,7 @@ Deletes this user.
=cut
sub delete {
my ($class,$authMethod);
$class = shift;
my $class = shift;
WebGUI::SQL->write("delete from users where userId=".$class->{_userId});
WebGUI::SQL->write("delete from userProfileData where userId=".$class->{_userId});
WebGUI::Grouping::deleteUsersFromGroups([$class->{_userId}],WebGUI::Grouping::getGroupsForUser($class->{_userId}));