--- loncom/interface/lonmsg.pm	2004/03/26 16:57:53	1.93
+++ loncom/interface/lonmsg.pm	2004/05/07 12:03:53	1.99
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.93 2004/03/26 16:57:53 www Exp $
+# $Id: lonmsg.pm,v 1.99 2004/05/07 12:03:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -101,6 +101,7 @@ use Apache::lontexconvert();
 use HTML::Entities();
 use Mail::Send;
 use Apache::lonlocal;
+use Apache::loncommunicate;
 
 # Querystring component with sorting type
 my $sqs;
@@ -109,15 +110,15 @@ my $sqs;
 
 sub packagemsg {
     my ($subject,$message,$citation,$baseurl,$attachmenturl)=@_;
-    $message =&HTML::Entities::encode($message);
-    $citation=&HTML::Entities::encode($citation);
-    $subject =&HTML::Entities::encode($subject);
+    $message =&HTML::Entities::encode($message,'<>&"');
+    $citation=&HTML::Entities::encode($citation,'<>&"');
+    $subject =&HTML::Entities::encode($subject,'<>&"');
     #remove machine specification
     $baseurl =~ s|^http://[^/]+/|/|;
-    $baseurl =&HTML::Entities::encode($baseurl);
+    $baseurl =&HTML::Entities::encode($baseurl,'<>&"');
     #remove machine specification
     $attachmenturl =~ s|^http://[^/]+/|/|;
-    $attachmenturl =&HTML::Entities::encode($attachmenturl);
+    $attachmenturl =&HTML::Entities::encode($attachmenturl,'<>&"');
 
     my $now=time;
     $msgcount++;
@@ -175,9 +176,11 @@ sub unpackagemsg {
        if ($notoken) {
 	   $content{'message'}.='<p>'.&mt('Attachment').': <tt>'.$fname.'.'.$ft.'</tt>';
        } else {
-	   $content{'message'}.='<p>'.&mt('Attachment').': <a href="'.
-	       &Apache::lonnet::tokenwrapper($content{'attachmenturl'}).
-	       '"><tt>'.$fname.'.'.$ft.'</tt></a>';
+	   &Apache::lonnet::allowuploaded('/adm/msg',
+					  $content{'attachmenturl'});
+	   $content{'message'}.='<p>'.&mt('Attachment').
+	       ': <a href="'.$content{'attachmenturl'}.'"><tt>'.
+	       $fname.'.'.$ft.'</tt></a>';
        }
     }
     return %content;
@@ -204,7 +207,7 @@ sub sendemail {
     my $msg = new Mail::Send;
     $msg->to($to);
     $msg->subject('[LON-CAPA] '.$subject);
-    if (my $fh = $msg->open('smtp',Server => 'localhost')) {
+    if (my $fh = $msg->open()) {
 	print $fh $body;
 	$fh->close;
     }
@@ -756,7 +759,7 @@ ENDDISHEADER
 # ============================================================== Compose output
 
 sub compout {
-    my ($r,$forwarding,$replying,$broadcast)=@_;
+    my ($r,$forwarding,$replying,$broadcast,$replycrit)=@_;
 
     if ($broadcast eq 'individual') {
 	&printheader($r,'/adm/email?compose=individual',
@@ -776,6 +779,9 @@ sub compout {
           text=>"Display Message"});
 	&printheader($r,'/adm/email?replyto='.&Apache::lonnet::escape($replying),
 	     'Replying to a Message');
+    } elsif ($replycrit) {
+	$r->print('<h3>'.&mt('Replying to a Critical Message').'</h3>');
+	$replying=$replycrit;
     } else {
 	&printheader($r,'/adm/email?compose=upload',
 	     'Distribute from Uploaded File');
@@ -907,6 +913,7 @@ ENDUPLOAD
 
 sub disfacetoface {
     my ($r,$user,$domain)=@_;
+    my $target=$ENV{'form.grade_target'};
     unless ($ENV{'request.course.id'}) { return; }
     unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
 	return;
@@ -940,7 +947,11 @@ $content{'sendername'}.'@'.
      }
     # Check to see if there were any messages.
     if ($result eq '') {
-        $r->print("<p><b>".&mt("No notes, face-to-face discussion records, or critical messages in this course.")."</b></p>");
+	if ($target ne 'tex') { 
+	    $r->print("<p><b>".&mt("No notes, face-to-face discussion records, or critical messages in this course.")."</b></p>");
+	} else {
+	    $r->print('\textbf{'.&mt("No notes, face-to-face discussion records, or critical messages in this course.").'}\\\\');
+	}
     } else {
        $r->print($result);
     }
@@ -1151,7 +1162,7 @@ sub handler {
 		my $msgid=$1;
 		$r->print('<b>'.&mt('Confirming Receipt').':</b> '.
 			  &user_crit_received($msgid).'<br>');
-		&compout($r,'',$msgid);
+		&compout($r,'','','',$msgid);
 	    }
 	}
 	&discrit($r);
@@ -1246,13 +1257,15 @@ sub handler {
 		$r->print($thismsg.'<br />');
 		$sendstatus.=' '.$thismsg;
 	    }
+	} else {
+	    &printheader($r,'','No messages sent.'); 
 	}
 	if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) {
 	    $r->print('<br /><font color="green">'.&mt('Completed.').'</font>');
 	    if ($ENV{'form.displayedcrit'}) {
 		&discrit($r);
 	    } else {
-		&disall($r);
+		&Apache::loncommunicate::menu($r);
 	    }
 	} else {
 	    $r->print(