--- loncom/interface/loncommon.pm	2002/08/27 16:49:20	1.61
+++ loncom/interface/loncommon.pm	2002/08/28 14:11:27	1.62
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.61 2002/08/27 16:49:20 www Exp $
+# $Id: loncommon.pm,v 1.62 2002/08/28 14:11:27 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -939,8 +939,11 @@ sub plainname {
     my %names=&Apache::lonnet::get('environment',
                     ['firstname','middlename','lastname','generation'],
 					 $udom,$uname);
-    return $names{'firstname'}.' '.$names{'middlename'}.' '.
+    my $name=$names{'firstname'}.' '.$names{'middlename'}.' '.
 	$names{'lastname'}.' '.$names{'generation'};
+    $name=~s/\s+$//;
+    $name=~s/\s+/ /g;
+    return $name;
 }
 
 # ------------------------------------------------------------------ Screenname
@@ -952,6 +955,28 @@ sub screenname {
     return $names{'screenname'};
 }
 
+# ------------------------------------------------------------- Message Wrapper
+
+sub messagewrapper {
+    my ($link,$un,$do)=@_;
+    return 
+"<a href='/adm/email?compose=individual&recname=$un&recdom=$do'>$link</a>";
+}
+# ------------------------------------------------------------- Aboutme Wrapper
+
+sub aboutmewrapper {
+    my ($link,$un,$do)=@_;
+    return "<a href='/adm/$do/$un/aboutme'>$link</a>";
+}
+
+# ------------------------------------------------------------ Syllabus Wrapper
+
+
+sub syllabuswrapper {
+    my ($link,$un,$do)=@_;
+    return "<a href='/public/$do/$un/syllabus'>$link</a>";
+}
+
 # ---------------------------------------------------------------- Language IDs
 sub languageids {
     return sort(keys(%language));