![[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.1211, 2013/02/02 03:29:33 | version 1.1212, 2013/02/05 21:32:49 |
|---|---|
| Line 634 sub check_for_valid_session { | Line 634 sub check_for_valid_session { |
| || !defined($disk_env{'user.domain'})) { | || !defined($disk_env{'user.domain'})) { |
| return undef; | return undef; |
| } | } |
| if ($r->user() eq '') { | |
| if ($disk_env{'user.domain'} eq $r->dir_config('lonDefDomain')) { | |
| $r->user($disk_env{'user.name'}); | |
| } else { | |
| $r->user($disk_env{'user.name'}.':'.$disk_env{'user.domain'}); | |
| } | |
| } | |
| return $handle; | return $handle; |
| } | } |