[interchange-cvs] interchange - ton modified code/Filter/text2html.filter

[interchange-cvs at icdevgroup.org]

User:      ton
Date:      2009-04-15 11:14:59 GMT
Modified:  code/Filter text2html.filter
Log:
Make filter output valid code.
Using double <br>'s instead of opening tag <p>.

Revision  Changes    Path
1.6                  interchange/code/Filter/text2html.filter


rev 1.6, prev_rev 1.5
Index: text2html.filter
===================================================================
RCS file: /var/cvs/interchange/code/Filter/text2html.filter,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- text2html.filter	30 Mar 2007 23:40:45 -0000	1.5
+++ text2html.filter	15 Apr 2009 11:14:59 -0000	1.6
@@ -6,15 +6,15 @@
 # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.  See the LICENSE file for details.
 # 
-# $Id: text2html.filter,v 1.5 2007-03-30 23:40:45 pajamian Exp $
+# $Id: text2html.filter,v 1.6 2009-04-15 11:14:59 ton Exp $
 
 CodeDef text2html Filter
 CodeDef text2html Description Simple text2html
 CodeDef text2html Routine <<EOR
 sub {
 	my $val = shift;
-	$val =~ s!\r?\n\r?\n!<p>!g;
-	$val =~ s!\r\r!<p>!g;
+	$val =~ s!\r?\n\r?\n!<br$Vend::Xtrailer><br$Vend::Xtrailer>!g;
+	$val =~ s!\r\r!<br$Vend::Xtrailer><br$Vend::Xtrailer>!g;
 	$val =~ s!\r?\n!<br$Vend::Xtrailer>!g;
 	$val =~ s!\r!<br$Vend::Xtrailer>!g;
 	return $val;