version 1.51, 2005/02/12 01:13:56
|
version 1.52, 2005/04/07 06:56:22
|
Line 32 use HTML::Entities();
|
Line 32 use HTML::Entities();
|
use Math::Random(); |
use Math::Random(); |
use Apache::optionresponse(); |
use Apache::optionresponse(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonnet; |
|
|
BEGIN { |
BEGIN { |
&Apache::lonxml::register('Apache::matchresponse',('matchresponse')); |
&Apache::lonxml::register('Apache::matchresponse',('matchresponse')); |
Line 510 sub displayfoils {
|
Line 511 sub displayfoils {
|
$result='<table><tr><td valign="top">'.$question. |
$result='<table><tr><td valign="top">'.$question. |
'</td><td valign="top">'.$result.'</td></tr></table>'; |
'</td><td valign="top">'.$result.'</td></tr></table>'; |
} else { |
} else { |
my $tabsize=&Apache::londefdef::recalc($ENV{'form.textwidth'}); |
my $tabsize=&Apache::londefdef::recalc($env{'form.textwidth'}); |
my ($lefttabsize,$righttabsize)=(0,0); |
my ($lefttabsize,$righttabsize)=(0,0); |
if ($Apache::matchresponse::TeXitemgroupwidth ne '') { |
if ($Apache::matchresponse::TeXitemgroupwidth ne '') { |
$Apache::matchresponse::TeXitemgroupwidth=~/(\d*.?\d*)/; |
$Apache::matchresponse::TeXitemgroupwidth=~/(\d*.?\d*)/; |
Line 532 sub displayfoils {
|
Line 533 sub displayfoils {
|
$result='<table><tr><td valign="top">'.$result. |
$result='<table><tr><td valign="top">'.$result. |
'</td><td valign="top">'.$question.'</td></tr></table>'; |
'</td><td valign="top">'.$question.'</td></tr></table>'; |
} else { |
} else { |
my $tabsize=&Apache::londefdef::recalc($ENV{'form.textwidth'}); |
my $tabsize=&Apache::londefdef::recalc($env{'form.textwidth'}); |
my ($lefttabsize,$righttabsize)=(0,0); |
my ($lefttabsize,$righttabsize)=(0,0); |
if ($Apache::matchresponse::TeXitemgroupwidth ne '') { |
if ($Apache::matchresponse::TeXitemgroupwidth ne '') { |
$Apache::matchresponse::TeXitemgroupwidth=~/(\d*.?\d*)/; |
$Apache::matchresponse::TeXitemgroupwidth=~/(\d*.?\d*)/; |