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

Diff of /FigKernelPackages/MetaSubsystem.pm

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

revision 1.3, Fri Sep 5 15:02:22 2008 UTC revision 1.4, Mon Sep 15 10:28:40 2008 UTC
# Line 511  Line 511 
511      $self->{description} = $desc;      $self->{description} = $desc;
512  }  }
513    
514    sub remove_genomes {
515        my ( $self, $delgenomes ) = @_;
516    
517        my $genomes = $self->{ genomes };
518        foreach $_ ( keys %$genomes )  {
519          if ( defined( $delgenomes->{ $_ } ) ) {
520            delete $genomes->{ $_ };
521          }
522        }
523        $self->{ genomes } = $genomes;
524    }
525    
526    sub add_genomes {
527        my ( $self, $newgenomes ) = @_;
528    
529        my $genomes = $self->{ genomes };
530        foreach $_ ( keys %$newgenomes )  {
531          print STDERR $_." SHOULD BE ADDED\n";
532          if ( ! defined( $genomes->{ $_ } ) ) {
533            $genomes->{ $_ } = 1;
534            print STDERR $_." IS BEING ADDED\n";
535          }
536        }
537        $self->{ genomes } = $genomes;
538    }
539    
540  #  #
541  # Increment the subsystem's version number.  # Increment the subsystem's version number.
542  #  #

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3