[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.16, Mon Jan 1 01:18:02 2007 UTC revision 1.17, Tue Jan 2 04:03:20 2007 UTC
# Line 149  Line 149 
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));              next if (! $fig->is_real_feature($peg));
151              next if ($func ne scalar $fig->function_of($peg));              next if ($func ne scalar $fig->function_of($peg));
152                next if (($code eq "left-out") && (! &still_left_out($fig,$peg,$subsys)));
153    
154              #RAE added the other subsystems column to the table              #RAE added the other subsystems column to the table
155              my $othersubsys='';              my $othersubsys='';
# Line 216  Line 217 
217      return @raw_output;      return @raw_output;
218  }  }
219    
220    sub still_left_out {
221        my($fig,$peg,$func,$sub) = @_;
222    
223        if ($func ne $fig->function_of($peg))   { return 0 }
224        my @subs = $fig->peg_to_subsystems($peg);
225        my $i;
226        for ($i=0; ($i < @subs) && ($sub ne $subs[$i]); $i++) {}
227        return ($i == @subs);
228    }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3