--- loncom/interface/lonmsg.pm 2002/01/01 18:38:51 1.27 +++ loncom/interface/lonmsg.pm 2002/07/29 22:17:05 1.36 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.27 2002/01/01 18:38:51 www Exp $ +# $Id: lonmsg.pm,v 1.36 2002/07/29 22:17:05 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -40,7 +40,7 @@ # 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 # YEAR=2002 -# 1/1 Gerd Kortemeyer +# 1/1,3/18 Gerd Kortemeyer # package Apache::lonmsg; @@ -49,6 +49,8 @@ use Apache::lonnet(); use vars qw($msgcount); use HTML::TokeParser; use Apache::Constants qw(:common); +use Apache::loncommon; +use Apache::lontexconvert; # ===================================================================== Package @@ -277,7 +279,7 @@ sub discourse {
ENDDISHEADER - map { + foreach (sort keys %courselist) { my ($end,$start)=split(/\:/,$courselist{$_}); my $active=1; if (($end) && ($now>$end)) { $active=0; } @@ -296,28 +298,40 @@ ENDDISHEADER $reply{'generation'}. ' ('.$_.') '.$section); } - } sort keys %courselist; + } } # ==================================================== Display Critical Message sub discrit { my $r=shift; - $r->print('
';
+ ' Send as critical message ' . $crithelp .
+ '
'.
+ ' Send as critical message ' .
+ ' and return receipt' . $crithelp . '
'; } $r->print(<<"ENDREPLY");