[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.189, Mon Dec 13 19:24:15 2004 UTC revision 1.190, Wed Dec 15 02:04:34 2004 UTC
# Line 3925  Line 3925 
3925      my $relational_db_response = $rdbH->SQL("SELECT seek, others FROM bbhs WHERE peg = \'$peg\' ");      my $relational_db_response = $rdbH->SQL("SELECT seek, others FROM bbhs WHERE peg = \'$peg\' ");
3926      if (@$relational_db_response == 1)      if (@$relational_db_response == 1)
3927      {      {
3928          my($seek,$others) = @{$relational_db_response->[0]};          my($seek_set,$others) = @{$relational_db_response->[0]};
3929          if (open(CORES,"<$FIG_Config::global/bbh.cores"))          if (open(CORES,"<$FIG_Config::global/bbh.cores"))
3930          {          {
3931                my $seek;
3932                foreach $seek (split(/,/,$seek_set))
3933                {
3934              seek(CORES,$seek,0);              seek(CORES,$seek,0);
3935              $_ = <CORES>;              $_ = <CORES>;
             close(CORES);  
3936              chop;              chop;
3937              push(@precomputed,split(/,/,$_));              push(@precomputed,split(/,/,$_));
3938          }          }
3939                close(CORES);
3940            }
3941          push(@precomputed,split(/,/,$others));          push(@precomputed,split(/,/,$others));
3942      }      }
3943      my %bbhs = map { $_ => 1 } @precomputed;      my %bbhs = map { $_ => 1 } @precomputed;

Legend:
Removed from v.1.189  
changed lines
  Added in v.1.190

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3