Return to lonfeedback.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.273.4.3, 2010/01/24 03:13:55 | version 1.273.4.4, 2010/01/24 23:20:16 |
---|---|
Line 2940 sub show_preview { | Line 2940 sub show_preview { |
); | ); |
} | } |
sub contains_block_html { | |
my ($message)=@_; | |
return ($message =~ m{ | |
<(br|h1|h2|h3|h4|h5|h6|p|ol|ul|table|pre|address|blockquote|center|div) | |
\s* | |
(\w+\=['"]\w+['"])* | |
\s* | |
( | |
\s*/>| | |
>.*</\1\s*> | |
)}xs | |
); | |
} | |
sub newline_to_br { | sub newline_to_br { |
my ($message)=@_; | my ($message)=@_; |