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

Diff for /loncom/interface/loncreateuser.pm between versions 1.17 and 1.18

version 1.17, 2001/05/10 21:13:04 version 1.18, 2001/08/24 21:09:53
Line 127  function setkrb(vf) { Line 127  function setkrb(vf) {
        vf.login[0].checked=true;         vf.login[0].checked=true;
        vf.krbdom.value=vf.krbdom.value.toUpperCase();         vf.krbdom.value=vf.krbdom.value.toUpperCase();
        vf.intpwd.value='';         vf.intpwd.value='';
          vf.locarg.value='';
    }     }
 }  }
   
Line 134  function setint(vf) { Line 135  function setint(vf) {
     if (vf.intpwd.value!='') {      if (vf.intpwd.value!='') {
        vf.login[1].checked=true;         vf.login[1].checked=true;
        vf.krbdom.value='';         vf.krbdom.value='';
          vf.locarg.value='';
      }
   }
   
   function setloc(vf) {
       if (vf.locarg.value!='') {
          vf.login[2].checked=true;
          vf.krbdom.value='';
          vf.intpwd.value='';
    }     }
 }  }
   
 function clickkrb(vf) {  function clickkrb(vf) {
     vf.krbdom.value='$krbdefdom';      vf.krbdom.value='$krbdefdom';
     vf.intpwd.value='';      vf.intpwd.value='';
       vf.locarg.value='';
 }  }
   
 function clickint(vf) {  function clickint(vf) {
     vf.krbdom.value='';      vf.krbdom.value='';
       vf.locarg.value='';
   }
   
   function clickloc(vf) {
       vf.krbdom.value='';
       vf.intpwd.value='';
 }  }
 </script>  </script>
 <input type=hidden name=makeuser value=1>  <input type=hidden name=makeuser value=1>
Line 162  Kerberos authenticated with domain Line 179  Kerberos authenticated with domain
 <input type=radio name=login value=int onClick="clickint(this.form);">   <input type=radio name=login value=int onClick="clickint(this.form);"> 
 Internally authenticated (with initial password   Internally authenticated (with initial password 
 <input type=text size=10 name=intpwd onChange="setint(this.form);">)  <input type=text size=10 name=intpwd onChange="setint(this.form);">)
   <p>
   <input type=radio name=login value=loc onClick="clickloc(this.form);" />
   Local Authentication with argument
   <input type=text size=10 name=locarg onChange="setloc(this.form);" />
   </p>
 ENDNUSER  ENDNUSER
     } else {      } else {
  $r->print('<h2>Existing user '.$ccuname.' at '.$ccdomain.'</h2>');   $r->print('<h2>Existing user '.$ccuname.' at '.$ccdomain.'</h2>');
Line 355  ENDTHREEHEAD Line 377  ENDTHREEHEAD
         } elsif ($ENV{'form.login'} eq 'int') {          } elsif ($ENV{'form.login'} eq 'int') {
            $amode='internal';             $amode='internal';
            $genpwd=$ENV{'form.intpwd'};             $genpwd=$ENV{'form.intpwd'};
         }          } elsif ($ENV{'form.login'} eq 'loc') {
       $amode='localauth';
       $genpwd=$ENV{'form.locarg'};
       if (!$genpwd) { $genpwd=" "; }
    }
         if (($amode) && ($genpwd)) {          if (($amode) && ($genpwd)) {
           $r->print('Generating user: '.&Apache::lonnet::modifyuser(            $r->print('Generating user: '.&Apache::lonnet::modifyuser(
                       $ENV{'form.cdomain'},$ENV{'form.cuname'},                        $ENV{'form.cdomain'},$ENV{'form.cuname'},
Removed from v.1.17  
changed lines
  Added in v.1.18

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