[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.45, Mon Nov 5 22:53:03 2007 UTC revision 1.46, Thu Dec 6 14:58:03 2007 UTC
# Line 323  Line 323 
323  my $spl = SproutLoad->new($sprout, $fig, $geneFile, $options->{subsysFile}, $options);  my $spl = SproutLoad->new($sprout, $fig, $geneFile, $options->{subsysFile}, $options);
324  # Insure we have an output directory.  # Insure we have an output directory.
325  FIG::verify_dir($FIG_Config::sproutData);  FIG::verify_dir($FIG_Config::sproutData);
326    # Check for the "*" option.
327    if ($parameters[0] eq '*') {
328        @parameters = @LoadGroups;
329    }
330  # If we're resuming, we only want to have 1 parameter.  # If we're resuming, we only want to have 1 parameter.
331  my $resume = $options->{resume};  my $resume = $options->{resume};
332  if ($resume && @parameters > 1) {  if ($resume && @parameters > 1) {
# Line 337  Line 341 
341      my $resumeGroup = $parameters[0];      my $resumeGroup = $parameters[0];
342      # Copy the load group list into the parameter array.      # Copy the load group list into the parameter array.
343      @parameters = @LoadGroups;      @parameters = @LoadGroups;
     push @parameters, @LoadGroups;  
344      # Shift out the groups until we reach our desired starting point.      # Shift out the groups until we reach our desired starting point.
345      while (scalar(@parameters) && $parameters[0] ne $resumeGroup) {      while (scalar(@parameters) && $parameters[0] ne $resumeGroup) {
346          shift @parameters;          shift @parameters;

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3