|
version 1.349, 2003/03/24 18:18:09
|
version 1.350, 2003/03/24 19:57:35
|
|
Line 1119 sub userrolelog {
|
Line 1119 sub userrolelog {
|
| if (($trole=~/^ca/) || ($trole=~/^in/) || |
if (($trole=~/^ca/) || ($trole=~/^in/) || |
| ($trole=~/^cc/) || ($trole=~/^ep/) || |
($trole=~/^cc/) || ($trole=~/^ep/) || |
| ($trole=~/^cr/)) { |
($trole=~/^cr/)) { |
| my (undef,$rudom,$runame)=split(/\//,$area); |
my (undef,$rudom,$runame,$rsec)=split(/\//,$area); |
| $userrolehash{$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom} |
$userrolehash |
| |
{$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom.':'.$rsec} |
| =$tend.':'.$tstart; |
=$tend.':'.$tstart; |
| } |
} |
| } |
} |
![[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