--- loncom/interface/lonmsg.pm 2001/10/01 19:24:49 1.23
+++ loncom/interface/lonmsg.pm 2001/11/05 19:44:23 1.24
@@ -14,7 +14,7 @@
# 02/06/01 Gerd Kortemeyer
# 07/27 Guy Albertelli
# 07/27,07/28,07/30,08/03,08/06,08/08,08/09,08/10,8/13,8/15,
-# 10/1 Gerd Kortemeyer
+# 10/1,11/5 Gerd Kortemeyer
package Apache::lonmsg;
@@ -115,7 +115,7 @@ sub author_res_msg {
# ================================================== Critical message to a user
sub user_crit_msg {
- my ($user,$domain,$subject,$message)=@_;
+ my ($user,$domain,$subject,$message,$sendback)=@_;
# Check if allowed missing
my $status='';
my $msgid='undefined';
@@ -123,6 +123,7 @@ sub user_crit_msg {
my $homeserver=&Apache::lonnet::homeserver($user,$domain);
if ($homeserver ne 'no_host') {
($msgid,$message)=&packagemsg($subject,$message);
+ if ($sendback) { $message.='
';
+ ' Send as critical message
'.
+ ' Send as critical message'.
+ ' and return receipt
'; } $r->print(<<"ENDREPLY");