version 1.27, 2010/11/13 04:45:17
|
version 1.29, 2012/12/18 15:26:03
|
Line 218 for the course is included amongst the u
|
Line 218 for the course is included amongst the u
|
and would trigger membership in teh same group(s) |
and would trigger membership in teh same group(s) |
|
|
If role is being added, will add any group memberships specified |
If role is being added, will add any group memberships specified |
for auto-group population, unless use is already a group member. |
for auto-group population, unless user is already a group member. |
Uses default group privileges and default start and end group access |
Uses default group privileges and default start and end group access |
times. |
times. |
|
|
Line 252 sub group_changes {
|
Line 252 sub group_changes {
|
} else { |
} else { |
$cid = $url; |
$cid = $url; |
} |
} |
my $courseid = $cid; |
|
$courseid =~ s|^/||; |
|
$courseid =~ s|/|_|; |
|
my %crshash=&Apache::lonnet::coursedescription($cid); |
my %crshash=&Apache::lonnet::coursedescription($cid); |
$cdom = $crshash{'domain'}; |
$cdom = $crshash{'domain'}; |
$cnum = $crshash{'num'}; |
$cnum = $crshash{'num'}; |
Line 291 sub group_changes {
|
Line 288 sub group_changes {
|
} |
} |
if (@changegroups > 0) { |
if (@changegroups > 0) { |
my %currpriv; |
my %currpriv; |
my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1}); |
my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,$cid); |
my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,$cid,undef,$extra); |
if (keys(%roleshash) > 0) { |
if (my $tmp = &Apache::lonnet::error(%roleshash)) { |
|
&Apache::lonnet::logthis('Error retrieving roles: '.$tmp. |
|
' for '.$uname.':'.$udom); |
|
} else { |
|
my $group_privs = ''; |
my $group_privs = ''; |
foreach my $group (@changegroups) { |
foreach my $group (@changegroups) { |
if ($chgtype eq 'add') { |
if ($chgtype eq 'add') { |