--- loncom/auth/lonlogin.pm 2008/11/22 19:07:02 1.107 +++ loncom/auth/lonlogin.pm 2008/11/23 11:01:01 1.108 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.107 2008/11/22 19:07:02 tempelho Exp $ +# $Id: lonlogin.pm,v 1.108 2008/11/23 11:01:01 tempelho Exp $ # # Copyright Michigan State University Board of Trustees # @@ -311,7 +311,7 @@ my %add_entries = (topmargin => "0", leftmargin => "0", marginheight => "0", marginwidth => "0", - bgcolor => "$pgbg", + bgcolor => "$mainbg", text => "$font", link => "$link", vlink => "$vlink", @@ -376,66 +376,75 @@ $r->print(< ENDSERVERFORM - my $coursecatalog; - if (($showcoursecat eq '') || ($showcoursecat)) { - $coursecatalog = &coursecatalog_link($lt{'catalog'}); - } - my $newuserlink; - if ($shownewuserlink) { - $newuserlink = &newuser_link($lt{'newuser'}); - } - my $logintitle; - if ($loginheader eq 'text') { - $logintitle = $lt{'log'}; - } else { - $logintitle = ''.
-                      &mt('User Authentication').''; - } - - my $noscript_warning=''; - my $helpdeskscript; - my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail, - $version,$authdomain,\$helpdeskscript); - - if ($fullgraph) { - $r->print(< +my $coursecatalog; +if (($showcoursecat eq '') || ($showcoursecat)) { + $coursecatalog = &coursecatalog_link($lt{'catalog'}); +} +my $newuserlink; +if ($shownewuserlink) { + $newuserlink = &newuser_link($lt{'newuser'}); +} +my $logintitle; +if ($loginheader eq 'text') { + $logintitle = $lt{'log'}; +} else { + $logintitle = ''.
+                  &mt('User Authentication').''; +} + +my $noscript_warning=''; +my $helpdeskscript; +my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail, + $version,$authdomain,\$helpdeskscript); +my $loncapaheader=(< - - - + + +
The Learning Online Network with CAPA
+ The Learning Online Network with CAPA +
+HEADER -
 
+my $loginform=(< + + + :
+
+ :
+
+ :
+
+ + +LFORM + +if ($fullgraph) { +$r->print(<  -
-$logintitle - - - - - -
$domainlogo -ENDTOP - -$r->print('
'); -$r->print(< - - :
-
- :
-
- :
-
- - -
-$noscript_warning -
+
+
+ $logintitle + + + + + +
+ $domainlogo + + $loginform +
+ $noscript_warning +
+
$loginhelp
@@ -445,18 +454,16 @@ $noscript_warning $lt{'about'}
$helpdeskscript
+
 
$announcements -ENDTOPP +ENDTOP } -if($announcements){$r->print('
 
');} - - if ($fullgraph) { - - $r->print(<print('
 
');} +if ($fullgraph) { +$r->print(<