version 1.36, 2003/02/20 01:35:27
|
version 1.38, 2003/03/10 14:29:37
|
Line 76 sub handler {
|
Line 76 sub handler {
|
my $lonhost = $r->dir_config('lonHostID'); |
my $lonhost = $r->dir_config('lonHostID'); |
my $tabdir = $r->dir_config('lonTabDir'); |
my $tabdir = $r->dir_config('lonTabDir'); |
my $include = $r->dir_config('lonIncludes'); |
my $include = $r->dir_config('lonIncludes'); |
|
my $expire = $r->dir_config('lonExpire'); |
|
|
# --------------------------------------------- Default values for login fields |
# --------------------------------------------- Default values for login fields |
|
|
Line 156 ENDTROUBLE
|
Line 157 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> |
<head> |
<head> |
|
<meta HTTP-EQUIV="Refresh" CONTENT="$expire; url=/adm/roles" /> |
<title>The LearningOnline Network with CAPA Login</title> |
<title>The LearningOnline Network with CAPA Login</title> |
</head> |
</head> |
ENDHEADER |
ENDHEADER |