--- loncom/interface/lonhelper.pm 2006/01/24 22:20:19 1.130
+++ loncom/interface/lonhelper.pm 2006/03/02 23:56:55 1.131
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.130 2006/01/24 22:20:19 albertel Exp $
+# $Id: lonhelper.pm,v 1.131 2006/03/02 23:56:55 foxr Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2374,6 +2374,8 @@ SCRIPT
BUTTONS
+ $result .= $buttons;
+
}
if (defined $self->{ERROR_MSG}) {
@@ -2430,6 +2432,50 @@ BUTTONS
}
return $classlist->{$a}->[$fullname] cmp $classlist->{$b}->[$fullname];
} @keys;
+ #
+ # now add the fancy section choice... first enumerate the sections:
+ if ($self->{'multichoice'}) {
+ my %sections;
+ for my $key (@keys) {
+ my $section_name = $classlist->{$key}->[$section];
+ if ($section_name ne "") {
+ $sections{$section_name} = 1;
+ }
+ }
+ # The variable $choice_widget will have the html to make the choice
+ # selector.
+ my $size=5;
+ if (scalar(keys(%sections)) < 5) {
+ $size=scalar(keys(%sections));
+ }
+ my $choice_widget = '\n";
+
+ # Build a table without any borders to contain the section based
+ # selection:
+
+ my $section_selectors =<
+