![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
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"); |