--- loncom/homework/optionresponse.pm 2010/02/05 15:34:02 1.159
+++ loncom/homework/optionresponse.pm 2010/02/05 20:54:33 1.160
@@ -1,7 +1,7 @@
# LearningOnline Network with CAPA
# option list style responses
#
-# $Id: optionresponse.pm,v 1.159 2010/02/05 15:34:02 www Exp $
+# $Id: optionresponse.pm,v 1.160 2010/02/05 20:54:33 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -359,6 +359,11 @@ sub displayanswers {
return $result;
}
+sub check_box_opt {
+# Check if we are in checkbox mode. If so, return "checked" value
+ return '';
+}
+
sub check_for_invalid {
my ($names,$options) = @_;
my %bad_names;
@@ -427,6 +432,11 @@ sub displayfoils {
my $temp=1;
my %lastresponse=&Apache::lonnet::str2hash($Apache::lonhomework::history{"resource.$part.$id.submission"});
my $internal_counter=$Apache::lonxml::counter;
+ my $checkboxopt=&check_box_opt();
+ if ($checkboxopt) {
+ $result.=' '.&mt('Choices: ').''.$opt[0].','.$opt[1].'. '.
+ &mt('Select all that are [_1].',$checkboxopt);
+ }
foreach $name (@whichopt) {
my $text=$Apache::response::foilgroup{$name.'.text'};
if ($text!~/^\s*$/) {
@@ -463,9 +473,6 @@ sub displayfoils {
}
}
}
-# debug for checkbox
- my $checkboxopt='';
-# end debug for checkbox
if ($target ne 'tex') {
if ($Apache::lonhomework::type ne 'exam') {
# we are on the web, this is not an exam, and the problem can be answered
@@ -487,8 +494,8 @@ sub displayfoils {
# defopt is what the field is going to start out with: either previous choice or altopt
# fieldname is this input field's name after HWVAL_
$optionlist=''.
- '\n";
+ '\n";
} else {
# classic selection list
$optionlist='