[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.54, Thu Sep 1 19:23:49 2005 UTC revision 1.55, Tue Sep 6 18:52:35 2005 UTC
# Line 403  Line 403 
403      # $genomeannos is a hash keyed on peg. value is a list of lists [$peg, $time, $who, $anno].      # $genomeannos is a hash keyed on peg. value is a list of lists [$peg, $time, $who, $anno].
404      #      #
405    
406      my @annos = sort { my($ga, $sa) = split(/\./, $a->[0]);      my @annos = sort { &FIG::by_genome_id($a->[0], $b->[0]) } @$annos;
                        my($gb, $sb) = split(/\./, $b->[0]);  
                        $ga <=> $gb or $sa <=> $sb } @$annos;  
407    
408      for my $gent (@annos)      for my $gent (@annos)
409      {      {
# Line 415  Line 413 
413          {          {
414              for my $aent (@{$alist->{$peg}})              for my $aent (@{$alist->{$peg}})
415              {              {
416                  chomp $aent->[$#$aent];                  print ANNOTATIONS $aent->as_text() . "\n///\n";
                 print ANNOTATIONS join("\n", @$aent) . "\n///\n";  
417              }              }
418          }          }
419    

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3