X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_virtual_field.pm;h=e54dc9389e6721e97a33729f218b36184a151445;hp=1df4984e11a2cbf0f4caa076766951495cf7874f;hb=83cad295d38b0c764b59b62bc4840dcf666b7de9;hpb=19d49567b9f1e07459253f28a41da121bd48811c

diff --git a/FS/FS/part_virtual_field.pm b/FS/FS/part_virtual_field.pm
index 1df4984e1..e54dc9389 100755
--- a/FS/FS/part_virtual_field.pm
+++ b/FS/FS/part_virtual_field.pm
@@ -4,7 +4,7 @@ use strict;
 use vars qw( @ISA );
 use FS::Record;
 use FS::Schema qw( dbdef );
-use CGI qw(escapeHTML);
+use HTML::Entities;
 
 @ISA = qw( FS::Record );
 
@@ -92,14 +92,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!"!;
         }