[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.32, Sat Jul 1 03:17:24 2006 UTC revision 1.37, Sun Jul 30 01:23:47 2006 UTC
# Line 266  Line 266 
266    
267  Loads B<SynonymGroup> and B<IsSynonymGroupFor>.  Loads B<SynonymGroup> and B<IsSynonymGroupFor>.
268    
269    =item Family
270    
271    Loads B<Family> and B<ContainsFeature>.
272    
273  =item *  =item *
274    
275  Loads all of the above tables.  Loads all of the above tables.
# Line 294  Line 298 
298    
299  =item user  =item user
300    
301  Suffix to use for trace, output, and error files created in  Suffix to use for trace, output, and error files created.
302    
303  =item dbLoad  =item dbLoad
304    
# Line 383  Line 387 
387  if ($resume && @parameters > 1) {  if ($resume && @parameters > 1) {
388      Confess("If resume=1, only one load group can be specified.");      Confess("If resume=1, only one load group can be specified.");
389  } elsif (! @parameters) {  } elsif (! @parameters) {
390      Confess("No load groups were specified.");      Trace("No load groups were specified.") if T(0);
391  }  }
392  # Set a variable to contain return type information.  # Set a variable to contain return type information.
393  my $rtype;  my $rtype;
# Line 441  Line 445 
445              $spl->LoadSynonymData();              $spl->LoadSynonymData();
446              $group = ResumeCheck($resume, $group);              $group = ResumeCheck($resume, $group);
447          }          }
448            if ($group eq 'Family' || $group eq '*') {
449                $spl->LoadFamilyData();
450                $group = ResumeCheck($resume, $group);
451            }
452      }      }
453  };  };
454  if ($@) {  if ($@) {
# Line 450  Line 458 
458      Trace("Load complete.") if T(2);      Trace("Load complete.") if T(2);
459      $rtype = "no error";      $rtype = "no error";
460  }  }
461  if ($phone) {  if ($options->{phone}) {
462      my $msgID = Tracer::SendSMS($options->{phone}, "Sprout load terminated with $rtype.");      my $msgID = Tracer::SendSMS($options->{phone}, "Sprout load terminated with $rtype.");
463      if ($msgID) {      if ($msgID) {
464          Trace("Phone message sent with ID $msgID.") if T(2);          Trace("Phone message sent with ID $msgID.") if T(2);
# Line 458  Line 466 
466          Trace("Phone message not sent.") if T(2);          Trace("Phone message not sent.") if T(2);
467      }      }
468  }  }
469    
470  # If the resume flag is set, return "*", else return "".  # If the resume flag is set, return "*", else return "".
471  sub ResumeCheck {  sub ResumeCheck {
472      my ($resume, $group) = @_;      my ($resume, $group) = @_;

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.37

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3