[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.656, Mon Feb 11 20:51:37 2008 UTC revision 1.657, Tue Feb 12 03:49:45 2008 UTC
# Line 10365  Line 10365 
10365      if (@index > 20) { $#index = 19 }      if (@index > 20) { $#index = 19 }
10366    
10367  #   print STDERR "index contains ",scalar @index, " entries\n";  #   print STDERR "index contains ",scalar @index, " entries\n";
     my %hits;  
10368      foreach my $id2 (@index)      foreach my $id2 (@index)
10369      {      {
10370          if ($id2 =~ /^(FIG\d{6})/)          if ($id2 =~ /^(FIG\d{6})/)
# Line 10375  Line 10374 
10374              my $fam_dir = &FF::fam_dir($figfams_data,$fam_id);              my $fam_dir = &FF::fam_dir($figfams_data,$fam_id);
10375              if ((-s "$fam_dir/blast.partition") && open(PARTITION,"<$fam_dir/blast.partition"))              if ((-s "$fam_dir/blast.partition") && open(PARTITION,"<$fam_dir/blast.partition"))
10376              {              {
10377                  if (($_ = <PARTITION>) && ($_ =~ /^(\d+)/))                  if (defined($_ = <PARTITION>) && ($_ =~ /^(\d+)/))
10378                  {                  {
10379                      my $partition = $1;                      my $partition = $1;
10380                      my $partitionF = "$figfams_data/Partitions/" . ($partition % 1000) . "/$partition/fasta";                      my $partitionF = "$figfams_data/Partitions/" . ($partition % 1000) . "/$partition/fasta";

Legend:
Removed from v.1.656  
changed lines
  Added in v.1.657

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3