loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.136, 2003/09/25 20:01:15	version 1.137, 2003/09/25 20:13:19
Line 898 sub publish {	Line 898 sub publish {
$outstring=~s/\n(\<\/[^\>]+\>)\s$/$allowstr\n$1\n/s;	$outstring=~s/\n(\<\/[^\>]+\>)\s$/$allowstr\n$1\n/s;

### FIXME: is this really what we want?	### 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	#Encode any High ASCII characters
$outstring=&HTML::Entities::encode($outstring,"\200-\377");	#$outstring=&HTML::Entities::encode($outstring,"\200-\377");
# ------------------------------------------------------------- Write modified.	# ------------------------------------------------------------- Write modified.

{	{