--- loncom/interface/Attic/londropadd.pm	2001/08/07 14:07:36	1.14
+++ loncom/interface/Attic/londropadd.pm	2001/08/24 21:09:53	1.15
@@ -260,6 +260,10 @@ function verify(vf) {
             return;
         }
     }
+    if (vf.login[2].checked) {
+	foundatype=1;
+	//An argument is not required
+    }
     if (foundatype==0) {
 	alert('You need to set the login type');
         return;
@@ -318,6 +322,7 @@ function flip(vf,tf) {
        vf.login[1].checked=true;
        vf.intpwd.value='';
        vf.krbdom.value='';
+       vf.locarg.value='';
    }
 
 }
@@ -434,13 +439,22 @@ ENDPICK
 <input type=hidden name=nfields value=$i>
 <input type=hidden name=keyfields value="$keyfields">
 <h3>Login Type</h3>
-Note: this will not take effect if the user already exists<p>
-<input type=radio name=login value=krb onClick="clickkrb(this.form);">
+<p>Note: this will not take effect if the user already exists</p>
+<p>
+<input type=radio name=login value=krb onClick="clickkrb(this.form);" />
 Kerberos authenticated with domain
-<input type=text size=10 name=krbdom onChange="setkrb(this.form);"><p>
-<input type=radio name=login value=int onClick="clickint(this.form);"> 
+<input type=text size=10 name=krbdom onChange="setkrb(this.form);" />
+</p>
+<p>
+<input type=radio name=login value=int onClick="clickint(this.form);" />
 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>
+<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>
 <h3>LON-CAPA Domain for Students</h3>
 LON-CAPA domain: <input type=text size=10 value=$defdom name=lcdomain><p>
 <h3>Starting and Ending Dates</h3>
@@ -479,7 +493,11 @@ sub enroll_single_student {
         } elsif ($ENV{'form.login'} eq 'int') {
            $amode='internal';
            $genpwd=$ENV{'form.intpwd'};
-        }
+        }  elsif ($ENV{'form.login'} eq 'loc') {
+	    $amode='localauth';
+	    $genpwd=$ENV{'form.locarg'};
+	    if (!$genpwd) { $genpwd=" "; }
+	}
         if (($amode) && ($genpwd)) {
  	  &dropstudent($ENV{'form.cdomain'},$ENV{'form.cuname'},
 		       $ENV{'request.course.id'},$ENV{'form.csec'});
@@ -555,6 +573,10 @@ function verify(vf) {
             return;
         }
     }
+    if (vf.login[2].checked) {
+	foundatype=1;
+	//An argument is not required
+    }
     if (foundatype==0) {
 	alert('You need to set the login type');
         return;
@@ -591,6 +613,7 @@ function setkrb(vf) {
        vf.login[0].checked=true;
        vf.krbdom.value=vf.krbdom.value.toUpperCase();
        vf.intpwd.value='';
+       vf.locarg.value='';
    }
 }
 
@@ -598,16 +621,32 @@ function setint(vf) {
     if (vf.intpwd.value!='') {
        vf.login[1].checked=true;
        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) {
     vf.krbdom.value='$krbdefdom';
     vf.intpwd.value='';
+    vf.locarg.value='';
 }
 
 function clickint(vf) {
     vf.krbdom.value='';
+    vf.locarg.value='';
+}
+
+function clickloc(vf) {
+    vf.krbdom.value='';
+    vf.intpwd.value='';
 }
 
     function pclose() {
@@ -659,7 +698,11 @@ Kerberos authenticated with domain
 <input type=radio name=login value=int onClick="clickint(this.form);"> 
 Internally authenticated (with initial password 
 <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>
 <h3>Starting and Ending Dates</h3>
 <input type="hidden" value='' name="pres_value">
 <input type="hidden" value='' name="pres_type">
@@ -770,7 +813,12 @@ sub upfile_drop_add {
                  if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) {
 		     $genpwd=$ENV{'form.intpwd'};
                  }
-             }
+             } elsif ($ENV{'form.login'} eq 'loc') {
+		 $amode='localauth';
+		 if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {
+		     $genpwd=$ENV{'form.locarg'};
+                 }
+	     }
              unless (($domain=~/\W/) || ($amode eq '')) {
               $r->print('<h3>Enrolling Students</h3>');
               my $count=0;