|
version 1.37, 2003/03/02 02:16:53
|
version 1.39, 2003/04/02 14:57:32
|
|
Line 50 sub handler {
|
Line 50 sub handler {
|
| |
|
| |
|
| &Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
| ($ENV{'QUERY_STRING'},['interface','username','domain','firsturl']); |
($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'}, |
| |
['interface','username','domain','firsturl']); |
| |
|
| # ----------------------------------------------------------- Process Interface |
# ----------------------------------------------------------- Process Interface |
| $ENV{'form.interface'}=~s/\W//g; |
$ENV{'form.interface'}=~s/\W//g; |
| |
|
|
Line 157 ENDTROUBLE
|
Line 158 ENDTROUBLE
|
| # ----------------------------------------------- Apparently we are in business |
# ----------------------------------------------- Apparently we are in business |
| |
|
| my $domainlogo=&Apache::loncommon::domainlogo(); |
my $domainlogo=&Apache::loncommon::domainlogo(); |
| |
$servadm=~s/\,/\<br \/\>/g; |
| |
$sysadm=~s/\,/\<br \/\>/g; |
| |
|
| # --------------------------------------------------- Print login screen header |
# --------------------------------------------------- Print login screen header |
| $r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
| <html> |
<html> |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogin.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth