[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.123, Tue Apr 29 05:43:12 2008 UTC revision 1.124, Wed May 14 09:06:09 2008 UTC
# Line 525  Line 525 
525      {      {
526          my $line = $_;          my $line = $_;
527          if (T(4)) {          if (T(4)) {
528              my $escapedLine = CGI::escapeHTML($line);              my $escapedLine = Tracer::Clean($line);
529              Trace("Printing:\n$escapedLine") if T(4);              Trace("Printing:\n$escapedLine") if T(4);
530          }          }
531          print $line;          print $line;
# Line 1770  Line 1770 
1770      my $retVal;      my $retVal;
1771      # Clean the subsystem name for display purposes. This is a very      # Clean the subsystem name for display purposes. This is a very
1772      # different thing from URL-escaping.      # different thing from URL-escaping.
1773      my $cleaned = CGI::escapeHTML($sub);      my $cleaned = Tracer::Clean($sub);
1774      $cleaned =~ s/_/ /g;      $cleaned =~ s/_/ /g;
1775      # URL-escape the subsystem name for use in the link.      # URL-escape the subsystem name for use in the link.
1776      my $linkable = uri_escape($sub);      my $linkable = uri_escape($sub);

Legend:
Removed from v.1.123  
changed lines
  Added in v.1.124

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3