[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.293, Mon Jun 13 16:43:48 2005 UTC revision 1.294, Mon Jun 20 04:03:44 2005 UTC
# Line 7330  Line 7330 
7330  sub all_protein_families {  sub all_protein_families {
7331      my($self) = @_;      my($self) = @_;
7332    
7333        return ();
7334      return $self->all_sets("protein_families","family");      return $self->all_sets("protein_families","family");
7335  }  }
7336    
# Line 7344  Line 7345 
7345  sub ids_in_family {  sub ids_in_family {
7346      my($self,$family) = @_;      my($self,$family) = @_;
7347    
7348        return ();
7349      return $self->ids_in_set($family,"protein_families","family");      return $self->ids_in_set($family,"protein_families","family");
7350  }  }
7351    
# Line 7361  Line 7363 
7363      my($self,$family) = @_;      my($self,$family) = @_;
7364      my($relational_db_response);      my($relational_db_response);
7365      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
7366        return "";
7367    
7368      defined($family) || confess "family is missing";      defined($family) || confess "family is missing";
7369      if (($relational_db_response = $rdbH->SQL("SELECT function FROM family_function WHERE ( family = $family)")) &&      if (($relational_db_response = $rdbH->SQL("SELECT function FROM family_function WHERE ( family = $family)")) &&
# Line 7382  Line 7385 
7385  sub sz_family {  sub sz_family {
7386      my($self,$family) = @_;      my($self,$family) = @_;
7387    
7388        return 0;
7389      return $self->sz_set($family,"protein_families","family");      return $self->sz_set($family,"protein_families","family");
7390  }  }
7391    
# Line 7396  Line 7400 
7400  sub in_family {  sub in_family {
7401      my($self,$id) = @_;      my($self,$id) = @_;
7402    
7403        return "";
7404      my @in = $self->in_sets($id,"protein_families","family");      my @in = $self->in_sets($id,"protein_families","family");
7405      return (@in > 0) ? $in[0] : "";      return (@in > 0) ? $in[0] : "";
7406  }  }

Legend:
Removed from v.1.293  
changed lines
  Added in v.1.294

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3