Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.352, 2006/04/23 18:31:44 | version 1.353, 2006/04/25 15:18:47 |
---|---|
Line 1948 sub plainname { | Line 1948 sub plainname { |
$name=~s/^\s+//; | $name=~s/^\s+//; |
$name=~s/\s+$//; | $name=~s/\s+$//; |
$name=~s/\s+/ /g; | $name=~s/\s+/ /g; |
if ($name !~ /\S/) { $name=$uname.'@'.$udom; } | if ($name !~ /\S/) { $name=$uname.':'.$udom; } |
return $name; | return $name; |
} | } |