[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.5, Tue Jul 26 00:36:10 2005 UTC revision 1.7, Tue Jul 26 04:51:52 2005 UTC
# Line 17  Line 17 
17          my $att_param = $cgi->param('attribute');          my $att_param = $cgi->param('attribute');
18          my $value_param = $cgi->param('value');          my $value_param = $cgi->param('value');
19    
         print "$genome\n";  
         print "$value_param\n";  
         print "$att_param\n";  
   
20          my @pegs = $fig->pegs_of($genome);          my @pegs = $fig->pegs_of($genome);
21          my %list_of_ss;          my %list_of_ss;
22          foreach my $peg (@pegs) {          foreach my $peg (@pegs) {
# Line 29  Line 25 
25                          next unless (defined $attr);                          next unless (defined $attr);
26                          my ($gotpeg, $tag, $val, $link)=@$attr;                          my ($gotpeg, $tag, $val, $link)=@$attr;
27                          next unless ($tag eq $att_param);                          next unless ($tag eq $att_param);
                         print "HERE!!!!!\n";  
                         print "val is: $val\n";  
                         print "value_param is: $value_param\n";  
28                          next unless($val eq $value_param);                          next unless($val eq $value_param);
                         print "$HERE!!!!!\n";  
                         print "$val\n";  
29                          my @subsystems = $fig->subsystems_for_peg($peg);                          my @subsystems = $fig->subsystems_for_peg($peg);
30                          foreach my $ss (@subsystems)                          foreach my $ss (@subsystems)
31                          {                          {
# Line 51  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.5  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3