[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.396, Wed Nov 23 23:05:25 2005 UTC revision 1.397, Wed Nov 23 23:24:11 2005 UTC
# Line 8997  Line 8997 
8997    
8998  sub families_for_protein {  sub families_for_protein {
8999   my($self, $peg)=@_;   my($self, $peg)=@_;
9000   return unless ($peg);   return () unless ($peg);
9001   my $cid=$self->prot_to_cid($peg);   my $cid=$self->prot_to_cid($peg);
9002   return unless ($cid);   return unless ($cid);
9003   return $self->in_family($cid);   return $self->in_family($cid);
# Line 9015  Line 9015 
9015    
9016  sub proteins_in_family {  sub proteins_in_family {
9017   my($self, $family)=@_;   my($self, $family)=@_;
9018   return unless ($family);   return () unless ($family);
9019   my @prots;   my @prots;
9020   foreach my $cid ($self->ids_in_family($family)) {   foreach my $cid ($self->ids_in_family($family)) {
9021    push @prots, $self->cid_to_prots($cid);    push @prots, $self->cid_to_prots($cid);
# Line 9037  Line 9037 
9037    
9038  sub family_function {  sub family_function {
9039      my($self,$family) = @_;      my($self,$family) = @_;
9040        return "" unless ($family);
9041      my($relational_db_response);      my($relational_db_response);
9042    
9043      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
# Line 9060  Line 9061 
9061    
9062  sub sz_family {  sub sz_family {
9063      my($self,$family) = @_;      my($self,$family) = @_;
9064        return 0 unless ($family);
9065    
9066      my($relational_db_response);      my($relational_db_response);
9067      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
# Line 9082  Line 9084 
9084    
9085  sub ext_sz_family {  sub ext_sz_family {
9086      my($self,$family) = @_;      my($self,$family) = @_;
9087        return 0 unless ($family);
9088      my @proteins=$self->ext_ids_in_family($family);      my @proteins=$self->ext_ids_in_family($family);
9089      return scalar(@proteins);      return scalar(@proteins);
9090  }  }
# Line 9120  Line 9122 
9122    
9123  sub ids_in_family {  sub ids_in_family {
9124      my($self,$family) = @_;      my($self,$family) = @_;
9125        return () unless ($family);
9126    
9127      my($relational_db_response);      my($relational_db_response);
9128      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
# Line 9143  Line 9146 
9146    
9147  sub in_family {  sub in_family {
9148      my($self,$cid) = @_;      my($self,$cid) = @_;
9149        return () unless ($cid);
9150    
9151      my($relational_db_response);      my($relational_db_response);
9152      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
# Line 9167  Line 9171 
9171    
9172  sub ext_ids_in_family {  sub ext_ids_in_family {
9173      my($self,$family) = @_;      my($self,$family) = @_;
9174        return () unless ($family);
9175    
9176      my($relational_db_response);      my($relational_db_response);
9177      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
# Line 9190  Line 9195 
9195    
9196  sub ext_family_for_id {  sub ext_family_for_id {
9197      my($self,$id) = @_;      my($self,$id) = @_;
9198        return () unless ($id);
9199    
9200      my($relational_db_response);      my($relational_db_response);
9201      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
# Line 9217  Line 9223 
9223    
9224  sub prot_to_cid {  sub prot_to_cid {
9225      my($self,$prot) = @_;      my($self,$prot) = @_;
9226        return "" unless ($prot);
9227    
9228      my($relational_db_response);      my($relational_db_response);
9229      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
# Line 9239  Line 9246 
9246    
9247  sub cid_to_prots {  sub cid_to_prots {
9248      my($self,$cid) = @_;      my($self,$cid) = @_;
9249        return () unless ($cid);
9250    
9251      my($relational_db_response);      my($relational_db_response);
9252      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;

Legend:
Removed from v.1.396  
changed lines
  Added in v.1.397

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3