[interchange-cvs] interchange - heins modified code/Filter/date_change.filter

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2005-02-14 07:04:38 GMT
Modified:  code/Filter date_change.filter
Log:
* Decode the entities in case we are getting a value that came
  from [display ...] and has not been previously filtered
  for date_change. The existence of & should indicate an entities
  problem, as it is unlikely to be present in a date value.

Revision  Changes    Path
1.2       +2 -1      interchange/code/Filter/date_change.filter


rev 1.2, prev_rev 1.1
Index: date_change.filter
===================================================================
RCS file: /var/cvs/interchange/code/Filter/date_change.filter,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- date_change.filter	19 Oct 2004 10:03:51 -0000	1.1
+++ date_change.filter	14 Feb 2005 07:04:38 -0000	1.2
@@ -1,12 +1,13 @@
 # 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: date_change.filter,v 1.1 2004/10/19 10:03:51 docelic Exp $
+# $Id: date_change.filter,v 1.2 2005/02/14 07:04:38 mheins Exp $
 
 CodeDef date_change Filter
 CodeDef date_change Routine <<EOR
 sub {
 	my $val = shift;
+	HTML::Entities::decode_entities($val) if $val =~ /\&/;
 	$val =~ s/\0+//g;
 	return $val 
 		unless $val =~ m:(\d+)[-/]+(\d+)[-/]+(\d+):;