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

CodeDef textarea_put Filter

CodeDef textarea_put Description Textarea PUT

CodeDef textarea_put Routine <<EOR

sub {

my $val = shift;

$val =~ s/\&/\&amp;/g;

$val =~ s/\[/&#91;/g;

$val =~ s/</&lt;/g;

return $val;

}

EOR