[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.2, Sun Jul 24 22:22:09 2005 UTC revision 1.7, Tue Jul 26 04:51:52 2005 UTC
# Line 24  Line 24 
24                  foreach my $attr (@attr) {                  foreach my $attr (@attr) {
25                          next unless (defined $attr);                          next unless (defined $attr);
26                          my ($gotpeg, $tag, $val, $link)=@$attr;                          my ($gotpeg, $tag, $val, $link)=@$attr;
                         #$tag = uc($tag);  
27                          next unless ($tag eq $att_param);                          next unless ($tag eq $att_param);
28                          next unless($val eq $value_param);                          next unless($val eq $value_param);
29                          my @subsystems = $fig->subsystems_for_peg($peg);                          my @subsystems = $fig->subsystems_for_peg($peg);
# Line 33  Line 32 
32                                  my $ss_name = $ss->[0];                                  my $ss_name = $ss->[0];
33                                  $list_of_ss{$ss_name} = "1";                                  $list_of_ss{$ss_name} = "1";
34                          }                          }
35    
36                   }                   }
37          }          }
38          my @list = keys(%list_of_ss);          my @list = keys(%list_of_ss);
39    
40          my $prefix = "$FIG_Config::cgi_url"."subsys.cgi?user=&ssa_name=";          my $prefix = "$FIG_Config::cgi_url"."/subsys.cgi?user=&ssa_name=";
41          my $suffix = "&request=show_ssa";          my $suffix = "&request=show_ssa";
42          push(@$html,"<TABLE>");          push(@$html,"<TABLE>");
43          foreach my $s (@list)          foreach my $s (@list)
44          {          {
45             my $url = "<a href='$prefix.$s.$suffix'>$s</a>";             my $url = "<a href="."$prefix"."$s"."$suffix"."&color_by_peg_tag=$att_param".">$s</a>";
46             push(@$html,"<TR><TD>$url</TD></TR>");             push(@$html,"<TR><TD>$url</TD></TR>");
47    
48           }           }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3