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

Diff of /FigKernelPackages/P2P.pm

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

revision 1.11, Fri Sep 24 19:48:17 2004 UTC revision 1.12, Fri Sep 24 19:52:25 2004 UTC
# Line 224  Line 224 
224                                             contig = '$local_contig'                                             contig = '$local_contig'
225                                          !);                                          !);
226    
227                      if ($res and @$res == 1)                      if ($res and @$res > 0)
228                      {                      {
229                          my($id) = $res->[0]->[0];                          my(@ids) = map { $_->[0] } @$res;
230                            my $id = $ids[0];
231                          $peg_mapping{$peg} = $id;                          $peg_mapping{$peg} = $id;
232                          print "Mapped $peg to $id via contigs\n";                          print "Mapped $peg to $id via contigs\n";
233                            if (@$res > 1)
234                            {
235                                warn "Multiple mappings found for $peg: @ids\n";
236                            }
237                      }                      }
238                      else                      else
239                      {                      {

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3