[Bio] / FigWebServices / subsys.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys.cgi

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

revision 1.115, Tue Sep 6 21:14:10 2005 UTC revision 1.116, Sun Sep 11 16:34:41 2005 UTC
# Line 3437  Line 3437 
3437  sub external_id {  sub external_id {
3438      my($fig,$cgi,$peg) = @_;      my($fig,$cgi,$peg) = @_;
3439      my @tmp;      my @tmp;
3440      my @aliases = ($fig->feature_aliases($peg),map { $_->[0] } $fig->mapped_prot_ids($peg));      my @aliases = $fig->feature_aliases($peg);
3441      if      ((@tmp = grep { $_ =~ /^uni\|/ } @aliases) > 0)      if      ((@tmp = grep { $_ =~ /^uni\|/ } @aliases) > 0)
3442      {      {
3443          @aliases = map { &HTML::uni_link($cgi,$_) } @tmp;          @aliases = map { &HTML::uni_link($cgi,$_) } @tmp;

Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3