word.filter

# 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: word.filter,v 1.3 2005-11-08 18:14:32 jon Exp $

CodeDef word Filter
CodeDef word Description A-Za-z_0-9
CodeDef word Routine <<EOR
sub {
	my $val = shift;
	$val =~ s/\W+//g;
	return $val;
}
EOR