[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.629, Tue Oct 9 18:57:27 2007 UTC revision 1.630, Tue Oct 9 21:16:35 2007 UTC
# Line 986  Line 986 
986      for my $ftype ($dh->read())      for my $ftype ($dh->read())
987      {      {
988          my $path = "$genome_dir/Features/$ftype";          my $path = "$genome_dir/Features/$ftype";
989          next if $ftype =~ /^\d./ or ! -d $path;          next if $ftype =~ /^\./ or ! -d $path;
990    
991          my $fh = new FileHandle("<$ftype/tbl");          my $fh = new FileHandle("<$path/tbl");
992          if (!$fh)          if (!$fh)
993          {          {
994              warn "Cannot open tbl file in feature directory $path: $!";              warn "Cannot open tbl file in feature directory $path: $!";
# Line 7012  Line 7012 
7012      return FIGRules::NetCouplingData('coupled_to', id1 => $peg);      return FIGRules::NetCouplingData('coupled_to', id1 => $peg);
7013  }  }
7014    
7015    sub coupled_to_batch {
7016        my($self, @peg) = @_;
7017    
7018        return () unless @peg;
7019    
7020        if ($FIG_Config::use_pch_server)
7021        {
7022            return $self->net_coupled_to_batch(@peg);
7023        }
7024    
7025        my $rdbH = $self->db_handle;
7026        if (! $rdbH->table_exists('fc_pegs')) { return undef }
7027    
7028        my $cond = join(", ", map { "'$_'" } @peg);
7029        my $relational_db_response = $rdbH->SQL("SELECT peg2,score FROM fc_pegs
7030                                                 WHERE  peg1 = in ($cond) ");
7031        return @$relational_db_response;
7032    }
7033    
7034    sub net_coupled_to_batch {
7035        my($self, @peg) = @_;
7036        return FIGRules::NetCouplingData('coupled_to_batch', id1 => \@peg);
7037    }
7038    
7039  sub net_in_pch_pin_with_and_evidence {  sub net_in_pch_pin_with_and_evidence {
7040      my($self, $peg) = @_;      my($self, $peg) = @_;
7041      return FIGRules::NetCouplingData('in_pch_pin_with_and_evidence', id1 => $peg);      return FIGRules::NetCouplingData('in_pch_pin_with_and_evidence', id1 => $peg);

Legend:
Removed from v.1.629  
changed lines
  Added in v.1.630

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3