|
version 1.28, 2012/04/25 21:22:02
|
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 292 sub group_changes {
|
Line 289 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); |
| if (my $tmp = &Apache::lonnet::error(%roleshash)) { |
if (keys(%roleshash) > 0) { |
| &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') { |
![[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