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

Diff of /FigWebServices/clust_ss.cgi

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

revision 1.3, Fri Mar 7 11:33:06 2008 UTC revision 1.4, Fri Mar 28 13:24:39 2008 UTC
# Line 160  Line 160 
160          chomp @pegs;          chomp @pegs;
161          close(INTERESTING);          close(INTERESTING);
162    
163          @pegs = grep { &not_in_sub($_) } @pegs;          @pegs = grep { &not_in_sub($fig,$_) } @pegs;
164          open(INTERESTING,">$FIG_Config::global/interesting.pegs")          open(INTERESTING,">$FIG_Config::global/interesting.pegs")
165              || die "could not open $FIG_Config::global/interesting.pegs";              || die "could not open $FIG_Config::global/interesting.pegs";
166          print INTERESTING join("\n",@pegs),"\n";          print INTERESTING join("\n",@pegs),"\n";
# Line 168  Line 168 
168      }      }
169  }  }
170    
171    sub not_in_sub {
172        my($fig,$peg) = @_;
173    
174        my @tmp = grep { $fig->usable_subsystem($_) } $fig->peg_to_subsystems($peg);
175        return (@tmp == 0);
176    }
177    
178    
179  sub get_user_and_type {  sub get_user_and_type {
180      my($fig,$cgi,$html) = @_;      my($fig,$cgi,$html) = @_;
181    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3