Author: richter Date: Fri Mar 6 07:41:46 2015 New Revision: 1664551 URL: http://svn.apache.org/r1664551 Log: Fix html filter
Modified: perl/embperl/trunk/Embperl/Form/Control/textarea.pm Modified: perl/embperl/trunk/Embperl/Form/Control/textarea.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/textarea.pm?rev=1664551&r1=1664550&r2=1664551&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/textarea.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/textarea.pm Fri Mar 6 07:41:46 2015 @@ -49,7 +49,7 @@ sub _filter_html { my ($self, $dataref) = @_ ; - $$dataref =~ s/(<\/?(\w+?).+?>)/ALLOWED_HTML_TAGS->{$2}?$1:''/ge ; + $$dataref =~ s/(<\/?(\w+).*?>)/ALLOWED_HTML_TAGS->{$2}?$1:''/ge ; } # ------------------------------------------------------------------------------------------ @@ -82,8 +82,8 @@ sub init_data return if ($self -> {format} ne 'html') ; my $fdat = $req -> {docdata} || \%fdat ; - my $name = $self->{name} ; - $self -> _filter_html (\{$fdat->{$name}}) ; + my $name = $self->{name} ; + $self -> _filter_html (\$fdat->{$name}) ; return ; } --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org