--- loncom/interface/lonpreferences.pm 2003/06/20 19:22:14 1.25
+++ loncom/interface/lonpreferences.pm 2003/08/29 03:08:18 1.27
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Preferences
#
-# $Id: lonpreferences.pm,v 1.25 2003/06/20 19:22:14 bowersj2 Exp $
+# $Id: lonpreferences.pm,v 1.27 2003/08/29 03:08:18 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -180,7 +180,7 @@ sub msgforwardchanger {
my $r = shift;
my $user = $ENV{'user.name'};
my $domain = $ENV{'user.domain'};
- my %userenv = &Apache::lonnet::get('environment',['msgforward']);
+ my %userenv = &Apache::lonnet::get('environment',['msgforward','notification','critnotification']);
my $msgforward=$userenv{'msgforward'};
my $notification=$userenv{'notification'};
my $critnotification=$userenv{'critnotification'};
@@ -190,6 +190,9 @@ sub msgforwardchanger {
"What are forwarding ".
"and notification ".
"addresses");
+ my $criticalMessageHelp = Apache::loncommon::help_open_topic("Course_Critical_Message",
+ "What are critical messages");
+
$r->print(<<ENDMSG);
<html>
$bodytag
@@ -201,7 +204,7 @@ New Forwarding Address(es) (<tt>user:dom
New Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>):
<input type="text" size="40" value="$notification" name="notification" /><hr />
New Critical Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>):
-<input type="text" size="40" value="$critnotification" name="critnotification" /><hr />
+<input type="text" size="40" value="$critnotification" name="critnotification" />$criticalMessageHelp<hr />
<input type="submit" value="Change" />
</form>
</body>