[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.33, Wed Mar 3 14:56:43 2004 UTC revision 1.34, Fri Mar 5 22:17:16 2004 UTC
# Line 1592  Line 1592 
1592    
1593  =pod  =pod
1594    
1595    =head1 by_alias
1596    
1597    usage: $peg = $fig->by_alias($alias)
1598    
1599    Returns a FIG id if the alias can be converted.  Right now we convert aliases
1600    of the form NP_* (RefSeq IDs) or gi|* (GenBank IDs)
1601    
1602    =cut
1603    
1604    sub by_alias {
1605        my($self,$alias) = @_;
1606        my($rdbH,$relational_db_response,$peg);
1607    
1608        $peg = "";
1609        $rdbH = $self->db_handle;
1610        if (($relational_db_response = $rdbH->SQL("SELECT id FROM ext_alias WHERE ( alias = \'$alias\' )")) &&
1611                (@$relational_db_response == 1))
1612        {
1613            $peg = $relational_db_response->[0]->[0];
1614        }
1615        return $peg;
1616    }
1617    
1618    =pod
1619    
1620  =head1 possibly_truncated  =head1 possibly_truncated
1621    
1622  usage: $fig->possibly_truncated($fid)  usage: $fig->possibly_truncated($fid)

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3