[Bio] / Sprout / LoadSproutTables.pl Repository:
ViewVC logotype

Diff of /Sprout/LoadSproutTables.pl

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

revision 1.3, Fri Sep 9 14:54:44 2005 UTC revision 1.6, Sun Sep 11 17:34:05 2005 UTC
# Line 51  Line 51 
51    
52  Loads B<Source>, B<ComesFrom>, B<SourceURL>.  Loads B<Source>, B<ComesFrom>, B<SourceURL>.
53    
54    =item External
55    
56    Loads B<ExternalAliasOrg>, B<ExternalAliasFunc>.
57    
58  =item *  =item *
59    
60  Loads all of the above tables.  Loads all of the above tables.
# Line 98  Line 102 
102                                                      trace => 3 },                                                      trace => 3 },
103                                                                 @ARGV);                                                                 @ARGV);
104  # Set up tracing.  # Set up tracing.
105  TSetup("$options->{trace} SproutLoad ERDBLoad ERDB Tracer Load", "+>$FIG_Config::temp/trace.log");  TSetup("$options->{trace} SproutLoad ERDBLoad ERDB Stats Tracer Load", "+>$FIG_Config::temp/trace.log");
106  # Create the sprout loader object.  # Create the sprout loader object.
107  my $fig = FIG->new();  my $fig = FIG->new();
108  my $sprout = SFXlate->new_sprout_only();  my $sprout = Sprout->new($FIG_Config::sproutDB, { noDBOpen => 1 });
109  my $spl = SproutLoad->new($sprout, $fig, $options->{geneFile},  my $spl = SproutLoad->new($sprout, $fig, $options->{geneFile}, $options->{subsysFile});
                           $options->{subsysFile});  
110  # Process the parameters.  # Process the parameters.
111  for my $group (@parameters) {  for my $group (@parameters) {
112      Trace("Processing load group $group.") if T(2);      Trace("Processing load group $group.") if T(2);
# Line 132  Line 135 
135      if ($group eq 'BBH' || $group eq '*') {      if ($group eq 'BBH' || $group eq '*') {
136          $spl->LoadBBHData();          $spl->LoadBBHData();
137      }      }
138      if ($group eq 'Groups' || $group eq '*') {      if ($group eq 'Group' || $group eq '*') {
139          $spl->LoadGroupData();          $spl->LoadGroupData();
140      }      }
141      if ($group eq 'Source' || $group eq '*') {      if ($group eq 'Source' || $group eq '*') {
142          $spl->LoadSourceData();          $spl->LoadSourceData();
143      }      }
144        if ($group eq 'External' || $group eq '*') {
145            $spl->LoadExternalData();
146        }
147    
148  }  }
149  Trace("Load complete.") if T(2);  Trace("Load complete.") if T(2);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3