[Bio] / FigWebServices / subsys.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys.cgi

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

revision 1.4, Fri Sep 17 00:56:04 2004 UTC revision 1.5, Fri Sep 17 01:03:24 2004 UTC
# Line 520  Line 520 
520    
521  sub refill_spreadsheet {  sub refill_spreadsheet {
522      my($fig,$subsystem) = @_;      my($fig,$subsystem) = @_;
523      my($genome,$role,@pegs);      my($genome,$role,@pegs1,@pegs2,$i);
524    
525      foreach $genome ($subsystem->get_genomes())      foreach $genome ($subsystem->get_genomes())
526      {      {
527          foreach $role ($subsystem->get_roles())          foreach $role ($subsystem->get_roles())
528          {          {
529              @pegs = $fig->seqs_with_role($role,"master",$genome);              @pegs1 = sort $subsystem->get_pegs_from_cell($genome,$role);
530              $subsystem->set_pegs_in_cell($genome,$role,\@pegs);              @pegs2 = sort $fig->seqs_with_role($role,"master",$genome);
531                if (@pegs1 != @pegs2)
532                {
533                    $subsystem->set_pegs_in_cell($genome,$role,\@pegs2);
534                }
535                else
536                {
537                    for ($i=0; ($i < @pegs1) && ($pegs1[$i] eq $pegs2[$i]); $i++) {}
538                    if ($i < @pegs1)
539                    {
540                        $subsystem->set_pegs_in_cell($genome,$role,\@pegs2);
541                    }
542                }
543          }          }
544      }      }
545  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3