|
version 1.997, 2009/05/08 01:43:50
|
version 1.998, 2009/05/08 12:45:28
|
|
Line 2744 sub get_course_adv_roles {
|
Line 2744 sub get_course_adv_roles {
|
| if ($username eq '' || $domain eq '') { next; } |
if ($username eq '' || $domain eq '') { next; } |
| unless (ref($privileged{$domain}) eq 'HASH') { |
unless (ref($privileged{$domain}) eq 'HASH') { |
| my %dompersonnel = |
my %dompersonnel = |
| &Apache::lonnet::get_domain_roles($domain,['dc'],undef,$now); |
&Apache::lonnet::get_domain_roles($domain,['dc'],$now,$now); |
| $privileged{$domain} = {}; |
$privileged{$domain} = {}; |
| foreach my $server (keys(%dompersonnel)) { |
foreach my $server (keys(%dompersonnel)) { |
| if(ref($dompersonnel{$server}) eq 'HASH') { |
if(ref($dompersonnel{$server}) eq 'HASH') { |
![[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