[BACK]Return to lonlogin.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonlogin.pm between versions 1.34 and 1.35

version 1.34, 2003/02/18 21:11:17 version 1.35, 2003/02/19 14:05:28
Line 170  ENDHEADER Line 170  ENDHEADER
     }      }
   
 # ----------------------------------------------------------- Front page design  # ----------------------------------------------------------- Front page design
     my $pgbg=&Apache::loncommon::designparm('login.pgbg');      my $pgbg=
     my $font=&Apache::loncommon::designparm('login.font');        ($fullgraph?&Apache::loncommon::designparm('login.pgbg'):'#FFFFFF');
     my $link=&Apache::loncommon::designparm('login.link');      my $font=
     my $vlink=&Apache::loncommon::designparm('login.vlink');        ($fullgraph?&Apache::loncommon::designparm('login.font'):'#000000');
       my $link=
         ($fullgraph?&Apache::loncommon::designparm('login.link'):'#0000FF');
       my $vlink=
         ($fullgraph?&Apache::loncommon::designparm('login.vlink'):'#0000FF');
     my $alink=&Apache::loncommon::designparm('login.alink');      my $alink=&Apache::loncommon::designparm('login.alink');
     my $mainbg=&Apache::loncommon::designparm('login.mainbg');      my $mainbg=
     my $sidebg=&Apache::loncommon::designparm('login.sidebg');        ($fullgraph?&Apache::loncommon::designparm('login.mainbg'):'#FFFFFF');
       my $sidebg=
         ($fullgraph?&Apache::loncommon::designparm('login.sidebg'):'#FFFFFF');
     my $logo=&Apache::loncommon::designparm('login.logo');      my $logo=&Apache::loncommon::designparm('login.logo');
     my $img=&Apache::loncommon::designparm('login.img');      my $img=&Apache::loncommon::designparm('login.img');
   
Line 211  ENDHEADER Line 217  ENDHEADER
         this.document.server.elements.blackwhite.value          this.document.server.elements.blackwhite.value
        =this.document.client.elements.blackwhite.value;         =this.document.client.elements.blackwhite.value;
   
           this.document.server.elements.remember.value
          =this.document.client.elements.remember.value;
   
         uextkey=this.document.client.elements.uextkey.value;          uextkey=this.document.client.elements.uextkey.value;
         lextkey=this.document.client.elements.lextkey.value;          lextkey=this.document.client.elements.lextkey.value;
         initkeys();          initkeys();
Line 242  ENDSCRIPT Line 251  ENDSCRIPT
    <input type="hidden" name="embedsuppress"  value="" />     <input type="hidden" name="embedsuppress"  value="" />
    <input type="hidden" name="fontenhance"  value="" />     <input type="hidden" name="fontenhance"  value="" />
    <input type="hidden" name="blackwhite"  value="" />     <input type="hidden" name="blackwhite"  value="" />
      <input type="hidden" name="remember"  value="" />
   </form>    </form>
 ENDSERVERFORM  ENDSERVERFORM
     if ($fullgraph) { $r->print(<<ENDTOP);      if ($fullgraph) { $r->print(<<ENDTOP);
Line 299  ENDSERVERFORM Line 309  ENDSERVERFORM
    <td align="center" valign="middle" bgcolor="$sidebg">     <td align="center" valign="middle" bgcolor="$sidebg">
 ENDTOP  ENDTOP
 } else {  } else {
     $r->print('<font color="#FFFFFF"><h1>The Learning<i>Online</i> Network with CAPA</h1><h1>Text-based Interface Login</h1></font>');      $r->print('<h1>The Learning<i>Online</i> Network with CAPA</h1><h2>Text-based Interface Login</h2>');
 }  }
     $r->print('<form name="client" onsubmit="return(send())">');      $r->print('<form name="client" onsubmit="return(send())">');
     unless ($fullgraph) {      unless ($fullgraph) {
         $r->print(<<ENDACCESSOPTIONS);          $r->print(<<ENDACCESSOPTIONS);
 <table bgcolor="#AAAAAA" cellspacing="3" cellpadding="3">  <h3>Select Accessibility Options</h3>
 <tr><th>Select Accessibility Options</th></tr>  
 <tr>  
 <td bgcolor="#FFFFFF">  
 <input type="checkbox" name="imagesuppress" /> Suppress rendering of images<br />  <input type="checkbox" name="imagesuppress" /> Suppress rendering of images<br />
 <input type="checkbox" name="appletsuppress" /> Suppress Java applets<br />  <input type="checkbox" name="appletsuppress" /> Suppress Java applets<br />
 <input type="checkbox" name="embedsuppress" /> Suppress rendering of embedded multimedia<br />  <input type="checkbox" name="embedsuppress" /> Suppress rendering of embedded multimedia<br />
 <input type="checkbox" name="fontenhance" /> Increase font size<br />  <input type="checkbox" name="fontenhance" /> Increase font size<br />
 <input type="checkbox" name="blackwhite" /> Switch to black and white mode<br /></td></tr></table>  <input type="checkbox" name="blackwhite" /> Switch to black and white mode<br />
   <p>If you have accessibility needs that are not addressed by this interface, 
   please
   contact the system administrator at <tt>$sysadm</tt>.</p><br />
   <input type="checkbox" name="remember" /> Remember these settings for next login<hr />
 ENDACCESSOPTIONS  ENDACCESSOPTIONS
 } else {  } else {
     $r->print(<<ENDNOOPT);      $r->print(<<ENDNOOPT);
Line 321  ENDACCESSOPTIONS Line 332  ENDACCESSOPTIONS
 <input type="hidden" name="appletsuppress"  value="" />  <input type="hidden" name="appletsuppress"  value="" />
 <input type="hidden" name="fontenhance"  value="" />  <input type="hidden" name="fontenhance"  value="" />
 <input type="hidden" name="blackwhite"  value="" />  <input type="hidden" name="blackwhite"  value="" />
   <input type="hidden" name="remember"  value="" />
 ENDNOOPT  ENDNOOPT
 }  }
     $r->print(<<ENDLOGIN);      $r->print(<<ENDLOGIN);
Removed from v.1.34  
changed lines
  Added in v.1.35

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>