[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.475, Thu May 18 01:05:29 2006 UTC revision 1.476, Thu May 18 12:27:21 2006 UTC
# Line 7989  Line 7989 
7989      $cutoff = defined($cutoff) ? $cutoff : 1.0e-10;      $cutoff = defined($cutoff) ? $cutoff : 1.0e-10;
7990      my @bbhs = ();      my @bbhs = ();
7991      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
7992      my $relational_db_response = $rdbH->SQL("SELECT peg2, psc FROM bbh WHERE peg1 = \'$peg\' ");      my $relational_db_response = $rdbH->SQL("SELECT * FROM bbh WHERE peg1 = \'$peg\' ");
7993    
7994      return sort { $a->[1] <=> $b->[1] } grep { $_->[1] <= $cutoff } @{$relational_db_response};      return sort { $a->[1] <=> $b->[1] }
7995               grep { $_->[1] <= $cutoff }
7996               map { [$_->[1],$_->[2],$_->[3]] }
7997               @{$relational_db_response};
7998  }  }
7999    
8000  =head3 bbh_list  =head3 bbh_list

Legend:
Removed from v.1.475  
changed lines
  Added in v.1.476

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3