Return to lonpublisher.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.82, 2002/05/23 21:12:44 | version 1.83, 2002/06/24 14:25:38 |
---|---|
Line 444 sub publish { | Line 444 sub publish { |
} | } |
} | } |
} | } |
$allowstr=~s/\n+/\n/g; | $outstring=~s/\n*(\<\/[^\>]+\>)\s*$/$allowstr\n$1\n/s; |
$outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s; | |
#Encode any High ASCII characters | #Encode any High ASCII characters |
$outstring=&HTML::Entities::encode($outstring,"\200-\377"); | $outstring=&HTML::Entities::encode($outstring,"\200-\377"); |