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

Diff of /FigWebServices/check_subsys.cgi

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

revision 1.15, Mon Jan 1 00:09:07 2007 UTC revision 1.16, Mon Jan 1 01:18:02 2007 UTC
# Line 146  Line 146 
146      {      {
147          if ($x->[1] =~ /^(mismatch|left-out)/)          if ($x->[1] =~ /^(mismatch|left-out)/)
148          {          {
             next if (! $fig->is_real_feature($x->[2]));  
149              my(undef,$code,$peg,$func,$role,$gs) = @$x;              my(undef,$code,$peg,$func,$role,$gs) = @$x;
150                next if (! $fig->is_real_feature($peg));
151                next if ($func ne scalar $fig->function_of($peg));
152    
153              #RAE added the other subsystems column to the table              #RAE added the other subsystems column to the table
154              my $othersubsys='';              my $othersubsys='';
155              if (my @otherss = $fig->subsystems_for_peg($peg))              if (my @otherss = $fig->subsystems_for_peg($peg))
# Line 184  Line 186 
186    
187      my $col_hdrs3 = ['Genome','Genus and Species','Possible Variant Codes','Detected Roles'];      my $col_hdrs3 = ['Genome','Genus and Species','Possible Variant Codes','Detected Roles'];
188      my $tab3      = [];      my $tab3      = [];
189      my @to_add = grep { $_->[1] eq 'maybe-add' } @checked;  
190        my $sobj = $fig->get_subsystem($subsys);
191        my %genomes_in_sub = map { $_ => 1 } $sobj->get_genomes;
192        my @to_add = grep { ($_->[1] eq 'maybe-add') && (! $genomes_in_sub{$_->[4]}) } @checked;
193    
194      my($entry,$vcodes,$genome,$gs,@roles);      my($entry,$vcodes,$genome,$gs,@roles);
195      foreach $entry (sort { $a->[5] cmp $b->[5] } @to_add)      foreach $entry (sort { $a->[5] cmp $b->[5] } @to_add)

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3