[interchange-cvs] interchange - docelic modified code/Filter/html2text.filter

[interchange-cvs at icdevgroup.org]

User:      docelic
Date:      2005-05-29 14:37:34 GMT
Modified:  code/Filter html2text.filter
Log:
* Recognize XHTML breaks, namely <br\s*/>, in addition to plain <br>

Revision  Changes    Path
1.3       +2 -2      interchange/code/Filter/html2text.filter


rev 1.3, prev_rev 1.2
Index: html2text.filter
===================================================================
RCS file: /var/cvs/interchange/code/Filter/html2text.filter,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- html2text.filter	12 Apr 2005 03:23:18 -0000	1.2
+++ html2text.filter	29 May 2005 14:37:34 -0000	1.3
@@ -1,14 +1,14 @@
 # Copyright 2002-2004 Interchange Development Group (http://www.icdevgroup.org/)
 # Copyright 1996-2002 Red Hat, Inc.
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: html2text.filter,v 1.2 2005/04/12 03:23:18 mheins Exp $
+# $Id: html2text.filter,v 1.3 2005/05/29 14:37:34 docelic Exp $
 
 CodeDef html2text Filter
 CodeDef html2text Description Simple html2text
 CodeDef html2text Routine <<EOR
 sub {
 	my $val = shift;
-	$val =~ s|\s*<BR>\s*|\n|gi;
+	$val =~ s|\s*<BR\s*/?>\s*|\n|gi;
 	$val =~ s|\s*<P>\s*|\n|gi;
 	$val =~ s|\s*</P>\s*||gi;
 	return $val;