[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.35, Sun Jul 25 21:48:15 2004 UTC revision 1.36, Mon Aug 9 14:38:55 2004 UTC
# Line 583  Line 583 
583      {      {
584          print ASSIGNMENTS "$user\t$who\t$date\n";          print ASSIGNMENTS "$user\t$who\t$date\n";
585          my @assignments = sort { $a->[0] cmp $b->[0] } $fig->assignments_made_full($genomes,$who,$date);          my @assignments = sort { $a->[0] cmp $b->[0] } $fig->assignments_made_full($genomes,$who,$date);
586            my @curr_assignments = ();
587          foreach $x (@assignments)          foreach $x (@assignments)
588          {          {
589              my($peg, $function, $adate, $awho) = @$x;              my($peg, $function, undef, undef) = @$x;
590                if ($function eq $fig->function_of($peg,$who))
591                {
592              print ASSIGNMENTS join("\t", $peg, $function),"\n";              print ASSIGNMENTS join("\t", $peg, $function),"\n";
593                    push(@curr_assignments,$x);
594                }
595          }          }
596          print ASSIGNMENTS "//\n";          print ASSIGNMENTS "//\n";
597    
598          foreach $x (@assignments)          foreach $x (@curr_assignments)
599          {          {
600              ($peg,undef) = @$x;              ($peg,undef) = @$x;
601              my @aliases = grep { $_ =~ /^(sp\||gi\||pirnr\||kegg\||N[PGZ]_)/ } $fig->feature_aliases($peg);              my @aliases = grep { $_ =~ /^(sp\||gi\||pirnr\||kegg\||N[PGZ]_)/ } $fig->feature_aliases($peg);
# Line 606  Line 611 
611          }          }
612          print ASSIGNMENTS "//\n";          print ASSIGNMENTS "//\n";
613    
614          foreach $x (@assignments)          foreach $x (@curr_assignments)
615          {          {
616              ($peg,undef) = @$x;              ($peg,undef) = @$x;
617              my $seq = $fig->get_translation($peg);              my $seq = $fig->get_translation($peg);

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3