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

Diff of /FigWebServices/sigs.cgi

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

revision 1.35, Thu Jul 20 04:58:43 2006 UTC revision 1.36, Thu Jul 20 05:03:39 2006 UTC
# Line 22  Line 22 
22  use HTML;  use HTML;
23  use CGI;  use CGI;
24  use Tracer;  use Tracer;
25    use PageBuilder;
26  my $cgi = new CGI;  my $cgi = new CGI;
27    
28  if (0) {  if (0) {
# Line 228  Line 229 
229    
230  sub common_genes {  sub common_genes {
231      my($set1,$given,$sim_cutoff,$minN,$is_sprout) = @_;      my($set1,$given,$sim_cutoff,$minN,$is_sprout) = @_;
     warn "sig: common genes.\n";  
232      my %set1  = map { $_ => 1 } @$set1;      my %set1  = map { $_ => 1 } @$set1;
233      if ($set1{$given})      if ($set1{$given})
234      {      {

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3