diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/Misc/Pod2Html.pm | 10 | ||||
| -rwxr-xr-x | FS/FS/part_virtual_field.pm | 10 |
2 files changed, 8 insertions, 12 deletions
diff --git a/FS/FS/Misc/Pod2Html.pm b/FS/FS/Misc/Pod2Html.pm index 1dfca048c..47ac16f07 100644 --- a/FS/FS/Misc/Pod2Html.pm +++ b/FS/FS/Misc/Pod2Html.pm @@ -65,12 +65,11 @@ Generates Freeside-themed HTML docuemtnation from installed perl modules sub fs_pod2html { fs_pod2html_from_dirs( shift, - '/usr/local/share/perl/5.24.1', + grep( {-d} glob('/usr/local/share/perl/*')), '/usr/local/bin', $include_system_perl_modules ? ( '/usr/share/perl5', - '/usr/share/perl/5.24', - '/usr/share/perl/5.24.1', + grep {-d} glob('/usr/share/perl/*'), ) : (), ); } @@ -92,12 +91,9 @@ sub fs_pod2html_from_src { 'bin', 'FS', 'fs_selfservice/FS-SelfService', - # '/usr/local/share/perl/5.24.1', - # '/usr/local/bin', $include_system_perl_modules ? ( '/usr/share/perl5', - '/usr/share/perl/5.24', - '/usr/share/perl/5.24.1', + grep {-d} glob('/usr/share/perl/*'), ) : (), ); diff --git a/FS/FS/part_virtual_field.pm b/FS/FS/part_virtual_field.pm index 63712b763..eae519f6d 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!"!; } |