loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.524, 2011/11/21 21:45:36	version 1.526, 2011/12/06 16:30:19
Line 1496 sub renderingoptions {	Line 1496 sub renderingoptions {
{&Apache::lonlocal::texthash	{&Apache::lonlocal::texthash
('' => '',	('' => '',
'tth' => 'tth (TeX to HTML)',	'tth' => 'tth (TeX to HTML)',
'jsMath' => 'jsMath',	'MathJax' => 'MathJax',
	'jsMath' => 'jsMath',
'mimetex' => 'mimetex (Convert to Images)')}).	'mimetex' => 'mimetex (Convert to Images)')}).
'</span>';	'</span>';
return $output;	return $output;
Line 2049 sub register_insert_xml {	Line 2050 sub register_insert_xml {
while (my $token = $parser->get_token()) {	while (my $token = $parser->get_token()) {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
my $key;	my $key;
if ($token->[1] eq 'tag') {	if ($token->[1] eq 'tag') {
$tag = $token->[2]{'name'};	$tag = $token->[2]{'name'};
$insertlist{$tagnum.'.tag'} = $tag;	if (defined($tag)) {
$insertlist{$tag.'.num'} = $tagnum;	$insertlist{$tagnum.'.tag'} = $tag;
push(@alltags,$tag);	$insertlist{$tag.'.num'} = $tagnum;
	push(@alltags,$tag);
	}
} elsif ($in_help && $token->[1] eq 'file') {	} elsif ($in_help && $token->[1] eq 'file') {
$key = $tag.'.helpfile';	$key = $tag.'.helpfile';
} elsif ($in_help && $token->[1] eq 'description') {	} elsif ($in_help && $token->[1] eq 'description') {