version 1.50, 2005/01/31 22:00:40
|
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 101 sub start_itemgroup {
|
Line 102 sub start_itemgroup {
|
'location', |
'location', |
['top','bottom','left','right'], |
['top','bottom','left','right'], |
$token); |
$token); |
|
$result.=&Apache::edit::select_arg('Items Display Directection:', |
|
'direction', |
|
['vertical','horizontal'], |
|
$token); |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
$safeeval,'randomize', |
$safeeval,'randomize', |
'location'); |
'location','direction'); |
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } |
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } |
} elsif ($target eq 'web' or $target eq 'tex') { |
} elsif ($target eq 'web' or $target eq 'tex') { |
$Apache::matchresponse::itemtable{'location'}= |
$Apache::matchresponse::itemtable{'location'}= |
Line 142 sub end_itemgroup {
|
Line 147 sub end_itemgroup {
|
} |
} |
$Apache::response::itemgroup{'letter_name_map'}=\%letter_name_map; |
$Apache::response::itemgroup{'letter_name_map'}=\%letter_name_map; |
$Apache::response::itemgroup{'name_letter_map'}=\%name_letter_map; |
$Apache::response::itemgroup{'name_letter_map'}=\%name_letter_map; |
|
my $direction=&Apache::lonxml::get_param('direction',$parstack,$safeeval); |
if ($target eq 'web') { |
if ($target eq 'web') { |
my $table='<table>'; |
my $table='<table>'; |
my $i=0; |
my $i=0; |
|
if ($direction eq 'horizontal') { $table .='<tr>';} |
foreach my $name (@names) { |
foreach my $name (@names) { |
$table.='<tr><td>'.$alphabet[$i].'</td><td>'. |
if ($direction ne 'horizontal') { $table.='<tr>'; } |
$Apache::response::itemgroup{$name.'.text'}. |
$table.='<td>'.$alphabet[$i].'</td><td>'. |
'</td></tr>'; |
$Apache::response::itemgroup{$name.'.text'}.'</td>'; |
|
if ($direction ne 'horizontal') { $table.='</tr>'; } |
$i++; |
$i++; |
} |
} |
|
if ($direction eq 'horizontal') { $table .='</tr>';} |
$table.='</table>'; |
$table.='</table>'; |
$Apache::matchresponse::itemtable{'display'}=$table; |
$Apache::matchresponse::itemtable{'display'}=$table; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
Line 502 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 524 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*)/; |