[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.169, Fri Oct 15 17:04:09 2004 UTC revision 1.170, Sat Oct 16 20:42:28 2004 UTC
# Line 2829  Line 2829 
2829          my @poss = grep { $_ =~ /^fig\|/ } map { $_->[0] } $self->mapped_prot_ids($alias);          my @poss = grep { $_ =~ /^fig\|/ } map { $_->[0] } $self->mapped_prot_ids($alias);
2830          if ($genomeQ)          if ($genomeQ)
2831          {          {
   
2832              @poss = grep { $_ =~ /^fig\|$genomeQ/ } @poss;              @poss = grep { $_ =~ /^fig\|$genomeQ/ } @poss;
2833          }          }
2834    
2835          if (@poss == 1)          if (@poss > 0)
2836          {          {
2837              $peg = $poss[0];              $peg = $poss[0];
2838          }          }
# Line 2841  Line 2840 
2840      return $peg;      return $peg;
2841  }  }
2842    
2843    sub to_alias {
2844        my($self,$fid,$type) = @_;
2845        my($rdbH,$relational_db_response,$peg);
2846    
2847        my @aliases = grep { $_ =~ /^$type\|/ } $self->feature_aliases($fid);
2848        if (@aliases == 0)
2849        {
2850            @aliases = grep { $_ =~ /^$type\|/ } map { $_->[0] } $self->mapped_prot_ids($fid);
2851        }
2852    
2853        if (@aliases > 0)
2854        {
2855            return $aliases[0];
2856        }
2857        else
2858        {
2859            return "";
2860        }
2861        return $peg;
2862    }
2863    
2864  =pod  =pod
2865    
2866  =head1 possibly_truncated  =head1 possibly_truncated

Legend:
Removed from v.1.169  
changed lines
  Added in v.1.170

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3