--- 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
+"$link";
+}
+# ------------------------------------------------------------- Aboutme Wrapper
+
+sub aboutmewrapper {
+ my ($link,$un,$do)=@_;
+ return "$link";
+}
+
+# ------------------------------------------------------------ Syllabus Wrapper
+
+
+sub syllabuswrapper {
+ my ($link,$un,$do)=@_;
+ return "$link";
+}
+
# ---------------------------------------------------------------- Language IDs
sub languageids {
return sort(keys(%language));