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

Diff of /FigWebServices/protein.cgi

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

revision 1.141, Wed Jul 27 15:46:25 2005 UTC revision 1.142, Wed Jul 27 16:55:16 2005 UTC
# Line 2725  Line 2725 
2725    
2726      if ($peg !~ /^fig\|\d+\.\d+\.peg\.\d+$/) { return "" }      if ($peg !~ /^fig\|\d+\.\d+\.peg\.\d+$/) { return "" }
2727    
2728      my @codes = $fig_or_sprout->get_attributes($peg,"evidence_code");      my @codes = grep { $_->[1] =~ /^evidence_code/i } $fig_or_sprout->get_attributes($peg);
2729      return (@codes > 0) ? map { $_->[2] } @codes : ();      return (@codes > 0) ? map { $_->[2] } @codes : ();
2730  }  }
2731    

Legend:
Removed from v.1.141  
changed lines
  Added in v.1.142

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3