--- loncom/auth/lonlogin.pm 2009/12/04 13:50:48 1.131 +++ loncom/auth/lonlogin.pm 2010/02/08 13:28:40 1.132 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.131 2009/12/04 13:50:48 jms Exp $ +# $Id: lonlogin.pm,v 1.132 2010/02/08 13:28:40 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -274,7 +274,7 @@ my $alink=&Apache::loncommon::designparm my $mainbg=&Apache::loncommon::designparm('login.mainbg',$domain); my $logo=&Apache::loncommon::designparm('login.logo',$domain); my $img=&Apache::loncommon::designparm('login.img',$domain); -my $domainlogo=&Apache::loncommon::domainlogo($domain); +my $domainlogo='
'.&Apache::loncommon::domainlogo($domain).'
'; my $login=&Apache::loncommon::designparm('login.login',$domain); if ($login eq '') { $login = $iconpath.'/'.&mt('userauthentication.gif'); @@ -363,7 +363,9 @@ my %lt=&Apache::lonlocal::texthash( # -------------------------------------------------- Change password field name my $forgotpw = &forgotpwdisplay(%lt); +$forgotpw .= '
' if $forgotpw; my $loginhelp = &loginhelpdisplay(%lt); +$loginhelp .= '
' if $loginhelp; # ---------------------------------------------------- Serve out DES JavaScript { @@ -395,11 +397,11 @@ $r->print(<'; } my $newuserlink; if ($shownewuserlink) { - $newuserlink = &newuser_link($lt{'newuser'}); + $newuserlink = &newuser_link($lt{'newuser'}).'
'; } my $logintitle; if ($loginheader eq 'text') { @@ -414,7 +416,7 @@ my $noscript_warning=''; my $helpdeskscript; my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail, - $version,$authdomain,\$helpdeskscript); + $authdomain,\$helpdeskscript); my $loginform=(< @@ -433,13 +435,9 @@ LFORM if ($showbanner) { $r->print(< - - - - -
- The Learning Online Network with CAPA -
+
+ The Learning Online Network with CAPA +
HEADER } $r->print(<
- $loginhelp
- $forgotpw
-
- $contactblock
-
- $newuserlink
+ $loginhelp + $forgotpw + $contactblock + $newuserlink $coursecatalog
@@ -481,7 +477,7 @@ $r->print(< -    $lt{'dom'}:  + $lt{'dom'}:   $domain @@ -489,7 +485,7 @@ $r->print(< -    $lt{'serv'}:  + $lt{'serv'}:   $lonhost ($role) @@ -497,7 +493,7 @@ $r->print(< -    $lt{'load'}:  + $lt{'load'}:   $loadpercent $lt{'perc'} @@ -505,12 +501,17 @@ $r->print(< -    $lt{'userload'}:  + $lt{'userload'}:   $userloadpercent $lt{'perc'} + + + $version + + @@ -543,7 +544,7 @@ sub redirect_page { } sub contactdisplay { - my ($lt,$servadm,$showadminmail,$version,$authdomain,$helpdeskscript) = @_; + my ($lt,$servadm,$showadminmail,$authdomain,$helpdeskscript) = @_; my $contactblock; my $showhelpdesk = 0; my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; @@ -573,7 +574,6 @@ function helpdesk() { ENDSCRIPT } - $contactblock .= $version; return $contactblock; }