Return to lonfeedback.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.279, 2009/11/21 22:36:23 | version 1.280, 2009/11/26 05:21:43 |
---|---|
Line 2949 sub show_preview { | Line 2949 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]*> | |
)/x ); | |
} | |
sub newline_to_br { | sub newline_to_br { |
my ($message)=@_; | my ($message)=@_; |
my $newmessage; | my $newmessage; |