[Bio] / FigKernelPackages / Subsystem.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.41, Fri Nov 12 03:48:02 2004 UTC revision 1.42, Tue Nov 30 17:06:13 2004 UTC
# Line 2035  Line 2035 
2035    
2036  sub extend_with_billogix  sub extend_with_billogix
2037  {  {
2038      my($self, $muser) = @_;      my($self, $muser, $genomes) = @_;
2039      my($isMaster, $user);      my($isMaster, $user);
2040    
2041      my $now = time();      my $now = time();
# Line 2052  Line 2052 
2052      }      }
2053    
2054      #      #
2055        # initialize the genome list to all complete genomes, if none was passed in.
2056        #
2057    
2058        if (!$genomes)
2059        {
2060            $genomes = [$self->{fig}->genomes("complete")];
2061            warn "getting genome list from fig $self->{fig}";
2062        }
2063    
2064        #
2065        # Ensure genome list is of the right form.
2066        #
2067    
2068        if (ref($genomes) ne "ARRAY")
2069        {
2070            warn "billogix: genome list is not a list reference";
2071            return;
2072        }
2073    
2074        for my $g (@$genomes)
2075        {
2076            if ($g !~ /^\d+\.\d+/)
2077            {
2078                warn "billogix: genome '$g' is not of the proper form, aborting billogix run.";
2079                return;
2080            }
2081        }
2082    
2083        my $genome_list = "[" . join(", ", map { "'$_'" } @$genomes) . "]";
2084    
2085        warn "Genomes: $genome_list\n";
2086        warn Dumper($genomes);
2087    
2088        #
2089      # Find the executable.      # Find the executable.
2090      #      #
2091    
# Line 2109  Line 2143 
2143          my $app_input = <<EOINP;          my $app_input = <<EOINP;
2144  ['\$BILLOGIX/top'].  ['\$BILLOGIX/top'].
2145  loadup.  loadup.
2146    asserta(job_genome_list($genome_list)).
2147  asserta(part($this_chunk, $n_chunks)).  asserta(part($this_chunk, $n_chunks)).
2148  asserta(url_default_seed('$seed')).  asserta(url_default_seed('$seed')).
2149  asserta(url_export_part('$export_part')).  asserta(url_export_part('$export_part')).

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3