[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.4, Sun Jul 24 22:49:33 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);
# Line 42  Line 42 
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.4  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3