[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.121, Mon Feb 11 19:13:06 2008 UTC revision 1.122, Tue Feb 19 18:36:34 2008 UTC
# Line 1872  Line 1872 
1872          {          {
1873              $vc = "0";              $vc = "0";
1874          }          }
1875    
1876            #
1877            # Validate genome before writing.
1878            #
1879    
1880            if ($genome !~ /^\d+\.\d+/)
1881            {
1882                next;
1883            }
1884    
1885            # Not sure if we want this case or not.
1886    #       if (!$self->{fig}->is_genome($genome))
1887    #       {
1888    #           next;
1889    #       }
1890    
1891          print $fh "$genome\t$vc";          print $fh "$genome\t$vc";
1892    
1893          for my $entry (@$row)          for my $entry (@$row)

Legend:
Removed from v.1.121  
changed lines
  Added in v.1.122

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3