[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.11, Sun Sep 18 13:34:40 2005 UTC revision 1.12, Sun Sep 18 13:44:15 2005 UTC
# Line 18  Line 18 
18          my $genome = $string_parts[1];          my $genome = $string_parts[1];
19          my $att_param = $cgi->param('attribute');          my $att_param = $cgi->param('attribute');
20          my $value_param = $cgi->param('value');          my $value_param = $cgi->param('value');
21          $ss_counter;          my $ss_counter;
22          my @all = $fig->all_subsystems();          my @all = $fig->all_subsystems();
23          foreach my $a (@all){ $ss_counter{$a} = 0 }          foreach my $a (@all){ $ss_counter{$a} = 0 }
24          my @pegs = $fig->pegs_of($genome);          my @pegs = $fig->pegs_of($genome);
# Line 34  Line 34 
34                          my $no_ss = 1;                          my $no_ss = 1;
35                          foreach my $ss (@subsystems)                          foreach my $ss (@subsystems)
36                          {                          {
                                 $counter = $ss_counter{$ss};  
37                                  my $ss_name = $ss->[0];                                  my $ss_name = $ss->[0];
38                                    $counter = $ss_counter{$ss_name};
39                                  $counter = $counter + 1;                                  $counter = $counter + 1;
40                                  $list_of_ss{$ss_name} = "1";                                  $list_of_ss{$ss_name} = "1";
41                                  $ss_counter{$ss} = $counter;                                  $ss_counter{$ss_name} = $counter;
42                                  $no_ss = 0;                                  $no_ss = 0;
43                          }                          }
44                          if($no_ss){push(@pegs_with_no_ss,$peg)}                          if($no_ss){push(@pegs_with_no_ss,$peg)}

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3