--- loncom/interface/lonmsg.pm 2005/06/04 21:11:30 1.144 +++ loncom/interface/lonmsg.pm 2005/06/06 02:29:46 1.145 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.144 2005/06/04 21:11:30 albertel Exp $ +# $Id: lonmsg.pm,v 1.145 2005/06/06 02:29:46 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1236,8 +1236,8 @@ sub retrieve_instructor_comments { my %content=&unpackagemsg($records{$_}); next if ($content{'senderdomain'} eq ''); next if ($content{'subject'} !~ /^Record/); - # $content{'message'}=~s/\n/\/g; - $result.='Recorded by '. + # &Apache::lonfeedback::newline_to_br(\$content{'message'}); + $result.='Recorded by '. $content{'sendername'}.'@'.$content{'senderdomain'}."\n"; $result.= &Apache::lontexconvert::msgtexconverted($content{'message'})."\n"; @@ -1260,7 +1260,7 @@ sub disfacetoface { foreach (sort keys %records) { my %content=&unpackagemsg($records{$_}); next if ($content{'senderdomain'} eq ''); - $content{'message'}=~s/\n/\/g; + &Apache::lonfeedback::newline_to_br(\$content{'message'}); if ($content{'subject'}=~/^Record/) { $result.='

'.&mt('Record').'

'; } elsif ($content{'subject'}=~/^Broadcast/) {