|
version 1.47, 2003/04/03 16:50:46
|
version 1.48, 2003/04/07 18:24:05
|
|
Line 130 sub success {
|
Line 130 sub success {
|
| print $idf "request.course.uri=\n"; |
print $idf "request.course.uri=\n"; |
| print $idf "request.course.sec=\n"; |
print $idf "request.course.sec=\n"; |
| print $idf "request.role=cm\n"; |
print $idf "request.role=cm\n"; |
| |
print $idf "request.role.adv=$ENV{'user.adv'}\n"; |
| print $idf "request.host=$ENV{'REMOTE_ADDR'}\n"; |
print $idf "request.host=$ENV{'REMOTE_ADDR'}\n"; |
| if ($FORM{'interface'}) { |
if ($FORM{'interface'}) { |
| $FORM{'interface'}=~s/\W//gs; |
$FORM{'interface'}=~s/\W//gs; |
|
Line 147 sub success {
|
Line 148 sub success {
|
| $idf->close(); |
$idf->close(); |
| } |
} |
| $ENV{'request.role'}='cm'; |
$ENV{'request.role'}='cm'; |
| |
$ENV{'request.role.adv'}=$ENV{'user.adv'}; |
| $ENV{'browser.type'}=$clientbrowser; |
$ENV{'browser.type'}=$clientbrowser; |
| # -------------------------------------------------------------------- Log this |
# -------------------------------------------------------------------- Log this |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonauth.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth