version 1.4, 2006/06/22 14:19:18
|
version 1.5, 2006/06/26 22:20:57
|
Line 70 sub coursegroups {
|
Line 70 sub coursegroups {
|
$cnum = $env{'course.'.$cid.'.num'}; |
$cnum = $env{'course.'.$cid.'.num'}; |
} |
} |
my %curr_groups = &Apache::lonnet::get_coursegroups($cdom,$cnum,$group); |
my %curr_groups = &Apache::lonnet::get_coursegroups($cdom,$cnum,$group); |
my ($tmp) = keys(%curr_groups); |
if (my $tmp = &Apache::lonnet::error(%curr_groups)) { |
if ($tmp=~/^(con_lost|no_such_host|error: [^2] )/) { |
undef(%curr_groups); |
undef(%curr_groups); |
|
&Apache::lonnet::logthis('Error retrieving groups: '.$tmp.' in '.$cnum.':'.$cdom); |
&Apache::lonnet::logthis('Error retrieving groups: '.$tmp.' in '.$cnum.':'.$cdom); |
} elsif ($tmp=~/^error: 2 /) { |
|
undef(%curr_groups); |
|
} |
} |
return %curr_groups; |
return %curr_groups; |
} |
} |
Line 272 sub group_changes {
|
Line 269 sub group_changes {
|
if (@changegroups > 0) { |
if (@changegroups > 0) { |
my %currpriv; |
my %currpriv; |
my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,$cid); |
my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,$cid); |
my ($tmp) = keys(%roleshash); |
if (my $tmp = &Apache::lonnet::error(%roleshash)) { |
if ($tmp=~/^error:/) { |
|
&Apache::lonnet::logthis('Error retrieving roles: '.$tmp. |
&Apache::lonnet::logthis('Error retrieving roles: '.$tmp. |
' for '.$uname.':'.$udom); |
' for '.$uname.':'.$udom); |
} else { |
} else { |