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.90 and 1.93

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

version 1.90, 2014/02/27 14:41:34	version 1.93, 2016/01/22 22:42:51
Line 55 sub start_matchresponse {	Line 55 sub start_matchresponse {
$result=&Apache::response::meta_package_write('matchresponse');	$result=&Apache::response::meta_package_write('matchresponse');
} elsif ($target eq 'edit' ) {	} elsif ($target eq 'edit' ) {
$result.=&Apache::edit::start_table($token).	$result.=&Apache::edit::start_table($token).
'<tr><td>'.&Apache::lonxml::description($token).'</td>'	'<tr><td>'.&Apache::loncommon::insert_folding_button().&Apache::lonxml::description($token).'</td>'
.'<td><span class="LC_nobreak">'.&mt('Delete?').' '	.'<td><span class="LC_nobreak">'.&mt('Delete?').' '
.&Apache::edit::deletelist($target,$token)	.&Apache::edit::deletelist($target,$token)
.'</span></td>'	.'</span></td>'
Line 171 sub end_itemgroup {	Line 171 sub end_itemgroup {
}	}
if ($target eq 'web') {	if ($target eq 'web') {

my $table='<br /><table>'; # extra space to match what latex does.	my $table='<table class="LC_itemgroup">'; # extra space to match what latex does.
if ((!$columns) \|\| ($columns < 0)) {	if ((!$columns) \|\| ($columns < 0)) {
if ($direction eq 'horizontal') {	if ($direction eq 'horizontal') {
if (@names > 0) {	if (@names > 0) {
Line 319 sub start_foilgroup {	Line 319 sub start_foilgroup {
&Apache::response::pushrandomnumber(undef,$target);	&Apache::response::pushrandomnumber(undef,$target);
if ($target eq 'edit') {	if ($target eq 'edit') {
$result.=&Apache::edit::start_table($token)	$result.=&Apache::edit::start_table($token)
.'<tr><td>'.&mt('Collection Of Foils').'</td>'	.'<tr><td>'.&Apache::loncommon::insert_folding_button()
	.&mt('Collection Of Foils').'</td>'
.'<td><span class="LC_nobreak">'.&mt('Delete?')	.'<td><span class="LC_nobreak">'.&mt('Delete?')
.&Apache::edit::deletelist($target,$token)	.&Apache::edit::deletelist($target,$token)
.'</span></td>'	.'</span></td>'
Line 581 sub format_prior_answer {	Line 582 sub format_prior_answer {

foreach my $name (@{ $foil_order }) {	foreach my $name (@{ $foil_order }) {
my $item = &HTML::Entities::encode(shift(@items),'<>&"');	my $item = &HTML::Entities::encode(shift(@items),'<>&"');
	if ($item eq '') {
	$item = ' ';
	}
$output .= '<tr><td>'.$item.'</td></tr>';	$output .= '<tr><td>'.$item.'</td></tr>';
}	}
return if (!defined($output));	return if (!defined($output));

Removed from v.1.90
changed lines
	Added in v.1.93