Textarea needs to be filtered when shown as HTML
This commit is contained in:
parent
ef53b51985
commit
dc6a225c27
2 changed files with 11 additions and 0 deletions
|
|
@ -132,6 +132,11 @@ sub getValue {
|
||||||
return WebGUI::HTML::cleanSegment($self->SUPER::getValue(@_));
|
return WebGUI::HTML::cleanSegment($self->SUPER::getValue(@_));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub getValueAsHtml {
|
||||||
|
my $self = shift;
|
||||||
|
return $self->WebGUI::Form::Control::getValueAsHtml(@_);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
#-------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -172,6 +172,12 @@ sub toHtml {
|
||||||
return $out;
|
return $out;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub getValueAsHtml {
|
||||||
|
my $self = shift;
|
||||||
|
my $value = $self->SUPER::getValueAsHtml(@_);
|
||||||
|
$value = WebGUI::HTML::filter($value, 'text');
|
||||||
|
return $value;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue