version 1.156, 2008/11/20 15:19:15
|
version 1.161, 2010/02/05 21:38:41
|
Line 65 sub start_optionresponse {
|
Line 65 sub start_optionresponse {
|
&Apache::edit::select_arg('Randomize Foil Order:','randomize', |
&Apache::edit::select_arg('Randomize Foil Order:','randomize', |
['yes','no'],$token). |
['yes','no'],$token). |
&Apache::edit::select_arg(&mt('Display of options when printed'),'TeXlayout', |
&Apache::edit::select_arg(&mt('Display of options when printed'),'TeXlayout', |
[['horizontal',&mt('Normal list')], |
[['horizontal','Normal list'], |
['vertical',&mt('Listed in a vertical column')]],$token). |
['vertical','Listed in a vertical column']],$token). |
&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
Line 190 sub end_foilgroup {
|
Line 190 sub end_foilgroup {
|
|
|
my $TeXlayout=&Apache::lonxml::get_param('TeXlayout',$parstack,$safeeval, |
my $TeXlayout=&Apache::lonxml::get_param('TeXlayout',$parstack,$safeeval, |
-2,0); |
-2,0); |
|
my $checkboxvalue=&Apache::lonxml::get_param('checkboxvalue',$parstack,$safeeval); |
if ($target eq 'tex' && $tex_option_switch eq 'nochoice') {@opt=();} |
if ($target eq 'tex' && $tex_option_switch eq 'nochoice') {@opt=();} |
&Apache::lonxml::debug("Options are $#opt"); |
&Apache::lonxml::debug("Options are $#opt"); |
my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2'); |
my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2'); |
my $randomize = &Apache::lonxml::get_param('randomize',$parstack, |
my $randomize = &Apache::lonxml::get_param('randomize',$parstack, |
$safeeval,'-2'); |
$safeeval,'-2'); |
if ($target eq 'web' || $target eq 'tex') { |
if ($target eq 'web' || $target eq 'tex') { |
$result.=&displayfoils($target,$max,$randomize,$TeXlayout,@opt); |
$result.=&displayfoils($target,$max,$randomize,$TeXlayout,$checkboxvalue,@opt); |
$Apache::lonxml::post_evaluate=0; |
$Apache::lonxml::post_evaluate=0; |
} elsif ( $target eq 'answer') { |
} elsif ( $target eq 'answer') { |
$result.=&displayanswers($max,$randomize,@opt); |
$result.=&displayanswers($max,$randomize,@opt); |
Line 359 sub displayanswers {
|
Line 360 sub displayanswers {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub check_box_opt { |
|
my ($target,$checkboxvalue,@opt)=@_; |
|
# Check if we are in checkbox mode: checkboxvalue specified, on web, only two options. |
|
# If so, return "checked" value |
|
if ($#opt!=1) { return ''; } |
|
if ($target ne 'web') { return ''; } |
|
return $checkboxvalue; |
|
} |
|
|
sub check_for_invalid { |
sub check_for_invalid { |
my ($names,$options) = @_; |
my ($names,$options) = @_; |
my %bad_names; |
my %bad_names; |
Line 381 sub check_for_invalid {
|
Line 391 sub check_for_invalid {
|
} |
} |
|
|
sub displayfoils { |
sub displayfoils { |
my ($target,$max,$randomize,$TeXlayout,@opt)=@_; |
my ($target,$max,$randomize,$TeXlayout,$checkboxvalue,@opt)=@_; |
if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;} |
if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;} |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
my @truelist; |
my @truelist; |
Line 427 sub displayfoils {
|
Line 437 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($target,$checkboxvalue,@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 439 sub displayfoils {
|
Line 454 sub displayfoils {
|
my $lastopt=$lastresponse{$name}; |
my $lastopt=$lastresponse{$name}; |
my $optionlist="<option></option>\n"; |
my $optionlist="<option></option>\n"; |
|
|
if($target eq 'tex' and $env{'form.pdfFormFields'} eq 'yes') { |
if($target eq 'tex' and $env{'form.pdfFormFields'} eq 'yes' |
|
&& $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
my $fieldname = $env{'request.symb'}.'&part_'.$Apache::inputtags::part.'&optionresponse'.'&HWVAL_'.$Apache::inputtags::response['-1'].':'.$temp; |
my $fieldname = $env{'request.symb'}.'&part_'.$Apache::inputtags::part.'&optionresponse'.'&HWVAL_'.$Apache::inputtags::response['-1'].':'.$temp; |
$optionlist = &Apache::lonxml::print_pdf_start_combobox($fieldname); |
$optionlist = &Apache::lonxml::print_pdf_start_combobox($fieldname); |
} |
} |
Line 447 sub displayfoils {
|
Line 463 sub displayfoils {
|
foreach my $option (@opt) { |
foreach my $option (@opt) { |
my $escopt=&HTML::Entities::encode($option,'\'"&<>'); |
my $escopt=&HTML::Entities::encode($option,'\'"&<>'); |
if ($option eq $lastopt) { |
if ($option eq $lastopt) { |
if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') { |
if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes' |
|
&& $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
$optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); |
$optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); |
} else { |
} else { |
$optionlist.="<option value='".$escopt."' selected=\"selected\">$option</option>\n"; |
$optionlist.="<option value='".$escopt."' selected=\"selected\">$option</option>\n"; |
} |
} |
} else { |
} else { |
if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') { |
if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes' |
|
&& $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
$optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); |
$optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); |
} else { |
} else { |
$optionlist.="<option value='".$escopt."'>$option</option>\n"; |
$optionlist.="<option value='".$escopt."'>$option</option>\n"; |
Line 462 sub displayfoils {
|
Line 480 sub displayfoils {
|
} |
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
if ($Apache::lonhomework::type ne 'exam') { |
if ($Apache::lonhomework::type ne 'exam') { |
$optionlist='<select onchange="javascript:setSubmittedPart(\''. |
# we are on the web, this is not an exam, and the problem can be answered |
|
if ($checkboxopt) { |
|
# generate checkboxes |
|
my $fieldname=$Apache::inputtags::response['-1'].':'.$temp; |
|
my $altopt=$opt[0]; |
|
if ($opt[0] eq $checkboxopt) { |
|
$altopt=$opt[1]; |
|
} |
|
my $defopt=$lastopt; |
|
unless ($defopt) { $defopt=$altopt; } |
|
my $escdefopt=&HTML::Entities::encode($defopt,'\'"&<>'); |
|
my $esccheckboxopt=&HTML::Entities::encode($checkboxopt,'\'"&<>'); |
|
my $escaltopt=&HTML::Entities::encode($altopt,'\'"&<>'); |
|
# checkboxopt is how the box is labelled |
|
# altopt is the alternative option |
|
# lastopt is what the user submitted before |
|
# 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='<input type="hidden" name="HWVAL_'.$fieldname.'" value="'.$escdefopt.'" />'. |
|
'<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"':'')." />\n"; |
|
} else { |
|
# classic selection list |
|
$optionlist='<select onchange="javascript:setSubmittedPart(\''. |
$part.'\');" name="HWVAL_'. |
$part.'\');" name="HWVAL_'. |
$Apache::inputtags::response['-1'].':'.$temp.'">'. |
$Apache::inputtags::response['-1'].':'.$temp.'">'. |
$optionlist."</select>\n"; |
$optionlist."</select>\n"; |
|
} |
} else { |
} else { |
$optionlist='<u>'.(' 'x10).'</u>'; |
$optionlist='<u>'.(' 'x10).'</u>'; |
} |
} |
Line 516 sub displayfoils {
|
Line 558 sub displayfoils {
|
'\end{enumerate} \vskip -8 mm \strut '; |
'\end{enumerate} \vskip -8 mm \strut '; |
$internal_counter++; |
$internal_counter++; |
} |
} |
if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') { |
if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes' |
$text =~ s/.*indent(.*)$/$1/; |
&& $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
$text = $1; |
$text =~ s/\\item//m; |
$result .= " $optionlist ". &Apache::lonxml::print_pdf_end_combobox($text).'\strut \\\\'; |
$result .= " $optionlist ". &Apache::lonxml::print_pdf_end_combobox($text).'\strut \\\\'; |
$temp++; |
$temp++; |
} |
} |
Line 841 start_optionresponse()
|
Line 883 start_optionresponse()
|
|
|
=back |
=back |
|
|
=cut |
|
|
|
|
=cut |