version 1.159, 2010/02/05 15:34:02
|
version 1.160, 2010/02/05 20:54:33
|
Line 359 sub displayanswers {
|
Line 359 sub displayanswers {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub check_box_opt { |
|
# Check if we are in checkbox mode. If so, return "checked" value |
|
return ''; |
|
} |
|
|
sub check_for_invalid { |
sub check_for_invalid { |
my ($names,$options) = @_; |
my ($names,$options) = @_; |
my %bad_names; |
my %bad_names; |
Line 427 sub displayfoils {
|
Line 432 sub displayfoils {
|
my $temp=1; |
my $temp=1; |
my %lastresponse=&Apache::lonnet::str2hash($Apache::lonhomework::history{"resource.$part.$id.submission"}); |
my %lastresponse=&Apache::lonnet::str2hash($Apache::lonhomework::history{"resource.$part.$id.submission"}); |
my $internal_counter=$Apache::lonxml::counter; |
my $internal_counter=$Apache::lonxml::counter; |
|
my $checkboxopt=&check_box_opt(); |
|
if ($checkboxopt) { |
|
$result.='<br />'.&mt('Choices: ').'<b>'.$opt[0].','.$opt[1].'</b>. '. |
|
&mt('Select all that are <b>[_1]</b>.',$checkboxopt); |
|
} |
foreach $name (@whichopt) { |
foreach $name (@whichopt) { |
my $text=$Apache::response::foilgroup{$name.'.text'}; |
my $text=$Apache::response::foilgroup{$name.'.text'}; |
if ($text!~/^\s*$/) { |
if ($text!~/^\s*$/) { |
Line 463 sub displayfoils {
|
Line 473 sub displayfoils {
|
} |
} |
} |
} |
} |
} |
# debug for checkbox |
|
my $checkboxopt=''; |
|
# end debug for checkbox |
|
if ($target ne 'tex') { |
if ($target ne 'tex') { |
if ($Apache::lonhomework::type ne 'exam') { |
if ($Apache::lonhomework::type ne 'exam') { |
# we are on the web, this is not an exam, and the problem can be answered |
# we are on the web, this is not an exam, and the problem can be answered |
Line 487 sub displayfoils {
|
Line 494 sub displayfoils {
|
# defopt is what the field is going to start out with: either previous choice or altopt |
# 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_ |
# fieldname is this input field's name after HWVAL_ |
$optionlist='<input type="hidden" name="HWVAL_'.$fieldname.'" value="'.$escdefopt.'" />'. |
$optionlist='<input type="hidden" name="HWVAL_'.$fieldname.'" value="'.$escdefopt.'" />'. |
'<label><input type="checkbox" name="HWCHK_'.$fieldname.'" onclick="javascript:if (this.form.elements[\'HWCHK_'. |
'<input type="checkbox" name="HWCHK_'.$fieldname.'" onclick="javascript:if (this.form.elements[\'HWCHK_'. |
$fieldname.'\'].checked) { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$esccheckboxopt.'\'; } else { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$escaltopt.'\'; };setSubmittedPart(\''.$part.'\');"'.($defopt eq $checkboxopt?' checked="checked"':'').' /><i>'.$checkboxopt.":</i></label>\n"; |
$fieldname.'\'].checked) { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$esccheckboxopt.'\'; } else { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$escaltopt.'\'; };setSubmittedPart(\''.$part.'\');"'.($defopt eq $checkboxopt?' checked="checked"':'')." />\n"; |
} else { |
} else { |
# classic selection list |
# classic selection list |
$optionlist='<select onchange="javascript:setSubmittedPart(\''. |
$optionlist='<select onchange="javascript:setSubmittedPart(\''. |