[Bio] / FigKernelPackages / PinnedRegions.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/PinnedRegions.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19, Wed Mar 25 18:00:13 2009 UTC revision 1.20, Thu Jun 4 12:30:37 2009 UTC
# Line 586  Line 586 
586              # no subsystem              # no subsystem
587              if ($extended) {              if ($extended) {
588                  my $ss_text = "$ss_name (not yet classified for this organism)";                  my $ss_text = "$ss_name (not yet classified for this organism)";
589                  $peg_to_ss{$fid}{$ss_text} = 1;                  $peg_to_ss{$fid}{$ss_name} = $ss_text;
590              }              }
591          } elsif ( $variant eq '-1' or $variant eq '*-1' ) {          } elsif ( $variant eq '-1' or $variant eq '*-1' ) {
592              # subsystem not functional in this organism              # subsystem not functional in this organism
593              my $ss_text = "$ss_name (classified 'not active' in this organism)";              my $ss_text = "$ss_name (classified 'not active' in this organism)";
594              $peg_to_ss{$fid}{$ss_text} = 1;              $peg_to_ss{$fid}{$ss_name} = $ss_text;
595          } else {          } else {
596              $peg_to_ss{$fid}{$ss_name} = 1;              $peg_to_ss{$fid}{$ss_name} = 1;
597          }          }
# Line 619  Line 619 
619      # Add subsystem information for pegs in subsystems      # Add subsystem information for pegs in subsystems
620      foreach my $fid ( keys %peg_to_ss )      foreach my $fid ( keys %peg_to_ss )
621      {      {
622          my @subsystems = keys %{ $peg_to_ss{$fid} };          my @subsystems;
623            foreach my $key (keys(%{$peg_to_ss{$fid}})) {
624                if ($peg_to_ss{$fid}{$key} ne "1") {
625                    push(@subsystems, [ $peg_to_ss{$fid}{$key}, $ss_index{$key} ]);
626                } else {
627                    push(@subsystems, [ $key, $ss_index{$key} ]);
628                }
629            }
630    
631          if ( @subsystems )          if ( @subsystems )
632          {          {
633              $feature_data->{$fid}{'subsystems'} = [sort {$a->[1] <=> $b->[1]} map {[$_, $ss_index{$_}]} @subsystems];              $feature_data->{$fid}{'subsystems'} = [sort {$a->[1] <=> $b->[1]} @subsystems];
634          }          }
635      }      }
636  }  }

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3