--- loncom/publisher/lonpublisher.pm 2003/09/25 20:01:15 1.136 +++ loncom/publisher/lonpublisher.pm 2003/09/25 20:13:19 1.137 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.136 2003/09/25 20:01:15 www Exp $ +# $Id: lonpublisher.pm,v 1.137 2003/09/25 20:13:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -898,8 +898,10 @@ sub publish { $outstring=~s/\n*(\<\/[^\>]+\>)\s*$/$allowstr\n$1\n/s; ### FIXME: is this really what we want? +# I dont' think so, to will corrupt any UTF-8 resources at least, +# and any encoding other than ISO-8859-1 will probably break #Encode any High ASCII characters - $outstring=&HTML::Entities::encode($outstring,"\200-\377"); + #$outstring=&HTML::Entities::encode($outstring,"\200-\377"); # ------------------------------------------------------------- Write modified. {