--- loncom/interface/lonmsg.pm 2004/03/26 17:13:59 1.94
+++ loncom/interface/lonmsg.pm 2004/03/26 19:35:59 1.95
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.94 2004/03/26 17:13:59 www Exp $
+# $Id: lonmsg.pm,v 1.95 2004/03/26 19:35:59 www 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;
@@ -1249,13 +1250,15 @@ sub handler {
$r->print($thismsg.'
');
$sendstatus.=' '.$thismsg;
}
+ } else {
+ &printheader($r,'','No messages sent.');
}
if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) {
$r->print('
'.&mt('Completed.').'');
if ($ENV{'form.displayedcrit'}) {
&discrit($r);
} else {
- &disall($r);
+ &Apache::loncommunicate::menu($r);
}
} else {
$r->print(