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

Diff of /FigKernelPackages/Observation.pm

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

revision 1.77, Mon May 18 20:26:44 2009 UTC revision 1.78, Thu May 21 17:57:32 2009 UTC
# Line 2640  Line 2640 
2640  sub get_subsystems_column{  sub get_subsystems_column{
2641      my ($ids,$fig,$cgi,$returnType) = @_;      my ($ids,$fig,$cgi,$returnType) = @_;
2642    
2643      my %in_subs  = $fig->subsystems_for_pegs($ids);      my %in_subs  = $fig->subsystems_for_pegs($ids,1);
2644      my ($column, $ss);      my ($column, $ss);
2645      foreach my $id (@$ids){      foreach my $id (@$ids){
2646          my @in_sub = @{$in_subs{$id}} if (defined $in_subs{$id});          my @in_sub = @{$in_subs{$id}} if (defined $in_subs{$id});
# Line 3266  Line 3266 
3266      my @all_pegs = keys %all_genes;      my @all_pegs = keys %all_genes;
3267      my $color_sets = &cluster_genes($fig,\@all_pegs,$fid);      my $color_sets = &cluster_genes($fig,\@all_pegs,$fid);
3268      #print STDERR "END CLUSTER OF GENES IN COMP REGION: ". `date`;      #print STDERR "END CLUSTER OF GENES IN COMP REGION: ". `date`;
3269      my %in_subs  = $fig->subsystems_for_pegs(\@all_pegs);      my %in_subs  = $fig->subsystems_for_pegs(\@all_pegs,1);
3270    
3271      foreach my $region (@$all_regions){      foreach my $region (@$all_regions){
3272          my $sample_peg = @$region[0];          my $sample_peg = @$region[0];

Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3