--- loncom/lond	2001/08/24 19:25:46	1.49
+++ loncom/lond	2001/08/24 21:09:53	1.50
@@ -477,7 +477,7 @@ sub make_new_child {
                                  Authen::Krb4::get_pw_in_tkt($uname,"",
                                         $contentpwd,'krbtgt',$contentpwd,1,
 							     $upass) == 0);
-			  } elsif ($howpwd eq 'localauth') {
+                          } elsif ($howpwd eq 'localauth') {
 			    $pwdcorrect=&localauth::localauth($uname,$upass,
 							      $contentpwd);
 			  }
@@ -567,8 +567,14 @@ sub make_new_child {
                                { 
                                  my $pf = IO::File->new(">$passfilename");
  	  		         print $pf "internal:$ncpass\n"; 
-                               }             
+                               }
                                print $client "ok\n";
+			     } elsif ($umode eq 'localauth') {
+			       {
+				 my $pf = IO::File->new(">$passfilename");
+  	  		         print $pf "localauth:$npass\n";
+			       }
+			       print $client "ok\n";
                              } elsif ($umode eq 'none') {
                                { 
                                  my $pf = IO::File->new(">$passfilename");