![[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.938, 2008/01/18 02:18:07 | version 1.939, 2008/01/21 20:21:28 |
|---|---|
| Line 2462 sub get_my_roles { | Line 2462 sub get_my_roles { |
| } | } |
| if (($tstart) && ($tstart<0)) { next; } | if (($tstart) && ($tstart<0)) { next; } |
| my $status = 'active'; | my $status = 'active'; |
| if (($tend) && ($tend<$now)) { | if (($tend) && ($tend<=$now)) { |
| $status = 'previous'; | $status = 'previous'; |
| } | } |
| if (($tstart) && ($now<$tstart)) { | if (($tstart) && ($now<$tstart)) { |