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.=' \\\\ ';} |