loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.815, 2006/12/28 17:36:51	version 1.816, 2006/12/28 19:59:48
Line 4513 sub get_users_groups {	Line 4513 sub get_users_groups {
@usersgroups = split(/:/,$grouplist);	@usersgroups = split(/:/,$grouplist);
} else {	} else {
$grouplist = '';	$grouplist = '';
my %roleshash = &dump('roles',$udom,$uname,$courseid);	my $courseurl = &courseid_to_courseurl($courseid);
	my %roleshash = &dump('roles',$udom,$uname,$courseurl);
my ($tmp) = keys(%roleshash);	my ($tmp) = keys(%roleshash);
if ($tmp=~/^error:/) {	if ($tmp=~/^error:/) {
&logthis('Error retrieving roles: '.$tmp.' for '.$uname.':'.$udom);	&logthis('Error retrieving roles: '.$tmp.' for '.$uname.':'.$udom);
Line 4522 sub get_users_groups {	Line 4523 sub get_users_groups {
'.default_enrollment_end_date'};	'.default_enrollment_end_date'};
my $now = time;	my $now = time;
foreach my $key (keys(%roleshash)) {	foreach my $key (keys(%roleshash)) {
if ($key =~ /^\Q$courseid\E\/(\w+)\_gr$/) {	if ($key =~ /^\Q$courseurl\E\/(\w+)\_gr$/) {
my $group = $1;	my $group = $1;
if ($roleshash{$key} =~ /_(\d+)_(\d+)$/) {	if ($roleshash{$key} =~ /_(\d+)_(\d+)$/) {
my $start = $2;	my $start = $2;