Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.189, 2004/04/21 20:46:58 | version 1.190, 2004/04/30 23:04:53 |
---|---|
Line 1651 sub plainname { | Line 1651 sub plainname { |
$names{'lastname'}.' '.$names{'generation'}; | $names{'lastname'}.' '.$names{'generation'}; |
$name=~s/\s+$//; | $name=~s/\s+$//; |
$name=~s/\s+/ /g; | $name=~s/\s+/ /g; |
if ($name !~ /\S/) { $name=$uname.'@'.$udom; } | |
return $name; | return $name; |
} | } |