|
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 { |
![[BACK]](/icons/back.gif){kind=icon}
Return to longroup.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface