[LON-CAPA-cvs] cvs: loncom /auth lonlogin.pm

[muellerd]

muellerd		Wed Dec 10 15:45:38 2008 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  - moving $textcol and $bgcol to loncommon 
  - changing size of input fields
  - removed fieldset and legend
  
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.111 loncom/auth/lonlogin.pm:1.112
--- loncom/auth/lonlogin.pm:1.111	Wed Dec 10 10:14:55 2008
+++ loncom/auth/lonlogin.pm	Wed Dec 10 15:45:38 2008
@@ -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 @@
 # ----------------------------------------------------------- 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 $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 @@
 }
 my $logintitle;
 if ($loginheader eq 'text') {
-    $logintitle = $lt{'log'};
+    $logintitle ='<h1>'.$lt{'log'}.'</h1>';
 } else {
     $logintitle = '<img src="'.$login.'" alt="'.
                   &mt('User Authentication').'" />';
@@ -404,11 +393,11 @@
   <input type="hidden" name="lextkey" value="$lextkey">
   <input type="hidden" name="uextkey" value="$uextkey">
   <b><label for="uname">$lt{'un'}</label>:</b><br />
-  <input type="text" name="uname" size="10" value="$authusername" /><br />
+  <input type="text" name="uname" size="20" value="$authusername" /><br />
   <b><label for="upass$now">$lt{'pw'}</label>:</b><br />
-  <input type="password" name="upass$now" size="10" /><br />
+  <input type="password" name="upass$now" size="20" /><br />
   <b><label for="udom">$lt{'dom'}</label>:</b><br />
-  <input type="text" name="udom" size="10" value="$authdomain" /><br />
+  <input type="text" name="udom" size="20" value="$authdomain" /><br />
   <input type="submit" value="$lt{'log'}" />
 </form>
 LFORM
@@ -431,21 +420,17 @@
                   '    <img src="'.$logo.'" alt="" />'."\n");
     }
     $r->print(<<ENDTOP);
+<div class="LC_loginpage_loginDomain">$domainlogo</div>
 <div class="LC_loginpage_loginContainer">
- <fieldset class="LC_loginpage_fieldset">
-  <legend class="LC_loginpage_legend">$logintitle</legend>
-   <table border="0" align="left" cellspacing="1" cellpadding="1" width="100%">
+  $logintitle
+   <table border="0" align="left" cellspacing="1" cellpadding="2" width="100%">
       <tr>
-   	   <td width="50%" align="center" valign="top">
-		$domainlogo
-	   </td>
 	   <td>
 		$loginform
            </td>
       </tr>
    </table>   	
    $noscript_warning
- </fieldset>
 </div>
   
 <div class="LC_loginpage_loginInfo">