--- loncom/lonnet/perl/lonnet.pm	2003/07/01 20:45:17	1.384
+++ loncom/lonnet/perl/lonnet.pm	2003/07/02 15:25:46	1.385
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.384 2003/07/01 20:45:17 albertel Exp $
+# $Id: lonnet.pm,v 1.385 2003/07/02 15:25:46 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2800,10 +2800,10 @@ sub modifyuser {
     } else {
         %names = @tmp;
     }
-    if ($first)  { $names{'firstname'}  = $first; }
-    if ($middle) { $names{'middlename'} = $middle; }
-    if ($last)   { $names{'lastname'}   = $last; }
-    if ($gene)   { $names{'generation'} = $gene; }
+    if (defined($first))  { $names{'firstname'}  = $first; }
+    if (defined($middle)) { $names{'middlename'} = $middle; }
+    if (defined($last))   { $names{'lastname'}   = $last; }
+    if (defined($gene))   { $names{'generation'} = $gene; }
     my $reply = &put('environment', \%names, $udom,$uname);
     if ($reply ne 'ok') { return 'error: '.$reply; }
     &logthis('Success modifying user '.$udom.', '.$uname.', '.$uid.', '.