![[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|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.976.2.8, 2009/05/13 03:28:41 | version 1.976.2.9, 2009/05/15 20:31:04 |
|---|---|
| Line 2715 sub get_my_roles { | Line 2715 sub get_my_roles { |
| } | } |
| my %returnhash=(); | my %returnhash=(); |
| my $now=time; | my $now=time; |
| my %privileged; | |
| foreach my $entry (keys(%dumphash)) { | foreach my $entry (keys(%dumphash)) { |
| my ($role,$tend,$tstart); | my ($role,$tend,$tstart); |
| if ($context eq 'userroles') { | if ($context eq 'userroles') { |