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

Diff of /FigKernelPackages/P2Pupdate.pm

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

revision 1.58, Mon Jan 22 22:44:31 2007 UTC revision 1.59, Tue Mar 13 16:45:29 2007 UTC
# Line 2192  Line 2192 
2192    
2193      for my $item (@{$self->{items}})      for my $item (@{$self->{items}})
2194      {      {
2195          my $l = [ map { $_ eq '' ? undef : "fig|$genome.peg.$_" } split(/,/, $item) ];          my $l = [];
2196            for my $fid (split(/,/, $item))
2197            {
2198                if ($fid =~ /^\d+$/)
2199                {
2200                    push(@$l, "fig|$genome.peg.$fid");
2201                }
2202                else
2203                {
2204                    push(@$l, "fig|$genome.$fid");
2205                }
2206            }
2207    
2208          my $t = [ map { $trans_peg->{$_} } @$l ];          my $t = [ map { $trans_peg->{$_} } @$l ];
2209    
2210          push(@$parsed_items, $l);          push(@$parsed_items, $l);
# Line 2254  Line 2266 
2266                      push(@nt, $2);                      push(@nt, $2);
2267                  }                  }
2268              }              }
2269                elsif ($peg =~ /^fig\|(\d+\.\d+)\.([^.]+\.\d+)$/)
2270                {
2271                    if ($1 eq $dom)
2272                    {
2273                        push(@nt, $2);
2274                    }
2275                }
2276          }          }
2277          push(@res, join(",", @nt));          push(@res, join(",", @nt));
2278      }      }

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3