![[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.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)=@_; |