[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.796, Tue Aug 11 18:51:39 2009 UTC revision 1.797, Tue Aug 11 20:28:01 2009 UTC
# Line 8593  Line 8593 
8593    
8594  =cut  =cut
8595    
8596    use FC;
8597  sub coupled_to {  sub coupled_to {
8598      my($self, $peg) = @_;      my($self, $peg) = @_;
8599    
# Line 8601  Line 8602 
8602          return $self->net_coupled_to($peg);          return $self->net_coupled_to($peg);
8603      }      }
8604    
8605         if ($FIG_Config::use_sapling_fc)
8606         {
8607             my $db = $self->sapling;
8608             return &FC::coupled_to($db,$peg);
8609         }
8610    
8611      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
8612      if (! $rdbH->table_exists('fc_pegs')) { return undef }      if (! $rdbH->table_exists('fc_pegs')) { return undef }
8613    
# Line 8624  Line 8631 
8631          return $self->net_coupled_to_batch(@peg);          return $self->net_coupled_to_batch(@peg);
8632      }      }
8633    
8634        if ($FIG_Config::use_sapling_fc)
8635        {
8636            my $db = $self->sapling;
8637            return &FC::coupled_to_batch($db,@peg);
8638         }
8639    
8640      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
8641      if (! $rdbH->table_exists('fc_pegs')) { return undef }      if (! $rdbH->table_exists('fc_pegs')) { return undef }
8642    
# Line 8721  Line 8734 
8734          return $self->net_coupling_evidence($peg1, $peg2);          return $self->net_coupling_evidence($peg1, $peg2);
8735      }      }
8736    
8737         if ($FIG_Config::use_sapling_fc)
8738         {
8739             my $db = $self->sapling;
8740             return &FC::coupling_evidence($db,$peg1,$peg2);
8741         }
8742    
8743      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
8744      if (! $rdbH->table_exists('pchs')) { return undef }      if (! $rdbH->table_exists('pchs')) { return undef }
8745    
Legend:
Removed from v.1.796  
changed lines
  Added in v.1.797
MCS Webmaster
 ViewVC Help
Powered by ViewVC 1.0.3