--- loncom/lonnet/perl/lonnet.pm	2003/08/22 16:07:11	1.404
+++ loncom/lonnet/perl/lonnet.pm	2003/08/26 04:56:30	1.406
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.404 2003/08/22 16:07:11 albertel Exp $
+# $Id: lonnet.pm,v 1.406 2003/08/26 04:56:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -245,6 +245,16 @@ sub critical {
     }
     return $answer;
 }
+
+# -------------- Remove all key from the env that start witha lowercase letter
+#                (Which is alweways a lon-capa value)
+sub cleanenv {
+    foreach my $key (keys(%ENV)) {
+	if ($key =~ /^[a-z]/) {
+	    delete($ENV{$key});
+	}
+    }
+}
  
 # ------------------------------------------- Transfer profile into environment
 
@@ -2799,7 +2809,8 @@ sub modifyuser {
              ' in domain '.$ENV{'request.role.domain'});
     my $uhome=&homeserver($uname,$udom,'true');
 # ----------------------------------------------------------------- Create User
-    if (($uhome eq 'no_host') && ($umode) && ($upass)) {
+    if (($uhome eq 'no_host') && 
+	(($umode && $upass) || ($umode eq 'localauth'))) {
         my $unhome='';
         if (defined($desiredhome) && $hostdom{$desiredhome} eq $udom) { 
             $unhome = $desiredhome;