[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[www]

www		Fri Mar 26 12:13:59 2004 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  Better screen output.
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.93 loncom/interface/lonmsg.pm:1.94
--- loncom/interface/lonmsg.pm:1.93	Fri Mar 26 11:57:53 2004
+++ loncom/interface/lonmsg.pm	Fri Mar 26 12:13:59 2004
@@ -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.94 2004/03/26 17:13:59 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -756,7 +756,7 @@
 # ============================================================== 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 +776,9 @@
           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');
@@ -1151,7 +1154,7 @@
 		my $msgid=$1;
 		$r->print('<b>'.&mt('Confirming Receipt').':</b> '.
 			  &user_crit_received($msgid).'<br>');
-		&compout($r,'',$msgid);
+		&compout($r,'','','',$msgid);
 	    }
 	}
 	&discrit($r);