[Bio] / FigKernelPackages / FigGFF.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FigGFF.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15, Fri Sep 16 22:12:04 2005 UTC revision 1.16, Wed Sep 28 17:02:34 2005 UTC
# Line 12  Line 12 
12    
13  use base qw(Exporter);  use base qw(Exporter);
14  use vars qw(@EXPORT);  use vars qw(@EXPORT);
15  @EXPORT = qw(map_seed_alias_to_dbxref);  @EXPORT = qw(map_seed_alias_to_dbxref map_dbxref_to_seed_alias);
16    
17  #  #
18  # General GFF-related routines.  # General GFF-related routines.
# Line 86  Line 86 
86      my($dbxref) = @_;      my($dbxref) = @_;
87    
88      # if it is not a valid xref just return it      # if it is not a valid xref just return it
89      return $dbxref unless (m/:/);      return $dbxref unless $dbxref =~ m/:/;
90    
91      my($type, $ref) = split(/:/, $dbxref, 2);      my($type, $ref) = split(/:/, $dbxref, 2);
92    
93      if ($type eq "NCBI_NP")      if (lc($type) eq "ncbi_np")
94      {      {
95          return "NP_$ref";          return "NP_$ref";
96      }      }
97      elsif ($type eq "NCBI_gi")      elsif (lc($type) eq "ncbi_pid")
98        {
99            return "$ref";
100        }
101        elsif (lc($type) eq "ncbi_gi")
102      {      {
103          return "gi|$ref";          return "gi|$ref";
104      }      }

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3