--- loncom/interface/loncommon.pm	2004/04/21 20:46:58	1.189
+++ loncom/interface/loncommon.pm	2004/04/30 23:04:53	1.190
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.189 2004/04/21 20:46:58 matthew Exp $
+# $Id: loncommon.pm,v 1.190 2004/04/30 23:04:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1651,6 +1651,7 @@ sub plainname {
 	$names{'lastname'}.' '.$names{'generation'};
     $name=~s/\s+$//;
     $name=~s/\s+/ /g;
+    if ($name !~ /\S/) { $name=$uname.'@'.$udom; }
     return $name;
 }