[Bio] / FortyEight / imp_salvage.pl Repository:
ViewVC logotype

Diff of /FortyEight/imp_salvage.pl

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

revision 1.2, Tue Sep 25 01:14:57 2007 UTC revision 1.3, Wed Oct 31 23:16:50 2007 UTC
# Line 116  Line 116 
116      }      }
117    
118      #      #
119        # See if this is a NMPDR organism.
120        #
121    
122        my $group;
123        if ($rj->meta->get_metadata("submit.nmpdr"))
124        {
125            #
126            # Determine the group.
127            #
128    
129            my $genome = $rj->genome_name();
130            $group = `$FIG_Config::bin/get_nmpdr_group $genome`;
131            if ($? == 0)
132            {
133                print "Marking $genome as being in NMPDR group $group\n";
134                my $nfh = $stage->open_file(">$orgdir/NMPDR");
135                print $nfh $group;
136                close($nfh);
137            }
138        }
139    
140    
141        #
142      # While we're here, we're going to also mark this genome directory as a RAST job.      # While we're here, we're going to also mark this genome directory as a RAST job.
143      #      #
144    
# Line 126  Line 149 
149      my $import_time = ctime(time);      my $import_time = ctime(time);
150      print $fh "Genome processed by RAST at $FIG_Config::fig\n";      print $fh "Genome processed by RAST at $FIG_Config::fig\n";
151      print $fh "$salvage_msg\n" if $salvage_msg;      print $fh "$salvage_msg\n" if $salvage_msg;
152        print $fh "NMPDR Group: $group\n" if $group;
153      print $fh "RAST job number $rj_id from $rjdir\n";      print $fh "RAST job number $rj_id from $rjdir\n";
154      print $fh "Upload at: $submit_time";      print $fh "Upload at: $submit_time";
155      print $fh "Completion at: $finish_time";      print $fh "Completion at: $finish_time";
# Line 136  Line 160 
160    
161  close(JOBS);  close(JOBS);
162    
163    
164  sub do_salvage  sub do_salvage
165  {  {
166      my($job, $old_genome) = @_;      my($job, $old_genome) = @_;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3