--- loncom/interface/loncommon.pm 2004/07/15 18:50:37 1.199
+++ loncom/interface/loncommon.pm 2004/07/19 21:00:53 1.201
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.199 2004/07/15 18:50:37 albertel Exp $
+# $Id: loncommon.pm,v 1.201 2004/07/19 21:00:53 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -650,7 +650,7 @@ sub help_open_menu {
$width = 620 if (not defined $width);
$height = 600 if (not defined $height);
my $link='';
- my $title = &mt('Choose your help');
+ my $title = &mt('Get help');
my $origurl = $ENV{'REQUEST_URI'};
my $timestamp = time;
foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) {
@@ -1787,9 +1787,11 @@ sub screenname {
# ------------------------------------------------------------- Message Wrapper
sub messagewrapper {
- my ($link,$un,$do)=@_;
+ my ($link,$username,$domain)=@_;
return
-"$link";
+ ''.$link.'';
}
# --------------------------------------------------------------- Notes Wrapper
@@ -1802,8 +1804,8 @@ sub noteswrapper {
sub aboutmewrapper {
my ($link,$username,$domain,$target)=@_;
- return "$link";
+ return ''.$link.'';
}
# ------------------------------------------------------------ Syllabus Wrapper