[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.23, Fri Jan 19 17:13:45 2007 UTC revision 1.24, Thu Feb 1 14:58:06 2007 UTC
# Line 159  Line 159 
159          {          {
160              my(undef,$code,$peg,$func,$role,$gs) = @$x;              my(undef,$code,$peg,$func,$role,$gs) = @$x;
161              next if (! $fig->is_real_feature($peg));              next if (! $fig->is_real_feature($peg));
162              next if ($func ne scalar $fig->function_of($peg));              next if ($func ne scalar &stripped_function_of($fig,$peg));
163              next if (($code eq "mismatch") && (&still_left_out($fig,$peg,$subsys)));              next if (($code eq "mismatch") && (&still_left_out($fig,$peg,$subsys)));
164              next if (($code eq "left-out") && (! &still_left_out($fig,$peg,$subsys)));              next if (($code eq "left-out") && (! &still_left_out($fig,$peg,$subsys)));
165    
# Line 277  Line 277 
277      my $target = "window$$";      my $target = "window$$";
278      return "<a href=$url target=$target>$sub</a>";      return "<a href=$url target=$target>$sub</a>";
279  }  }
280    
281    sub stripped_function_of {
282        my($fig,$peg) = @_;
283    
284        my $func = $fig->function_of($peg);
285        $func =~ s/\s*\#.*$//;
286        return $func;
287    }

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3