[Bio] / FigWebServices / array2sub.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/array2sub.cgi

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

revision 1.12, Sun Sep 18 13:44:15 2005 UTC revision 1.13, Wed Oct 12 21:03:16 2005 UTC
# Line 46  Line 46 
46          }          }
47          my @list = keys(%list_of_ss);          my @list = keys(%list_of_ss);
48    
49          my $prefix = &FIG::cgi_url() . "/subsys.cgi?user=&ssa_name=";          my $prefix = subsys.cgi?user=&ssa_name=";
50          my $suffix = "&request=show_ssa";          my $suffix = "&request=show_ssa";
51          push(@$html,"<TABLE>");          push(@$html,"<TABLE>");
52          foreach my $s (@list)          foreach my $s (@list)
# Line 63  Line 63 
63    
64           foreach my $p (@pegs_with_no_ss)           foreach my $p (@pegs_with_no_ss)
65           {           {
66                  my $cgi = &FIG::cgi_url();                  my $cgi = &FIG::cgi_url(-relative => 1);
67                  my $url =qq(<a href="$cgi/protein.cgi?prot=$p&user=">$p</a>);                  my $url =qq(<a href="protein.cgi?prot=$p&user=">$p</a>);
68                  push(@$html,"<TR><TD>$url</TD></TR>");                  push(@$html,"<TR><TD>$url</TD></TR>");
69           }           }
70           push(@$html,"</TABLE>");           push(@$html,"</TABLE>");

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3