[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.666, Fri Feb 29 21:12:45 2008 UTC revision 1.667, Fri Feb 29 21:52:19 2008 UTC
# Line 4069  Line 4069 
4069    
4070  sub genome_info {  sub genome_info {
4071      my ($self) = @_;      my ($self) = @_;
4072      my $rdbH = $fig->db_handle;      my $rdbH = $self->db_handle;
4073      return $rdbH->SQL("SELECT genome, gname, szdna, maindomain, pegs, rnas, complete FROM genome");      return $rdbH->SQL("SELECT genome, gname, szdna, maindomain, pegs, rnas, complete FROM genome");
4074  }  }
4075    
# Line 10793  Line 10793 
10793              flock(TMP,LOCK_EX) || confess "cannot lock annotations";              flock(TMP,LOCK_EX) || confess "cannot lock annotations";
10794              seek(TMP,0,2)      || confess "failed to seek to the end of the file";              seek(TMP,0,2)      || confess "failed to seek to the end of the file";
10795    
             # Tweaked this section for Windows compatability. The siz     if (open(TMP,">>$file"))  
         {  
             flock(TMP,LOCK_EX) || confess "cannot lock annotations";  
             seek(TMP,0,2)      || confess "failed to seek to the end of the file";  
   
10796              # Tweaked this section for Windows compatability. The size on disk of              # Tweaked this section for Windows compatability. The size on disk of
10797              # "\n" is not constant.              # "\n" is not constant.
10798              my $seek1 = tell TMP;              my $seek1 = tell TMP;
# Line 11405  Line 11400 
11400    
11401      if (! defined($genomes)) { $genomes = [$self->genomes] }      if (! defined($genomes)) { $genomes = [$self->genomes] }
11402    
11403      my %gen$epoch_date = $date;      my %genomes = map { $_ => 1 } @$genomes;
11404        if ($date =~ /^(\d{1,2})\/(\d{1,2})\/(\d{4})$/)
11405        {
11406            my($mm,$dd,$yyyy) = ($1,$2,$3);
11407            $epoch_date = &Time::Local::timelocal(0,0,0,$dd,$mm-1,$yyyy-1900,0,0,0);
11408        }
11409        elsif ($date =~ /^\d+$/)
11410        {
11411            $epoch_date = $date;
11412      }      }
11413      else      else
11414      {      {

Legend:
Removed from v.1.666  
changed lines
  Added in v.1.667

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3