honoring special groups on add/remove group members

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/RHRD/rddb.pm b/lib/RHRD/rddb.pm
index 68d8aaa..c209f81 100755
--- a/lib/RHRD/rddb.pm
+++ b/lib/RHRD/rddb.pm
@@ -548,7 +548,7 @@ sub get_user_groups
 {
   my ($ctx, $username) = @_;
 
-  my $sql = qq{select GROUP_NAME from USER_PERMS where USER_NAME = ? oder by GROUP_NAME;};
+  my $sql = qq{select GROUP_NAME from USER_PERMS where USER_NAME = ? order by GROUP_NAME;};
   my $sth = $ctx->{'dbh'}->prepare($sql)
     or return (undef, 'ERROR', "Database Error: " . $ctx->{'dbh'}->errstr);
 
@@ -818,7 +818,7 @@ sub add_group_member
 
   ($cnt, my $result, my $errostring) = is_group_member($ctx, $groupname, $username);
   if($cnt > 0) {
-    return (undef, 'ERROR', "already a member");
+    return (0, 'OK', "already a member");
   }
 
   $sql = qq{insert into USER_PERMS (GROUP_NAME, USER_NAME) values (?, ?);};