[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.2, Wed Sep 22 19:33:35 2004 UTC revision 1.4, Wed Sep 22 20:40:05 2004 UTC
# Line 102  Line 102 
102              for my $alias (@$alias_list)              for my $alias (@$alias_list)
103              {              {
104                  my $mapped = $fig->by_alias($alias);                  my $mapped = $fig->by_alias($alias);
105                  if ($mapped && $peg !~ /5$/)                  if ($mapped)
106                  {                  {
107                      print "$peg maps to $mapped via $alias\n";                      print "$peg maps to $mapped via $alias\n";
108                      $peg_mapping{$peg}= $mapped;                      $peg_mapping{$peg}= $mapped;
# Line 119  Line 119 
119              if (!defined($peg_mapping{$peg}))              if (!defined($peg_mapping{$peg}))
120              {              {
121                  push(@{$genome_map{$genome_id}}, $peg);                  push(@{$genome_map{$genome_id}}, $peg);
122                    print "$peg did not map\n";
123              }              }
124          }          }
125      }      }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3