[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /homework matchresponse.pm
From: foxr <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2006-03-31 11:10:26
Message-ID: cvsfoxr1143803426 () cvsserver
[Download RAW message or body]
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;
}
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic