[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.189, Mon Jan 1 21:45:20 2007 UTC revision 1.190, Tue Jan 2 03:47:47 2007 UTC
# Line 241  Line 241 
241              push(@$html1,$cgi->h2("$mismatchesN entries mismatch the role"));              push(@$html1,$cgi->h2("$mismatchesN entries mismatch the role"));
242    
243              my @left_out     = grep { ($_ =~ /left-out\t(\S+)\t([^\t]+)/) &&              my @left_out     = grep { ($_ =~ /left-out\t(\S+)\t([^\t]+)/) &&
244                                        ($2 eq scalar $fig->function_of($1))                                        &still_left_out($fig,$1,$2,$ssa)
245                                      } @tmp;                                      } @tmp;
246    
247              my $left_outN    = (@left_out > 0) ? @left_out : 0;              my $left_outN    = (@left_out > 0) ? @left_out : 0;
248              push(@$html1,$cgi->h2("$left_outN entries should be added for existing genomes"));              push(@$html1,$cgi->h2("$left_outN entries should be added for existing genomes"));
249    
# Line 467  Line 468 
468  &HTML::show_page($cgi,$html);  &HTML::show_page($cgi,$html);
469  exit;  exit;
470    
471    sub still_left_out {
472        my($fig,$peg,$func,$sub) = @_;
473    
474        if ($func ne $fig->function_of($peg))   { return 0 }
475        my @subs = $fig->peg_to_subsystems($peg);
476        my $i;
477        for ($i=0; ($i < @subs) && ($sub ne $subs[$i]); $i++) {}
478        return ($i < @subs);
479    }
480    
481    
482  sub show_initial {  sub show_initial {
483      # a new first page written by Rob      # a new first page written by Rob
484      my($fig,$cgi,$html) = @_;      my($fig,$cgi,$html) = @_;

Legend:
Removed from v.1.189  
changed lines
  Added in v.1.190

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3