[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.28, Wed Apr 19 03:34:15 2006 UTC revision 1.29, Sat May 13 14:51:39 2006 UTC
# Line 382  Line 382 
382      my $stats;      my $stats;
383      if ($group eq 'Genome' || $group eq '*') {      if ($group eq 'Genome' || $group eq '*') {
384          $spl->LoadGenomeData();          $spl->LoadGenomeData();
385          $group = ResumeCheck($resume);          $group = ResumeCheck($resume, $group);
386      }      }
387      if ($group eq 'Feature' || $group eq '*') {      if ($group eq 'Feature' || $group eq '*') {
388          $spl->LoadFeatureData();          $spl->LoadFeatureData();
389          $group = ResumeCheck($resume);          $group = ResumeCheck($resume, $group);
390      }      }
391      if ($group eq 'Coupling' || $group eq '*') {      if ($group eq 'Coupling' || $group eq '*') {
392          $spl->LoadCouplingData();          $spl->LoadCouplingData();
393          $group = ResumeCheck($resume);          $group = ResumeCheck($resume, $group);
394      }      }
395      if ($group eq 'Subsystem' || $group eq '*') {      if ($group eq 'Subsystem' || $group eq '*') {
396          $spl->LoadSubsystemData();          $spl->LoadSubsystemData();
397          $group = ResumeCheck($resume);          $group = ResumeCheck($resume, $group);
398      }      }
399      if ($group eq 'Property' || $group eq '*') {      if ($group eq 'Property' || $group eq '*') {
400          $spl->LoadPropertyData();          $spl->LoadPropertyData();
401          $group = ResumeCheck($resume);          $group = ResumeCheck($resume, $group);
402      }      }
403      if ($group eq 'Annotation' || $group eq '*') {      if ($group eq 'Annotation' || $group eq '*') {
404          $spl->LoadAnnotationData();          $spl->LoadAnnotationData();
405          $group = ResumeCheck($resume);          $group = ResumeCheck($resume, $group);
406      }      }
407      if ($group eq 'BBH' || $group eq '*') {      if ($group eq 'BBH' || $group eq '*') {
408          $spl->LoadBBHData();          $spl->LoadBBHData();
409          $group = ResumeCheck($resume);          $group = ResumeCheck($resume, $group);
410      }      }
411      if ($group eq 'Group' || $group eq '*') {      if ($group eq 'Group' || $group eq '*') {
412          $spl->LoadGroupData();          $spl->LoadGroupData();
413          $group = ResumeCheck($resume);          $group = ResumeCheck($resume, $group);
414      }      }
415      if ($group eq 'Source' || $group eq '*') {      if ($group eq 'Source' || $group eq '*') {
416          $spl->LoadSourceData();          $spl->LoadSourceData();
417          $group = ResumeCheck($resume);          $group = ResumeCheck($resume, $group);
418      }      }
419      if ($group eq 'External' || $group eq '*') {      if ($group eq 'External' || $group eq '*') {
420          $spl->LoadExternalData();          $spl->LoadExternalData();
421          $group = ResumeCheck($resume);          $group = ResumeCheck($resume, $group);
422      }      }
423      if ($group eq 'Reaction' || $group eq '*') {      if ($group eq 'Reaction' || $group eq '*') {
424          $spl->LoadReactionData();          $spl->LoadReactionData();
425          $group = ResumeCheck($resume);          $group = ResumeCheck($resume, $group);
426      }      }
427    
428  }  }
# Line 430  Line 430 
430    
431  # If the resume flag is set, return "*", else return "".  # If the resume flag is set, return "*", else return "".
432  sub ResumeCheck {  sub ResumeCheck {
433      my ($resume) = @_;      my ($resume, $group) = @_;
434      return ($resume ? "*" : "");      return ($resume ? "*" : $group);
435  }  }
436    
437  1;  1;

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3