loncom/homework/matchresponse.pm - diff

Return to matchresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/matchresponse.pm between versions 1.38 and 1.39

version 1.38, 2004/03/15 22:09:52	version 1.39, 2004/04/02 17:58:16
Line 153 sub end_itemgroup {	Line 153 sub end_itemgroup {
$table.='</table>';	$table.='</table>';
$Apache::matchresponse::itemtable{'display'}=$table;	$Apache::matchresponse::itemtable{'display'}=$table;
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $table=' \begin{description} ';	my $table=' \begin{description}\setlength{\leftmargin}{2em}\setlength{\labelwidth}{1em}\setlength{\itemsep}{0.5pt plus1pt minus2pt}\setlength{\listparindent}{0em} ';
my $i=0;	my $i=0;
foreach my $name (@names) {	foreach my $name (@names) {
$Apache::response::itemgroup{$name.'.text'}=~s/\$\$/\$/g;	$Apache::response::itemgroup{$name.'.text'}=~s/\$\$/\$/g;
Line 487 sub displayfoils {	Line 487 sub displayfoils {
$result='<table><tr><td>'.$question.'</td><td>'.$result.	$result='<table><tr><td>'.$question.'</td><td>'.$result.
'</td></tr></table>';	'</td></tr></table>';
} else {	} else {
$result='\begin{tabular}{p{\textwidth/2}p{\textwidth/2}}\begin{minipage}{\textwidth/2}'.$question.'\end{minipage}&\begin{minipage}{\textwidth/2}'.$result.'\end{minipage}\end{tabular}';	my $tabsize=&Apache::londefdef::recalc($ENV{'form.textwidth'});
	$tabsize=~/(\d+\.?\d*)/;
	$tabsize=$1/2.1;
	$tabsize.=' mm ';
	$result='\setlength{\tabcolsep}{1 mm}\begin{tabular}{p{'.$tabsize.'}p{'.$tabsize.'}}\begin{minipage}{'.$tabsize.'}'.$question.'\end{minipage}&\begin{minipage}{'.$tabsize.'}'.$result.'\end{minipage}\end{tabular}';
}	}
} elsif ($result=&itemdisplay('left')) {	} elsif ($result=&itemdisplay('left')) {
if ($target ne 'tex') {	if ($target ne 'tex') {
$result='<table><tr><td>'.$result.'</td><td>'.$question.	$result='<table><tr><td>'.$result.'</td><td>'.$question.
'</td></tr></table>';	'</td></tr></table>';
} else {	} else {
$result='\begin{tabular}{p{\textwidth/2}p{\textwidth/2}}\begin{minipage}{\textwidth/2}'.$result.'\end{minipage}&\begin{minipage}{\textwidth/2}'.$question.'\end{minipage}\end{tabular}';	my $tabsize=&Apache::londefdef::recalc($ENV{'form.textwidth'});
	$tabsize=~/(\d+\.?\d*)/;
	$tabsize=$1/2.1;
	$tabsize.=' mm ';
	$result='\setlength{\tabcolsep}{1 mm}\begin{tabular}{p{'.$tabsize.'}p{'.$tabsize.'}}\begin{minipage}{'.$tabsize.'}'.$result.'\end{minipage}&\begin{minipage}{'.$tabsize.'}'.$question.'\end{minipage}\end{tabular}';
}	}
}	}
if ($target ne 'tex') {$result.="<br />";} else {$result.=' \\\\ ';}	if ($target ne 'tex') {$result.="<br />";} else {$result.=' \\\\ ';}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.38
changed lines
	Added in v.1.39