--- loncom/interface/lonmsg.pm 2001/12/19 17:17:46 1.26 +++ loncom/interface/lonmsg.pm 2002/02/16 19:59:10 1.28 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.26 2001/12/19 17:17:46 albertel Exp $ +# $Id: lonmsg.pm,v 1.28 2002/02/16 19:59:10 harris41 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,7 +39,9 @@ # 07/27 Guy Albertelli # 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 +# package Apache::lonmsg; use strict; @@ -62,7 +64,6 @@ sub packagemsg { $msgcount++; my $partsubj=$subject; $partsubj=&Apache::lonnet::escape($partsubj); - $partsubj=substr($partsubj,0,50); my $msgid=&Apache::lonnet::escape( $now.':'.$partsubj.':'.$ENV{'user.name'}.':'. $ENV{'user.domain'}.':'.$msgcount.':'.$$); @@ -276,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; } @@ -295,7 +296,7 @@ ENDDISHEADER $reply{'generation'}. ' ('.$_.') '.$section); } - } sort keys %courselist; + } } # ==================================================== Display Critical Message @@ -306,7 +307,7 @@ sub discrit { '
'); } @@ -358,7 +359,10 @@ sub disall { '