[LON-CAPA-cvs] cvs: loncom /interface lonpreferences.pm
www
lon-capa-cvs@mail.lon-capa.org
Tue, 01 Apr 2003 22:21:45 -0000
www Tue Apr 1 17:21:45 2003 EDT
Modified files:
/loncom/interface lonpreferences.pm
Log:
Ability to enter notification email addresses.
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.17 loncom/interface/lonpreferences.pm:1.18
--- loncom/interface/lonpreferences.pm:1.17 Tue Dec 3 14:57:26 2002
+++ loncom/interface/lonpreferences.pm Tue Apr 1 17:21:45 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Preferences
#
-# $Id: lonpreferences.pm,v 1.17 2002/12/03 19:57:26 matthew Exp $
+# $Id: lonpreferences.pm,v 1.18 2003/04/01 22:21:45 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -181,8 +181,10 @@
my $domain = $ENV{'user.domain'};
my %userenv = &Apache::lonnet::get('environment',['msgforward']);
my $msgforward=$userenv{'msgforward'};
+ my $notification=$userenv{'notification'};
+ my $critnotification=$userenv{'critnotification'};
my $bodytag=&Apache::loncommon::bodytag(
- 'Change Your Message Forwarding');
+ 'Change Your Message Forwarding and Notification');
$r->print(<<ENDMSG);
<html>
$bodytag
@@ -190,7 +192,11 @@
<form name="server" action="/adm/preferences" method="post">
<input type="hidden" name="action" value="verify_and_change_msgforward" />
New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>):
-<input type="text" size="40" value="$msgforward" name="msgforward" />
+<input type="text" size="40" value="$msgforward" name="msgforward" /><hr />
+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="submit" value="Change" />
</form>
</body>
@@ -220,14 +226,36 @@
if ($newscreen) {
&Apache::lonnet::put('environment',{'msgforward' => $newscreen});
&Apache::lonnet::appenv('environment.msgforward' => $newscreen);
- $message.='Set new message forwarding to '.$newscreen;
+ $message.='Set new message forwarding to '.$newscreen.'<br />';
} else {
&Apache::lonnet::del('environment',['msgforward']);
&Apache::lonnet::delenv('environment\.msgforward');
- $message.='Reset message forwarding';
+ $message.='Reset message forwarding<br />';
+ }
+ my $notification=$ENV{'form.notification'};
+ $notification=~s/\s//gs;
+ if ($notification) {
+ &Apache::lonnet::put('environment',{'notification' => $notification});
+ &Apache::lonnet::appenv('environment.notification' => $notification);
+ $message.='Set message notification address to '.$notification.'<br />';
+ } else {
+ &Apache::lonnet::del('environment',['notification']);
+ &Apache::lonnet::delenv('environment\.notification');
+ $message.='Reset message notification<br />';
+ }
+ my $critnotification=$ENV{'form.critnotification'};
+ $critnotification=~s/\s//gs;
+ if ($critnotification) {
+ &Apache::lonnet::put('environment',{'critnotification' => $critnotification});
+ &Apache::lonnet::appenv('environment.critnotification' => $critnotification);
+ $message.='Set critical message notification address to '.$critnotification;
+ } else {
+ &Apache::lonnet::del('environment',['critnotification']);
+ &Apache::lonnet::delenv('environment\.critnotification');
+ $message.='Reset critical message notification<br />';
}
my $bodytag=&Apache::loncommon::bodytag(
- 'Change Your Message Forwarding');
+ 'Change Your Message Forwarding and Notifications');
$r->print(<<ENDVCMSG);
<html>
$bodytag
@@ -515,7 +543,7 @@
$r->print(<<ENDMSGFORWARDFORM);
<form name="client" action="/adm/preferences" method="post">
<input type="hidden" name="action" value="changemsgforward" />
-<input type="submit" value="Change message forwarding address" />
+<input type="submit" value="Change message forwarding and notification addresses" />
</form>
ENDMSGFORWARDFORM
# The "about me" page