[LON-CAPA-cvs] cvs: loncom /homework matchresponse.pm

raeburn raeburn@source.lon-capa.org
Thu, 11 Dec 2008 01:33:56 -0000


raeburn		Thu Dec 11 01:33:56 2008 EDT

  Modified files:              
    /loncom/homework	matchresponse.pm 
  Log:
  - Revert 1.74 to 1.73 (restore PDF forms support). 
  
  
Index: loncom/homework/matchresponse.pm
diff -u loncom/homework/matchresponse.pm:1.74 loncom/homework/matchresponse.pm:1.75
--- loncom/homework/matchresponse.pm:1.74	Thu Dec 11 01:11:55 2008
+++ loncom/homework/matchresponse.pm	Thu Dec 11 01:33:55 2008
@@ -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 @@
 		$optionlist="<option></option>\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 @@
 		if ($option eq $last_letter) {
 		    if ($target ne 'tex') {
                         $optionlist.="<option selected=\"on\">$option</option>\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.="<option>$option</option>\n";
+                    } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
+                        $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option);
                     }
 		}
 	    }
@@ -568,7 +577,7 @@
 		# 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 @@
 		    $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++;