[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.27, Wed Mar 31 10:52:25 2004 UTC revision 1.28, Wed Mar 31 11:14:47 2004 UTC
# Line 523  Line 523 
523          foreach $x (@assignments)          foreach $x (@assignments)
524          {          {
525              ($peg,undef) = @$x;              ($peg,undef) = @$x;
526                my @aliases = grep { $_ =~ /^(sp\||gi\||pirnr\||kegg\||N[PGZ]_)/ } $self->feature_aliases($peg);
527                print ASSIGNMENTS join("\t",($peg,join(",",@aliases),$self->genus_species($self->genome_of($peg)),scalar $self->function_of($peg))) . "\n";
528            }
529            print ASSIGNMENTS "//\n";
530    
531            foreach $x (@assignments)
532            {
533                ($peg,undef) = @$x;
534              my $seq = $self->get_translation($peg);              my $seq = $self->get_translation($peg);
535              &FIG::display_id_and_seq($peg,\$seq,\*ASSIGNMENTS);              &FIG::display_id_and_seq($peg,\$seq,\*ASSIGNMENTS);
536          }          }

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3