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. |