[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.69, Mon Apr 11 06:42:19 2005 UTC revision 1.70, Mon Apr 11 12:16:45 2005 UTC
# Line 2022  Line 2022 
2022           $cgi->hidden(-name => 'can_alter', -value => $can_alter, -override => 1));           $cgi->hidden(-name => 'can_alter', -value => $can_alter, -override => 1));
2023    
2024      my $just_role = &which_role($subsystem,$cgi->param('just_role'));      my $just_role = &which_role($subsystem,$cgi->param('just_role'));
2025  print STDERR "There are ", scalar @subsetR, " organisms to check\n";  #   print STDERR "There are ", scalar @subsetR, " organisms to check\n";
2026      foreach $org (@subsetR)      foreach $org (@subsetR)
2027      {      {
2028          my @missing = &columns_missing_entries($cgi,$subsystem,$org,\@subsetC,\%in);          my @missing = &columns_missing_entries($cgi,$subsystem,$org,\@subsetC,\%in);
# Line 2035  Line 2035 
2035              my @hits = $fig->find_role_in_org($role, $org, $user, $cgi->param("sims_cutoff"));              my @hits = $fig->find_role_in_org($role, $org, $user, $cgi->param("sims_cutoff"));
2036              push(@$missing,@hits);              push(@$missing,@hits);
2037          }          }
2038  print STDERR "Found ", scalar @$missing, " for $org\n";  #       print STDERR "Found ", scalar @$missing, " for $org\n";
2039          if (@$missing > 0)          if (@$missing > 0)
2040          {          {
2041              my $genus_species = &ext_genus_species($fig,$org);              my $genus_species = &ext_genus_species($fig,$org);

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3