diff options
| author | Christopher Burger <burgerc@freeside.biz> | 2019-02-26 11:06:33 -0500 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2019-02-26 11:06:33 -0500 |
| commit | db257f5b5f5c9e56dbaba19914d3ff9f5be9a4e0 (patch) | |
| tree | b733062f34b4e16c2d694bc1a8a1453bc491d94f /FS/FS | |
| parent | d0a105a296bae50a191424abed78a1ba4f251248 (diff) | |
RT# 82092 - updated escaping html to use encode-entities
Diffstat (limited to 'FS/FS')
| -rwxr-xr-x | FS/FS/part_virtual_field.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/FS/FS/part_virtual_field.pm b/FS/FS/part_virtual_field.pm index 63712b7..eae519f 100755 --- a/FS/FS/part_virtual_field.pm +++ b/FS/FS/part_virtual_field.pm @@ -2,7 +2,7 @@ package FS::part_virtual_field; use base qw(FS::Record); use strict; -use CGI qw(escapeHTML); +use HTML::Entities; use FS::Schema qw( dbdef ); =head1 NAME @@ -89,14 +89,14 @@ sub widget { if ($ui_type eq 'HTML') { if ($mode eq 'view') { - $text = q!<TR><!.$header_col_type.q! ALIGN="right">! . $label . - q!</!.$header_col_type.q!><TD BGCOLOR="#ffffff">! . $value . + $text = q!<TR><!.$header_col_type.q! ALIGN="right">! . encode_entities($label) . + q!</!.$header_col_type.q!><TD BGCOLOR="#ffffff">! . encode_entities($value) . q!</TD></TR>! . "\n"; } elsif ($mode eq 'edit') { - $text = q!<TR><!.$header_col_type.q! ALIGN="right">! . $label . + $text = q!<TR><!.$header_col_type.q! ALIGN="right">! . encode_entities($label) . q!</!.$header_col_type.q!><TD>!; $text .= q!<INPUT TYPE=text NAME="! . $self->name . - q!" VALUE="! . escapeHTML($value) . q!"!; + q!" VALUE="! . encode_entities($value) . q!"!; if ($self->length) { $text .= q! SIZE="! . $self->length . q!"!; } |