'."\n";
+Returns html for a selection box allowing the user to choose one (or more)
+of the sequences in the course. The values of the sequences are the symbs.
+If the top sequence is selected, the value 'top' will result.
- my $displayString = '
'."\n";
+=over 4
- my $alternate=0;
- foreach (@$students) {
-# if ($mySections{$cache{$_.':'.'section'}} ne 'True') {next;}
- my ($username, $domain) = split(':', $_);
- if($alternate) {
- $Str .= '
';
- } else {
- $Str .= '
';
+=item $elementname The name of the HTML form element
+
+=item $status 'multiple' or 'single' selection box
+
+=item $numvisible The number of options to be visible
+
+=item $restriction Code reference to subroutine which returns true or
+false. The code must expect a reference to a sequence data structure.
+
+=back
+
+=cut
+
+##############################################
+##############################################
+sub MapSelect {
+ my ($elementname,$status,$numvisible,$restriction)=@_;
+ if ($numvisible < 1) {
+ return;
+ }
+ #
+ # Set up array of selected items
+ &SetSelectedMaps($elementname);
+ #
+ # Set up the restriction call
+ if (! defined($restriction)) {
+ $restriction = sub { 1; };
+ }
+ #
+ # Build the form element
+ my $Str = "\n";
+ $Str .= '\n";
+ return $Str;
+}
- $Str .= '
'."\n";
- $Str .= '
'."\n";
- $r->print($Str);
- $r->rflush();
+##############################################
+##############################################
- untie(%cache);
+=pod
- return;
-}
+=item &SectionSelect($elementname,$status,$numvisible)
-sub CreateMainMenu {
- my ($status, $reports)=@_;
+Returns html for a selection box allowing the user to choose one (or more)
+of the sections in the course.
- my $Str = '';
+Uses the package variables @Sections and @SelectedSections
+=over 4
+
+=item $elementname The name of the HTML form element
+
+=item $status 'multiple' or 'single' selection box
- $Str .= '