[Bio] / Sprout / SHSigGenes.pm Repository:
ViewVC logotype

Diff of /Sprout/SHSigGenes.pm

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

revision 1.2, Wed Sep 27 16:55:38 2006 UTC revision 1.3, Fri Sep 29 15:10:05 2006 UTC
# Line 80  Line 80 
80      # there is the selector for the given genome, the commonality and cutoff values,      # there is the selector for the given genome, the commonality and cutoff values,
81      # and the submit button. Our first task, then, is to get the genome selection      # and the submit button. Our first task, then, is to get the genome selection
82      # menus.      # menus.
83      my $givenMenu   = $self->NmpdrGenomeMenu('given', { size => 1 }, [$cgi->param('genome')]);      my $givenMenu   = $self->NmpdrGenomeMenu('given', 0, [$cgi->param('genome')]);
84      my $targetMenu  = $self->NmpdrGenomeMenu('target', { size => 10, multiple => 'multiple' },      my $targetMenu  = $self->NmpdrGenomeMenu('target', 'multiple', [$cgi->param('target')]);
85                                               [$cgi->param('target')]);      my $excludeMenu = $self->NmpdrGenomeMenu('exclusion', 'multiple', [$cgi->param('exclusion')]);
     my $excludeMenu = $self->NmpdrGenomeMenu('exclusion', { size => 10, multiple => 'multiple' },  
                                              [$cgi->param('exclusion')]);  
86      # Get the default values to use for the commonality and cutoff controls.      # Get the default values to use for the commonality and cutoff controls.
87      my $commonality = $cgi->param('commonality') || "0.8";      my $commonality = $cgi->param('commonality') || "0.8";
88      my $cutoff = $cgi->param('cutoff') || "1e-10";      my $cutoff = $cgi->param('cutoff') || "1e-10";
# Line 150  Line 148 
148          $self->SetMessage("Cutoff cannot be greater than 1.");          $self->SetMessage("Cutoff cannot be greater than 1.");
149      } else {      } else {
150          # Now we need to gather and validate the genome sets.          # Now we need to gather and validate the genome sets.
151          my $givenGenomeID = $cgi->param('given');          my ($givenGenomeID) = $self->GetGenomes('given');
152          my %targetGenomes = map { $_ => 1 } $cgi->param('target');          my %targetGenomes = map { $_ => 1 } $self->GetGenomes('target');
153          my %exclusionGenomes = map { $_ => 1 } $cgi->param('exclusion');          my %exclusionGenomes = map { $_ => 1 } $self->GetGenomes('exclusion');
154          # Insure the given genome is not in the exclusion set.          # Insure the given genome is not in the exclusion set.
155          if ($exclusionGenomes{$givenGenomeID}) {          if ($exclusionGenomes{$givenGenomeID}) {
156              $self->SetMessage("The given genome ($givenGenomeID) cannot be in the exclusion set.");              $self->SetMessage("The given genome ($givenGenomeID) cannot be in the exclusion set.");
# Line 182  Line 180 
180      # Get the parameters.      # Get the parameters.
181      my ($self) = @_;      my ($self) = @_;
182      # Return the result.      # Return the result.
183      return "Search for features that common to a group of organisms or that discriminate between two groups of organisms.";      return "Search for features that are common to a group of organisms or that discriminate between two groups of organisms.";
184  }  }
185    
186  1;  1;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3