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

[interchange-cvs at icdevgroup.org]

User:      kwalsh
Date:      2007-02-16 01:14:17 GMT
Modified:  code/Filter html2text.filter
Log:
    * Swapped the <p> and </p> regexes so that the "\n" doesn't get eaten.

Revision  Changes    Path
1.5       +4 -4      interchange/code/Filter/html2text.filter


rev 1.5, prev_rev 1.4
Index: html2text.filter
===================================================================
RCS file: /var/cvs/interchange/code/Filter/html2text.filter,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- html2text.filter	8 Nov 2005 18:14:32 -0000	1.4
+++ html2text.filter	16 Feb 2007 01:14:17 -0000	1.5
@@ -1,16 +1,16 @@
 # Copyright 2002-2005 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.4 2005/11/08 18:14:32 jon Exp $
+# $Id: html2text.filter,v 1.5 2007/02/16 01:14:17 kwalsh Exp $
 
 CodeDef html2text Filter
 CodeDef html2text Description Simple html2text
 CodeDef html2text Routine <<EOR
 sub {
 	my $val = shift;
-	$val =~ s|\s*<BR\s*/?>\s*|\n|gi;
-	$val =~ s|\s*<P>\s*|\n|gi;
-	$val =~ s|\s*</P>\s*||gi;
+	$val =~ s|\s*<br\s*/?>\s*|\n|gi;
+	$val =~ s|\s*</p>\s*||gi;
+	$val =~ s|\s*<p>\s*|\n|gi;
 	return $val;
 }
 EOR