--- loncom/Attic/lchtmldir	2004/08/05 20:35:55	1.7
+++ loncom/Attic/lchtmldir	2004/09/02 18:59:24	1.8
@@ -268,7 +268,7 @@ sub JoinGroup {
 
     my $groups = `/usr/bin/groups www`;
     # untaint
-    my ($safegroups)=($groups=~/([\s\w]+)/);
+    my ($safegroups)=($groups=~/:\s+([\s\w]+)/);
     $groups=$safegroups;
     chomp $groups; $groups=~s/^\S+\s+\:\s+//;
     my @grouplist=split(/\s+/,$groups);