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-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org
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-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org