[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[albertel]

albertel		Fri Apr 30 19:04:53 2004 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - if there isn't a plain name send back username @ domain
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.189 loncom/interface/loncommon.pm:1.190
--- loncom/interface/loncommon.pm:1.189	Wed Apr 21 16:46:58 2004
+++ loncom/interface/loncommon.pm	Fri Apr 30 19:04:53 2004
@@ -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 @@
 	$names{'lastname'}.' '.$names{'generation'};
     $name=~s/\s+$//;
     $name=~s/\s+/ /g;
+    if ($name !~ /\S/) { $name=$uname.'@'.$udom; }
     return $name;
 }