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

Diff of /Sprout/SearchHelper.pm

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

revision 1.5, Mon Oct 2 06:35:31 2006 UTC revision 1.8, Wed Oct 4 16:03:35 2006 UTC
# Line 1082  Line 1082 
1082  Number of rows to display. If omitted, the default is 1 for a single-select list  Number of rows to display. If omitted, the default is 1 for a single-select list
1083  and 10 for a multi-select list.  and 10 for a multi-select list.
1084    
1085    =item crossMenu (optional)
1086    
1087    If specified, is presumed to be the name of another genome menu whose contents
1088    are to be mutually exclusive with the contents of this menu. As a result, instead
1089    of the standard onChange event, the onChange event will deselect any entries in
1090    the other menu.
1091    
1092  =item RETURN  =item RETURN
1093    
1094  Returns the HTML text to generate a C<SELECT> menu inside a form.  Returns the HTML text to generate a C<SELECT> menu inside a form.
# Line 1092  Line 1099 
1099    
1100  sub NmpdrGenomeMenu {  sub NmpdrGenomeMenu {
1101      # Get the parameters.      # Get the parameters.
1102      my ($self, $menuName, $multiple, $selected, $rows) = @_;      my ($self, $menuName, $multiple, $selected, $rows, $cross) = @_;
1103      # Get the Sprout and CGI objects.      # Get the Sprout and CGI objects.
1104      my $sprout = $self->DB();      my $sprout = $self->DB();
1105      my $cgi = $self->Q();      my $cgi = $self->Q();
# Line 1157  Line 1164 
1164      my $showSelect = "showSelected($menuName, '$divID', 1000);";      my $showSelect = "showSelected($menuName, '$divID', 1000);";
1165      # If multiple selection is supported, create an onChange event.      # If multiple selection is supported, create an onChange event.
1166      my $onChange = "";      my $onChange = "";
1167      if ($multiple) {      if ($cross) {
1168            $onChange = " onChange=\"crossUnSelect($menuName, '$divID', $cross, '${formName}_${cross}_status', 1000)\"";
1169        } elsif ($multiple) {
1170          $onChange = " onChange=\"$showSelect\"";          $onChange = " onChange=\"$showSelect\"";
1171      }      }
1172      # Create the SELECT tag and stuff it into the output array.      # Create the SELECT tag and stuff it into the output array.
# Line 1338  Line 1347 
1347      # Create the row.      # Create the row.
1348      my $retVal = $cgi->Tr($cgi->td("Results/Page"),      my $retVal = $cgi->Tr($cgi->td("Results/Page"),
1349                            $cgi->td($cgi->popup_menu(-name => 'PageSize',                            $cgi->td($cgi->popup_menu(-name => 'PageSize',
1350                                                      -values => [10, 25, 45, 100, 1000],                                                      -values => [10, 25, 50, 100, 1000],
1351                                                      -default => $pageSize) . " " .                                                      -default => $pageSize) . " " .
1352                                     $cgi->checkbox(-name => 'ShowURL',                                     $cgi->checkbox(-name => 'ShowURL',
1353                                                    -value => 1,                                                    -value => 1,
# Line 1406  Line 1415 
1415          # Get the feature location string.          # Get the feature location string.
1416          my $loc = $sprout->FeatureLocation($feat);          my $loc = $sprout->FeatureLocation($feat);
1417          # Compute the contig, start, and stop points.          # Compute the contig, start, and stop points.
1418          my($start, $stop, $contig) = BasicLocation::Parse($loc);          my($contig, $start, $stop) = BasicLocation::Parse($loc);
1419          Trace("Start and stop are ($start,$stop) on contig $contig.") if T(3);          Trace("Start and stop are ($start,$stop) on contig $contig.") if T(3);
1420          # Now we need to do some goofiness to insure that the location is not too          # Now we need to do some goofiness to insure that the location is not too
1421          # big and that we get some surrounding stuff.          # big and that we get some surrounding stuff.

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3