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

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

version 1.35, 2003/02/19 14:05:28 version 1.39, 2003/04/02 14:57:32
Line 50  sub handler { Line 50  sub handler {
   
   
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
      ($ENV{'QUERY_STRING'},['interface','username','domain','firsturl']);       ($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'},
         ['interface','username','domain','firsturl']);
    
 # ----------------------------------------------------------- Process Interface  # ----------------------------------------------------------- Process Interface
     $ENV{'form.interface'}=~s/\W//g;      $ENV{'form.interface'}=~s/\W//g;
   
Line 76  sub handler { Line 77  sub handler {
     my $lonhost = $r->dir_config('lonHostID');      my $lonhost = $r->dir_config('lonHostID');
     my $tabdir  = $r->dir_config('lonTabDir');      my $tabdir  = $r->dir_config('lonTabDir');
     my $include = $r->dir_config('lonIncludes');      my $include = $r->dir_config('lonIncludes');
       my $expire  = $r->dir_config('lonExpire');
   
 # --------------------------------------------- Default values for login fields  # --------------------------------------------- Default values for login fields
   
Line 156  ENDTROUBLE Line 158  ENDTROUBLE
 # ----------------------------------------------- Apparently we are in business  # ----------------------------------------------- Apparently we are in business
   
     my $domainlogo=&Apache::loncommon::domainlogo();      my $domainlogo=&Apache::loncommon::domainlogo();
       $servadm=~s/\,/\<br \/\>/g;
       $sysadm=~s/\,/\<br \/\>/g;
   
 # --------------------------------------------------- Print login screen header  # --------------------------------------------------- Print login screen header
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
   <meta HTTP-EQUIV="Refresh" CONTENT="$expire; url=/adm/roles" />
 <title>The LearningOnline Network with CAPA Login</title>  <title>The LearningOnline Network with CAPA Login</title>
 </head>  </head>
 ENDHEADER  ENDHEADER
Line 203  ENDHEADER Line 209  ENDHEADER
        =this.document.client.elements.udom.value;         =this.document.client.elements.udom.value;
   
         this.document.server.elements.imagesuppress.value          this.document.server.elements.imagesuppress.value
        =this.document.client.elements.imagesuppress.value;         =this.document.client.elements.imagesuppress.checked;
   
         this.document.server.elements.embedsuppress.value          this.document.server.elements.embedsuppress.value
        =this.document.client.elements.embedsuppress.value;         =this.document.client.elements.embedsuppress.checked;
   
         this.document.server.elements.appletsuppress.value          this.document.server.elements.appletsuppress.value
        =this.document.client.elements.appletsuppress.value;         =this.document.client.elements.appletsuppress.checked;
   
         this.document.server.elements.fontenhance.value          this.document.server.elements.fontenhance.value
        =this.document.client.elements.fontenhance.value;         =this.document.client.elements.fontenhance.checked;
   
         this.document.server.elements.blackwhite.value          this.document.server.elements.blackwhite.value
        =this.document.client.elements.blackwhite.value;         =this.document.client.elements.blackwhite.checked;
   
         this.document.server.elements.remember.value          this.document.server.elements.remember.value
        =this.document.client.elements.remember.value;         =this.document.client.elements.remember.checked;
   
         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;
Removed from v.1.35  
changed lines
  Added in v.1.39

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