[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.127, Wed Apr 30 15:35:57 2008 UTC revision 1.128, Wed Apr 30 16:01:28 2008 UTC
# Line 312  Line 312 
312      $self->{spreadsheet_inv} = [];      $self->{spreadsheet_inv} = [];
313    
314      # added by DB for empty cell annotation      # added by DB for empty cell annotation
315      $self->{emptycells} = [];      $self->{emptycells} = {};
316    
317      $self->{col_subsets} = [];      $self->{col_subsets} = [];
318      $self->{col_subset_members} = {};      $self->{col_subset_members} = {};
# Line 1752  Line 1752 
1752          close($fh);          close($fh);
1753          chmod(0777,$hope_curation_notes_file);          chmod(0777,$hope_curation_notes_file);
1754    
1755  #        open($fh, ">$emptycells_file") or die "Cannot open $emptycells_file for writing: $!\n";          open($fh, ">$emptycells_file") or die "Cannot open $emptycells_file for writing: $!\n";
1756  #       my $gahash = $self->{emptycells};          my $gahash = $self->{emptycells};
1757  #       foreach my $k1 ( @$gahash ) {          foreach my $k1 ( @$gahash ) {
1758  #         foreach my $k2 ( keys %{ $gahash->{ $k1 } } ) {            foreach my $k2 ( keys %{ $gahash->{ $k1 } } ) {
1759  #           print $fh $k1."\t".$k2."\t".$gahash->{ $k1 }->{ $k2 }."\n";              print $fh $k1."\t".$k2."\t".$gahash->{ $k1 }->{ $k2 }."\n";
1760  #         }            }
1761  #       }          }
1762  #        close($fh);          close($fh);
1763  #        chmod(0777,$emptycells_file);          chmod(0777,$emptycells_file);
1764    
1765          open($fh, ">$classification_file") or die "Can not open $classification_file for writing: $!\n";          open($fh, ">$classification_file") or die "Can not open $classification_file for writing: $!\n";
1766          print $fh join "\t", (@{$self->{classification}}), "\n";          print $fh join "\t", (@{$self->{classification}}), "\n";

Legend:
Removed from v.1.127  
changed lines
  Added in v.1.128

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3