[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.5, Tue Jul 26 00:36:10 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    
20            print "$genome\n";
21            print "$value_param\n";
22            print "$att_param\n";
23    
24          my @pegs = $fig->pegs_of($genome);          my @pegs = $fig->pegs_of($genome);
25          my %list_of_ss;          my %list_of_ss;
26          foreach my $peg (@pegs) {          foreach my $peg (@pegs) {
# Line 24  Line 28 
28                  foreach my $attr (@attr) {                  foreach my $attr (@attr) {
29                          next unless (defined $attr);                          next unless (defined $attr);
30                          my ($gotpeg, $tag, $val, $link)=@$attr;                          my ($gotpeg, $tag, $val, $link)=@$attr;
                         #$tag = uc($tag);  
31                          next unless ($tag eq $att_param);                          next unless ($tag eq $att_param);
32                            print "HERE!!!!!\n";
33                            print "val is: $val\n";
34                            print "value_param is: $value_param\n";
35                          next unless($val eq $value_param);                          next unless($val eq $value_param);
36                            print "$HERE!!!!!\n";
37                            print "$val\n";
38                          my @subsystems = $fig->subsystems_for_peg($peg);                          my @subsystems = $fig->subsystems_for_peg($peg);
39                          foreach my $ss (@subsystems)                          foreach my $ss (@subsystems)
40                          {                          {
41                                  my $ss_name = $ss->[0];                                  my $ss_name = $ss->[0];
42                                  $list_of_ss{$ss_name} = "1";                                  $list_of_ss{$ss_name} = "1";
43                          }                          }
44    
45                   }                   }
46          }          }
47          my @list = keys(%list_of_ss);          my @list = keys(%list_of_ss);

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3