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.50 and 1.51

version 1.50, 2005/01/31 22:00:40	version 1.51, 2005/02/12 01:13:56
Line 101 sub start_itemgroup {	Line 101 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 146 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') {

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

Removed from v.1.50
changed lines
	Added in v.1.51