--- loncom/interface/lonmsg.pm 2001/08/15 16:05:04 1.21
+++ loncom/interface/lonmsg.pm 2001/11/05 21:01:54 1.25
@@ -13,7 +13,8 @@
# 10/19,10/20,10/30,
# 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 Gerd Kortemeyer
+# 07/27,07/28,07/30,08/03,08/06,08/08,08/09,08/10,8/13,8/15,
+# 10/1,11/5 Gerd Kortemeyer
package Apache::lonmsg;
@@ -114,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';
@@ -122,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");