[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.40, Thu Mar 24 03:15:06 2005 UTC revision 1.41, Thu Apr 28 20:56:37 2005 UTC
# Line 5  Line 5 
5  use Data::Dumper;  use Data::Dumper;
6  use LWP::UserAgent;  use LWP::UserAgent;
7  use LWP::Simple;  use LWP::Simple;
8    use URI::Escape;  # uri_escape()
9  use URI::URL;  use URI::URL;
10  use HTTP::Request::Common;  use HTTP::Request::Common;
11  use POSIX;  use POSIX;
# Line 549  Line 550 
550      return $family;      return $family;
551  }  }
552    
 use URI::Escape;  
553    
554  sub get_html {  sub get_html {
555      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
# Line 880  Line 880 
880      my $user = $cgi->param('user');      my $user = $cgi->param('user');
881      if ($user)      if ($user)
882      {      {
883          $sub_link = "<a href=./subsys.cgi?ssa_name=$sub&request=show_ssa&user=$user>$sub</a>";          my $esc_sub = uri_escape( $sub );
884            $sub_link = "<a href=./subsys.cgi?ssa_name=$esc_sub&request=show_ssa&user=$user>$sub</a>";
885      }      }
886      else      else
887      {      {

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3