[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.4, Tue Dec 16 16:59:42 2003 UTC revision 1.5, Mon Dec 29 02:22:37 2003 UTC
# Line 1047  Line 1047 
1047    
1048  sub get_connections_by_similarity {  sub get_connections_by_similarity {
1049      my($all_pegs) = @_;      my($all_pegs) = @_;
1050      my($i,@tmp,$peg1,%peg2i,%pos_of);      my($i,$tmp,$peg1,%peg2i,%pos_of);
1051    
1052      for ($i=0; ($i < @$all_pegs); $i++)      for ($i=0; ($i < @$all_pegs); $i++)
1053      {      {
1054          @tmp = $fig->mapped_prot_ids($all_pegs->[$i]);          $tmp = $fig->maps_to_id($all_pegs->[$i]);
1055          push(@{$pos_of{$tmp[0]->[0]}},$i);             # map the representative in nr to subscript in all_pegs          push(@{$pos_of{$tmp}},$i);             # map the representative in nr to subscript in all_pegs
1056          if ($tmp[0]->[0] ne $all_pegs->[$i])          if ($tmp ne $all_pegs->[$i])
1057          {          {
1058              push(@{$pos_of{$all_pegs->[$i]}},$i);              push(@{$pos_of{$all_pegs->[$i]}},$i);
1059          }          }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3