|
version 1.752, 2006/06/22 13:06:50
|
version 1.753, 2006/06/22 13:16:09
|
|
Line 4707 sub parse_access_controls {
|
Line 4707 sub parse_access_controls {
|
| if ($entry eq 'scope') { |
if ($entry eq 'scope') { |
| my $type = $token->[2]{'type'}; |
my $type = $token->[2]{'type'}; |
| if (($type eq 'course') || ($type eq 'group')) { |
if (($type eq 'course') || ($type eq 'group')) { |
| %{$content{'roles'}} = (); |
$content{'roles'} = {}; |
| } |
} |
| } elsif ($entry eq 'roles') { |
} elsif ($entry eq 'roles') { |
| $role_id = $token->[2]{id}; |
$role_id = $token->[2]{id}; |
| %{$content{$entry}{$role_id}} = ( |
$content{$entry}{$role_id}} = { |
| role => [], |
role => [], |
| access => [], |
access => [], |
| section => [], |
section => [], |
| group => [], |
group => [], |
| ); |
}; |
| } elsif ($entry eq 'users') { |
} elsif ($entry eq 'users') { |
| %{$content{'users'}} = (); |
$content{'users'} = {}; |
| $usercount = 0; |
$usercount = 0; |
| } elsif ($entry eq 'user') { |
} elsif ($entry eq 'user') { |
| $user = ''; |
$user = ''; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl