--- loncom/lonnet/perl/lonnet.pm	2006/04/06 19:14:50	1.726
+++ loncom/lonnet/perl/lonnet.pm	2006/04/06 20:27:35	1.727
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.726 2006/04/06 19:14:50 albertel Exp $
+# $Id: lonnet.pm,v 1.727 2006/04/06 20:27:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3992,7 +3992,7 @@ sub get_users_groups {
         my $grouplist;
         foreach my $key (keys %roleshash) {
             if ($key =~ /^\Q$courseid\E\/(\w+)\_gr$/) {
-                unless ($roleshash{$key} =~ /_1_1$/) {   # deleted membership
+                unless ($roleshash{$key} =~ /_\d+_\-1$/) {   # deleted membership
                     $grouplist .= $1.':';
                 }
             }