[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.322, Thu Jul 28 18:03:24 2005 UTC revision 1.323, Fri Jul 29 18:13:11 2005 UTC
# Line 7716  Line 7716 
7716    
7717  sub load_all {  sub load_all {
7718      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
7719        my($skip_to) = @_;
7720        my $start;
7721        my $just_list;
7722    
7723        #
7724        # If skip_to is numeric, start with that package.
7725        #
7726        # If it is the string "list", list the packages with their numbers.
7727        #
7728    
7729        if ($skip_to eq "list")
7730        {
7731            $just_list = 1;
7732        }
7733        elsif ($skip_to =~ /^\d+$/)
7734        {
7735            $start = $skip_to - 1;
7736        }
7737        else
7738        {
7739            $start = 0;
7740        }
7741    
7742      Trace("Loading SEED data.") if T(2);      Trace("Loading SEED data.") if T(2);
7743    
7744      my @packages = load_all_list;      my @packages = load_all_list;
7745    
7746      my $pn = @packages;      my $pn = @packages;
7747      for my $i (0..@packages - 1)      for my $i ($start..@packages - 1)
7748      {      {
7749          my $i1 = $i + 1;          my $i1 = $i + 1;
7750          my $pkg = $packages[$i];          my $pkg = $packages[$i];
# Line 7731  Line 7753 
7753          chomp $date;          chomp $date;
7754          print "$date:  Running $pkg ($i1 of $pn)\n";          print "$date:  Running $pkg ($i1 of $pn)\n";
7755    
7756            if (!$just_list)
7757            {
7758          &run($pkg);          &run($pkg);
7759      }      }
7760        }
7761      print "\n\nLoad complete.\n\n";      print "\n\nLoad complete.\n\n";
7762  }  }
7763    

Legend:
Removed from v.1.322  
changed lines
  Added in v.1.323

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3