--- loncom/interface/lonmsg.pm 2002/01/01 18:38:51 1.27 +++ loncom/interface/lonmsg.pm 2002/06/24 14:33:21 1.33 @@ -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.33 2002/06/24 14:33:21 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; @@ -277,7 +277,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 +296,37 @@ ENDDISHEADER $reply{'generation'}. ' ('.$_.') '.$section); } - } sort keys %courselist; + } } # ==================================================== Display Critical Message sub discrit { my $r=shift; - $r->print('