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

foxr lon-capa-cvs@mail.lon-capa.org
Fri, 31 Mar 2006 11:10:26 -0000


foxr		Fri Mar 31 06:10:26 2006 EDT

  Modified files:              
    /loncom/homework	matchresponse.pm 
  Log:
  Bug 3535: Do some tricky stuff with tables in boxes so that we can
            eliminate the whilespace that normally preceds a description list.
  
  
Index: loncom/homework/matchresponse.pm
diff -u loncom/homework/matchresponse.pm:1.56 loncom/homework/matchresponse.pm:1.57
--- loncom/homework/matchresponse.pm:1.56	Tue Dec  6 05:13:46 2005
+++ loncom/homework/matchresponse.pm	Fri Mar 31 06:10:24 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Full matching style response
 #
-# $Id: matchresponse.pm,v 1.56 2005/12/06 10:13:46 albertel Exp $
+# $Id: matchresponse.pm,v 1.57 2006/03/31 11:10:24 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -163,15 +163,19 @@
 	$table.='</table>';
 	$Apache::matchresponse::itemtable{'display'}=$table;
     } elsif ($target eq 'tex') {
-	my $table=' \begin{description}\setlength{\leftmargin}{2em}\setlength{\labelwidth}{1em}\setlength{\itemsep}{0.5pt plus1pt minus2pt}\setlength{\listparindent}{0em} ';
+	#my $table='\begin{description}\setlength{\leftmargin}{2em}\setlength{\labelwidth}{1em}\setlength{\itemsep}{0.5pt plus1pt minus2pt}\setlength{\listparindent}{0em} ';
+	my $table="\\\\ \\makebox[\\textwidth][l]{ \\begin{tabular}{ll}\n";
 	my $i=0;
 	foreach my $name (@names) {
 	    $Apache::response::itemgroup{$name.'.text'}=~s/\$\$/\$/g;
-	    $table.='\item['.$alphabet[$i].'] '.
-		$Apache::response::itemgroup{$name.'.text'};
+	    # $table.='\item['.$alphabet[$i].'] '.
+	    # $Apache::response::itemgroup{$name.'.text'};
+	    my $response = $Apache::response::itemgroup{"$name.text"};
+	    $table .= "$alphabet[$i] & $response \\\\ \n";
 	    $i++;
 	}
-	$table.=' \end{description}  \strut ';
+	# $table.=' \end{description} \  \strut ';
+	$table .= "\\end{tabular}} \\strut \n\n \\vskip \\parskip ";
 	if ($Apache::lonhomework::type eq 'exam') {$table.='\vskip -13 mm \strut ';}
 	$Apache::matchresponse::itemtable{'display'}=$table;
     }