[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.342, Tue Aug 9 00:56:02 2005 UTC revision 1.343, Mon Aug 15 20:25:02 2005 UTC
# Line 4772  Line 4772 
4772  sub to_alias {  sub to_alias {
4773      my($self,$fid,$type) = @_;      my($self,$fid,$type) = @_;
4774    
4775      my @aliases = grep { $_ =~ /^$type\|/ } $self->feature_aliases($fid);      my @aliases = $self->feature_aliases($fid);
4776        if ($type)
4777        {
4778            @aliases = grep { $_ =~ /^$type\|/ } @aliases;
4779        }
4780    
4781      if (wantarray())      if (wantarray())
4782      {      {

Legend:
Removed from v.1.342  
changed lines
  Added in v.1.343

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3