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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.129, Thu May 1 21:40:53 2008 UTC revision 1.130, Fri May 16 15:23:18 2008 UTC
# Line 1957  Line 1957 
1957    
1958      for my $sub ($self->get_subset_namesC())      for my $sub ($self->get_subset_namesC())
1959      {      {
       print STDERR $sub." SUB\n";  
1960          next if ($sub eq "All");          next if ($sub eq "All");
1961          my @members= $self->get_subsetC($sub);          my @members= $self->get_subsetC($sub);
1962    
# Line 1966  Line 1965 
1965          #          #
1966    
1967          @members = map { $_ + 1 } @members;          @members = map { $_ + 1 } @members;
1968          print STDERR join("\t", $sub, @members)."SUBSET\n";  
1969          print $fh join("\t", $sub, @members), "\n";          print $fh join("\t", $sub, @members), "\n";
1970      }      }
1971      my $active_row_subset = $self->{row_active_subset};      my $active_row_subset = $self->{row_active_subset};
1972      my $active_col_subset = $self->{col_active_subset};      my $active_col_subset = $self->{col_active_subset};
1973  print STDERR $active_col_subset."ACS\n";  
1974      print $fh "$active_col_subset\n";      print $fh "$active_col_subset\n";
1975    
1976      #      #
# Line 2812  Line 2811 
2811   #   #
2812   # First do a single call to retrieve all the values for the subset key.   # First do a single call to retrieve all the values for the subset key.
2813   #   #
2814   my @attr_values = $self->{fig}->get_attributes($self->{genome}, $key);   my @attr_values = ();
2815     if ( $key eq 'hundred_hundred' ) {
2816       @attr_values = $self->{fig}->get_attributes($self->{genome}, 'collection', $key);
2817     }
2818     else {
2819       @attr_values = $self->{fig}->get_attributes($self->{genome}, $key);
2820     }
2821    
2822   my %amap;   my %amap;
2823   map {  push(@{$amap{$_->[0]}}, [@$_]); } @attr_values;   map {  push(@{$amap{$_->[0]}}, [@$_]); } @attr_values;
2824    

Legend:
Removed from v.1.129  
changed lines
  Added in v.1.130

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3