loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.425, 2008/07/28 05:26:00	version 1.427, 2008/08/13 16:56:15
Line 1382 sub end_languageblock {	Line 1382 sub end_languageblock {
my $result = &Apache::lonxml::endredirection();	my $result = &Apache::lonxml::endredirection();
my $which = &Apache::lonxml::get_param('which',$parstack,	my $which = &Apache::lonxml::get_param('which',$parstack,
$safeeval);	$safeeval);
$available_texts{$which} = $result;	foreach my $language (split(/\s\,\s/,$which)) {
	unless ($language=~/\w/) { next; }
	$available_texts{$language} = $result;
	}

}	}
return '';	return '';
}	}
Line 1879 sub end_startouttext {	Line 1883 sub end_startouttext {
$result.=&Apache::edit::start_table($token)."<tr><td>".&mt('Text Block')."</td>	$result.=&Apache::edit::start_table($token)."<tr><td>".&mt('Text Block')."</td>
<td>".&mt('Delete:').	<td>".&mt('Delete:').
&Apache::edit::deletelist($target,$token)	&Apache::edit::deletelist($target,$token)
."</td>	."</td>";
<td>".
&Apache::edit::insertlist($target,$token).
'</td>';
unless ($env{'environment.wysiwygeditor'} eq 'on') {	unless ($env{'environment.wysiwygeditor'} eq 'on') {
$result.='<td align="left">'	$result.='<td align="left">'
.&Apache::lonhtmlcommon::dragmath_button($areaid,1)	.&Apache::lonhtmlcommon::dragmath_button($areaid,1)