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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.287, Thu Jun 9 05:36:30 2005 UTC revision 1.288, Thu Jun 9 18:39:05 2005 UTC
# Line 6982  Line 6982 
6982  }  }
6983    
6984  ################################# Loading Databases  ####################################  ################################# Loading Databases  ####################################
6985    =head3 load_all_list
6986    
6987    C<< my @packages = FIG::load_all_list(); >>
6988    
6989  #=pod  Return a list of the commands to be executed in order to load the SEED database.
 #  
 #=head3 load_all  
 #  
 #usage: load_all  
 #  
 #This function is supposed to reload all entries into the database and do  
 #whatever is required to properly support indexing of pegs and roles.  
 #  
 #=cut  
   
 sub load_all {  
     shift if UNIVERSAL::isa($_[0],__PACKAGE__);  
6990    
6991      print STDERR "\nLoading SEED data\n\n";  =cut
6992    
6993    sub load_all_list {
6994      my @packages = qw(load_peg_mapping      my @packages = qw(load_peg_mapping
6995                        index_contigs                        index_contigs
6996                        compute_genome_counts                        compute_genome_counts
# Line 7027  Line 7018 
7018                     );                     );
7019    
7020      push(@packages, "pegs_in_conflict | peg_to_subsystems > $FIG_Config::global/conflicted.pegs");      push(@packages, "pegs_in_conflict | peg_to_subsystems > $FIG_Config::global/conflicted.pegs");
7021        return @packages;
7022    }
7023    
7024    #=pod
7025    #
7026    #=head3 load_all
7027    #
7028    #usage: load_all
7029    #
7030    #This function is supposed to reload all entries into the database and do
7031    #whatever is required to properly support indexing of pegs and roles.
7032    #
7033    #=cut
7034    
7035    sub load_all {
7036        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
7037    
7038        Trace("Loading SEED data.") if T(2);
7039    
7040        my @packages = load_all_list;
7041    
7042      my $pn = @packages;      my $pn = @packages;
7043      for my $i (0..@packages - 1)      for my $i (0..@packages - 1)

Legend:
Removed from v.1.287  
changed lines
  Added in v.1.288

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3