--- loncom/interface/lonmsg.pm 2001/12/19 17:17:46 1.26 +++ loncom/interface/lonmsg.pm 2002/01/01 18:38:51 1.27 @@ -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.27 2002/01/01 18:38:51 www 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.':'.$$); @@ -358,7 +359,10 @@ sub disall { '