Textarea needs to be filtered when shown as HTML

This commit is contained in:
Graham Knop 2008-06-11 14:14:25 +00:00
parent ef53b51985
commit dc6a225c27
2 changed files with 11 additions and 0 deletions

View file

@ -132,6 +132,11 @@ sub getValue {
return WebGUI::HTML::cleanSegment($self->SUPER::getValue(@_));
}
sub getValueAsHtml {
my $self = shift;
return $self->WebGUI::Form::Control::getValueAsHtml(@_);
}
#-------------------------------------------------------------------

View file

@ -172,6 +172,12 @@ sub toHtml {
return $out;
}
sub getValueAsHtml {
my $self = shift;
my $value = $self->SUPER::getValueAsHtml(@_);
$value = WebGUI::HTML::filter($value, 'text');
return $value;
}
1;