--- loncom/auth/lonlogin.pm 2008/12/10 10:14:55 1.111 +++ loncom/auth/lonlogin.pm 2008/12/10 15:45:38 1.112 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.111 2008/12/10 10:14:55 muellerd Exp $ +# $Id: lonlogin.pm,v 1.112 2008/12/10 15:45:38 muellerd Exp $ # # Copyright Michigan State University Board of Trustees # @@ -102,15 +102,8 @@ sub handler { # ----------------------------------------------------------- Process Interface $env{'form.interface'}=~s/\W//g; - # my $textbrowsers=$r->dir_config('lonTextBrowsers'); my $httpbrowser=$ENV{"HTTP_USER_AGENT"}; - # foreach (split(/\:/,$textbrowsers)) { -# if ($httpbrowser=~/$_/i) { -# $env{'form.interface'}='textual'; -# } -# } - my $fullgraph=($env{'form.interface'} ne 'textual'); my $iconpath= @@ -253,10 +246,6 @@ my $vlink= my $alink=&Apache::loncommon::designparm('login.alink',$domain); my $mainbg= ($fullgraph?&Apache::loncommon::designparm('login.mainbg',$domain):'#FFFFFF'); -my $textcol = -($fullgraph?&Apache::loncommon::designparm('login.textcol',$domain):'#000000'); -my $bgcol = -($fullgraph?&Apache::loncommon::designparm('login.bgcol',$domain):'#FFFFFF'); my $logo=&Apache::loncommon::designparm('login.logo',$domain); my $img=&Apache::loncommon::designparm('login.img',$domain); my $domainlogo=&Apache::loncommon::domainlogo($domain); @@ -386,7 +375,7 @@ if ($shownewuserlink) { } my $logintitle; if ($loginheader eq 'text') { - $logintitle = $lt{'log'}; + $logintitle ='

'.$lt{'log'}.'

'; } else { $logintitle = ''.
                   &mt('User Authentication').''; @@ -404,11 +393,11 @@ my $loginform=(< :
-
+
:
-
+
:
-
+
LFORM @@ -431,21 +420,17 @@ HEADER ' '."\n"); } $r->print(<$domainlogo
-
- $logintitle - + $logintitle +
-
- $domainlogo - $loginform
$noscript_warning -