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