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

[interchange-cvs at icdevgroup.org]

User:      ton
Date:      2006-02-06 16:06:08 GMT
Added:     code/Filter symbol2text.filter
Log:
	Add simple replacement filter of € items
	with textual equivalent

Revision  Changes    Path
1.1                  interchange/code/Filter/symbol2text.filter


rev 1.1, prev_rev 1.0
Index: symbol2text.filter
===================================================================
# Copyright 2006 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: symbol2text.filter,v 1.1 2006/02/06 16:06:08 ton Exp $

CodeDef symbol2text Filter
CodeDef symbol2text Description Replace € items with textual equivalent
CodeDef symbol2text Visibility  private
CodeDef symbol2text Routine <<EOR
sub {
	my $value = shift;
	shift;

	my %sym = (
			pound	=>	'GBP ', 
			euro	=>	'Euro ',
		);

	$value =~ s/(&($_);)/($sym{$2}?$sym{$2}:$1)/ge for @_;
	return $value;
}
EOR