loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.726, 2006/04/06 19:14:50	version 1.727, 2006/04/06 20:27:35
Line 3992 sub get_users_groups {	Line 3992 sub get_users_groups {
my $grouplist;	my $grouplist;
foreach my $key (keys %roleshash) {	foreach my $key (keys %roleshash) {
if ($key =~ /^\Q$courseid\E\/(\w+)\_gr$/) {	if ($key =~ /^\Q$courseid\E\/(\w+)\_gr$/) {
unless ($roleshash{$key} =~ /_1_1$/) { # deleted membership	unless ($roleshash{$key} =~ /_\d+_\-1$/) { # deleted membership
$grouplist .= $1.':';	$grouplist .= $1.':';
}	}
}	}