--- loncom/homework/matchresponse.pm 2008/12/11 01:11:55 1.74 +++ loncom/homework/matchresponse.pm 2008/12/11 01:33:55 1.75 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Full matching style response # -# $Id: matchresponse.pm,v 1.74 2008/12/11 01:11:55 raeburn Exp $ +# $Id: matchresponse.pm,v 1.75 2008/12/11 01:33:55 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -513,7 +513,12 @@ sub displayfoils { $optionlist="\n"; } else { if ($Apache::lonhomework::type ne 'exam') { - $optionlist='\framebox[10 mm][s]{\tiny\strut}'; + if($env{'form.pdfFormFields'} eq 'yes') { + my $fieldname = $env{'request.symb'} . '&part_'. $Apache::inputtags::part .'&matchresponse'. '&HWVAL_' . $Apache::inputtags::response['-1'] . ':' . $temp . '&submit_' . $Apache::inputtags::part . '&'; + $optionlist = &Apache::lonxml::print_pdf_start_combobox($fieldname); + } else { + $optionlist='\framebox[10 mm][s]{\tiny\strut}'; + } } } my $option; @@ -521,10 +526,14 @@ sub displayfoils { if ($option eq $last_letter) { if ($target ne 'tex') { $optionlist.="\n"; + } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') { + $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); } } else { if ($target ne 'tex') { $optionlist.="\n"; + } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') { + $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); } } } @@ -568,7 +577,7 @@ sub displayfoils { # Note that if left or right positioned, we must # confine the bubbles to righttabsize: # - if ($Apache::lonhomework::type eq 'exam') { + if ($Apache::lonhomework::type eq 'exam' && $env{'form.pdfFormFields'} ne 'yes') { $question.=' '.$optionlist.$text."\n"; my @emptyItems = (); for (my $i=0;$i<=$#used_letters;$i++) {push @emptyItems, ' ';} @@ -583,7 +592,11 @@ sub displayfoils { $question .= '\end{list} \vskip -8 mm \strut '; $internal_counter++; } else { - $question.=' '.$optionlist.$text.'\strut\\\\\strut '."\n"; + if($env{'form.pdfFormFields'} eq 'yes') { + $question .= " $optionlist ". &Apache::lonxml::print_pdf_end_combobox($text).'\strut'; + } else { + $question.=' '.$optionlist.$text.'\strut\\\\\strut '."\n"; + } } } $temp++;