![[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.174, 2004/06/18 16:52:19 | version 1.175, 2004/07/03 03:32:30 |
|---|---|
| Line 929 sub publish { | Line 929 sub publish { |
| } | } |
| } | } |
| } | } |
| $outstring=~s/\n*(\<\/[^\>]+\>)\s*$/$allowstr\n$1\n/s; | $outstring=~s/\n*(\<\/[^\>]+\>[^<]*)$/$allowstr\n$1\n/s; |
| # ------------------------------------------------------------- Write modified. | # ------------------------------------------------------------- Write modified. |