Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/londefdef.pm between versions 1.135 and 1.243

version 1.135, 2003/05/22 16:00:53	version 1.243, 2004/10/18 22:02:02
Line 25	Line 25
# /home/httpd/html/adm/gpl.txt	# /home/httpd/html/adm/gpl.txt
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	## Copyright for TtHfunc and TtMfunc by Ian Hutchinson.
# Copyright for TtHfunc and TtMfunc by Ian Hutchinson.
# TtHfunc and TtMfunc (the "Code") may be compiled and linked into	# TtHfunc and TtMfunc (the "Code") may be compiled and linked into
# binary executable programs or libraries distributed by the	# binary executable programs or libraries distributed by the
# Michigan State University (the "Licensee"), but any binaries so	# Michigan State University (the "Licensee"), but any binaries so
Line 51 use Apache::File();	Line 50 use Apache::File();
use Image::Magick;	use Image::Magick;
use Apache::lonmenu();	use Apache::lonmenu();
use Apache::lonmeta();	use Apache::lonmeta();
	use Apache::Constants qw(:common);


BEGIN {	BEGIN {

Line 58 BEGIN {	Line 59 BEGIN {

}	}

	sub initialize_londefdef {
	$Apache::londefdef::TD_redirection=0;
	@Apache::londefdef::table = ();
	$Apache::londefdef::select=0;
	undef(@Apache::londefdef::description);
	@Apache::londefdef::DD=(0);
	@Apache::londefdef::DT=(0);
	$Apache::londefdef::list_index=0;
	}

#======================= TAG SUBROUTINES =====================	#======================= TAG SUBROUTINES =====================
#-- <output>	#-- <output>
sub start_output {	sub start_output {
Line 72 sub end_output {	Line 83 sub end_output {
}	}
#-- <m> tag	#-- <m> tag
sub start_m {	sub start_m {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
$Apache::lonxml::prevent_entity_encode++;	if ($target eq 'web' \|\| $target eq 'analyze') {
my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
$inside ='\\documentstyle{article}'.$inside;	$inside ='\\documentstyle{article}'.$inside;
&Apache::lonxml::debug("M is starting with:$inside:");	&Apache::lonxml::debug("M is starting with:$inside:");
my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);	my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);
Line 91 sub start_m {	Line 101 sub start_m {
$Apache::lontexconvert::errorstring='';	$Apache::lontexconvert::errorstring='';
}	}
#&Apache::lonxml::debug("M is ends with:$currentstring:");	#&Apache::lonxml::debug("M is ends with:$currentstring:");
	$Apache::lonxml::post_evaluate=0;
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);	$currentstring = $inside;
	my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);
	if ($eval eq 'on') {
	$currentstring=&Apache::run::evaluate($currentstring,$safeeval,$$parstack[-1]);
	}
if ($currentstring=~/^(\s\\\\\s)*$/) {$currentstring = ' \vskip 0 mm ';}	if ($currentstring=~/^(\s\\\\\s)*$/) {$currentstring = ' \vskip 0 mm ';}
} else {	$Apache::lonxml::post_evaluate=0;
my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
}	}
return $currentstring;	return $currentstring;
}	}
Line 103 sub start_m {	Line 117 sub start_m {
sub end_m {	sub end_m {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'tex') {
$Apache::lonxml::prevent_entity_encode--;
} elsif ($target eq 'tex') {
$currentstring = "";	$currentstring = "";
} elsif ($target eq 'meta') {
}	}
return $currentstring;	return $currentstring;
}	}
Line 133 sub end_tthoption {	Line 144 sub end_tthoption {
return $result;	return $result;
}	}

#-- <html> tag	#-- <html> tag (end tag optional)
sub start_html {	sub start_html {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($ENV{'browser.mathml'}) {	my $options=$ENV{'course.'.$ENV{'request.course.id'}.'.tthoptions'};
&tth::ttminit();	&Apache::lontexconvert::init_tth();
if ($ENV{'browser.unicode'}) {	if ($target eq 'web' \|\| $target eq 'edit') {
&tth::ttmoptions('-L -u1');	$currentstring = &Apache::lonxml::xmlbegin();
} else {
&tth::ttmoptions('-L -u0');
}
} else {
&tth::tthinit();
if ($ENV{'browser.unicode'}) {
&tth::tthoptions('-L -u1');
} else {
&tth::tthoptions('-L -u0');
}
}
if ($target eq 'web') {
$currentstring = &Apache::lonxml::xmlbegin().
&Apache::lonxml::fontsettings();
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
@Apache::londefdef::table = ();	@Apache::londefdef::table = ();
$currentstring .= '\documentclass[letterpaper]{article}	$currentstring .= '\documentclass[letterpaper]{book}';
\newcommand{\keephidden}[1]{}	if ($ENV{'form.latex_type'}=~'batchmode') {$currentstring .='\batchmode';}
\renewcommand{\deg}{$^{\circ}$}	$currentstring .= '\newcommand{\keephidden}[1]{}'.
\usepackage{textcomp}	'\renewcommand{\deg}{$^{\circ}$}'.
\usepackage[dvips]{graphicx}	'\usepackage{longtable}'.
\usepackage{epsfig}\usepackage{calc}	'\usepackage{textcomp}'.
\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}\setlength{\abovedisplayshortskip}{-0.04in}\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}';	'\usepackage{makeidx}'.
	'\usepackage[dvips]{graphicx}'.
	'\usepackage{epsfig}'.
	'\usepackage{calc}'.
	'\usepackage{amsmath}'.
	'\usepackage{amssymb}'.
	'\usepackage{amsfonts}'.
	'\usepackage{amsthm}'.
	'\usepackage{amscd}'.
	'\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}\setlength{\abovedisplayshortskip}{-0.04in}\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}'.
	'\renewenvironment{theindex}{\begin{list}{}{{\vskip 1mm \noindent \large\textbf{Index}} \newline \setlength{\rightmargin}{0in}\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.01in}\setlength{\itemsep}{0.1in}\setlength{\parsep}{-0.02in}\setlength{\belowdisplayskip}{0.01in}\setlength{\abovedisplayskip}{0.01in}\setlength{\abovedisplayshortskip}{-0.04in}\setlength{\belowdisplayshortskip}{0.01in}}}{\end{list}}';
}	}
return $currentstring;	return $currentstring;
}	}

sub end_html {	sub end_html {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = &Apache::lonxml::xmlend();	$currentstring = &Apache::lonxml::xmlend($target,$parser);
}	}
return $currentstring;	return $currentstring;
}	}

#-- <head> tag	#-- <head> tag (end tag optional)
sub start_head {	sub start_head {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4].&Apache::lonxml::fontsettings();
}	}
return $currentstring;	return $currentstring;
}	}
Line 190 sub start_head {	Line 197 sub start_head {
sub end_head {	sub end_head {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web' && $ENV{'request.state'} eq 'published') {
$currentstring = &Apache::lonmenu::registerurl(undef,$target).	$currentstring = &Apache::lonmenu::registerurl(undef,$target).
$token->[2];	$token->[2];
}	}
return $currentstring;	return $currentstring;
}	}

#-- <map> tag	#-- <map> tag (end tag required)
sub start_map {	sub start_map {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 216 sub end_map {	Line 223 sub end_map {
return $currentstring;	return $currentstring;
}	}

#-- <select> tag	#-- <select> tag (end tag required)
sub start_select {	sub start_select {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
}	} elsif ($target eq 'tex') {
	$Apache::londefdef::select=0;
	}
return $currentstring;	return $currentstring;
}	}

Line 235 sub end_select {	Line 244 sub end_select {
return $currentstring;	return $currentstring;
}	}

#-- <option> tag	#-- <option> tag (end tag optional)
sub start_option {	sub start_option {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
}	} elsif ($target eq 'tex') {
	$Apache::londefdef::select++;
	if ($Apache::londefdef::select == 1) {
	$currentstring='\noindent\fbox{'.&Apache::lonxml::get_param('value',$parstack,$safeeval).'}\keephidden{';
	} else {
	$currentstring='\keephidden{';
	}
	}
return $currentstring;	return $currentstring;
}	}

Line 250 sub end_option {	Line 266 sub end_option {
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
}	} elsif ($target eq 'tex') {
	$currentstring='}';
	}
return $currentstring;	return $currentstring;
}	}

#-- <input> tag	#-- <input> tag (end tag forbidden)
sub start_input {	sub start_input {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 273 sub end_input {	Line 291 sub end_input {
return $currentstring;	return $currentstring;
}	}

#-- <textarea> tag	#-- <textarea> tag (end tag required)
sub start_textarea {	sub start_textarea {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 292 sub end_textarea {	Line 310 sub end_textarea {
return $currentstring;	return $currentstring;
}	}

#-- <form> tag	#-- <form> tag (end tag required)
sub start_form {	sub start_form {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 311 sub end_form {	Line 329 sub end_form {
return $currentstring;	return $currentstring;
}	}

#-- <title> tag	#-- <title> tag (end tag required)
sub start_title {	sub start_title {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '\keephidden{'	$currentstring .= '\keephidden{Title of the document: '
}	}
if ($target eq 'meta') {	if ($target eq 'meta') {
$currentstring='<title>';	$currentstring='<title>';
&start_output();	&start_output($target);
}	}
return $currentstring;	return $currentstring;
}	}
Line 336 sub end_title {	Line 354 sub end_title {
$currentstring .= '}';	$currentstring .= '}';
}	}
if ($target eq 'meta') {	if ($target eq 'meta') {
&end_output();	&end_output($target);
$currentstring='</title>';	$currentstring='</title>';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <meta> tag	#-- <meta> tag (end tag forbidden)
sub start_meta {	sub start_meta {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
Line 362 sub start_meta {	Line 380 sub start_meta {
$name=~s/\s/\_/gs;	$name=~s/\s/\_/gs;
$name=~s/\W//gs;	$name=~s/\W//gs;
if ($name) {	if ($name) {
$currentstring='<'.$name.'>'.	$currentstring='<'.$name;
	my $display=&Apache::lonxml::get_param
	('display',$parstack,$safeeval,undef,1);
	if ($display) {
	$display=~s/\"/\'/g;
	$currentstring.=' display="'.$display.'"';
	}
	$currentstring.='>'.
&Apache::lonxml::get_param	&Apache::lonxml::get_param
('content',$parstack,$safeeval,undef,1).	('content',$parstack,$safeeval,undef,1).
'</'.$name.'>';	'</'.$name.'>';
}	}
	my $display=&Apache::lonxml::get_param
	('display',$parstack,$safeeval,undef,1);
	if ($display) {
	$display=&HTML::Entities::encode($display,'<>&"');
	$currentstring.='<'.$name.'.display>'.$display.
	'</'.$name.'.display>';
	}
}	}
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
&Apache::lonxml::startredirection();	my $content=&Apache::lonxml::get_param('content',$parstack,$safeeval);
	my $name=&Apache::lonxml::get_param('name',$parstack,$safeeval);
	if ((not defined $content) && (not defined $name)) {
	&Apache::lonxml::startredirection();
	}
}	}
return $currentstring;	return $currentstring;
}	}

sub end_meta {	sub end_meta {
my ($target,$token,$tagstack,$parstack,$parser) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
my $args='';	my $args='';
Line 384 sub end_meta {	Line 420 sub end_meta {
$currentstring = $token->[4];	$currentstring = $token->[4];
}	}
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring=&Apache::lonxml::endredirection();	my $content=&Apache::lonxml::get_param('content',$parstack,$safeeval);
$currentstring='';	my $name=&Apache::lonxml::get_param('name',$parstack,$safeeval);
	if ((not defined $content) && (not defined $name)) {
	&Apache::lonxml::endredirection();
	}
}	}
return $currentstring;	return $currentstring;
}	}
Line 435 sub end_accessrule {	Line 474 sub end_accessrule {
return $currentstring;	return $currentstring;
}	}

#-- <body> tag	#-- <body> tag (end tag required)
sub start_body {	sub start_body {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
if (!$Apache::lonxml::registered) {	if ($Apache::lonhomework::parsing_a_problem) {
	&Apache::lonxml::warning("<body> tag found inside of <problem> tag this can cause problems.");
	return '';
	}
	if (!$Apache::lonxml::registered &&
	$ENV{'request.state'} eq 'published') {
$currentstring.='<head>'.	$currentstring.='<head>'.
&Apache::lonmenu::registerurl(undef,$target).'</head>';	&Apache::lonmenu::registerurl(undef,$target).'</head>';
}	}
	# Accessibility
	if ($ENV{'browser.imagesuppress'} eq 'on') {
	delete($token->[2]->{'background'});
	}
	if ($ENV{'browser.fontenhance'} eq 'on') {
	my $style='';
	foreach my $key (keys(%{$token->[2]})) {
	if ($key =~ /^style$/i) {
	$style.=$token->[2]->{$key}.';';
	delete($token->[2]->{$key});
	}
	}
	$token->[2]->{'style'}=$style.'; font-size: x-large;';
	}
	if ($ENV{'browser.blackwhite'} eq 'on') {
	delete($token->[2]->{'font'});
	delete($token->[2]->{'link'});
	delete($token->[2]->{'alink'});
	delete($token->[2]->{'vlink'});
	delete($token->[2]->{'bgcolor'});
	delete($token->[2]->{'background'});
	}
	# Overload loads
my $onLoad='';	my $onLoad='';
foreach my $key (keys(%{$token->[2]})) {	foreach my $key (keys(%{$token->[2]})) {
if ($key =~ /^onload$/i) {	if ($key =~ /^onload$/i) {
Line 470 sub start_body {	Line 537 sub start_body {
if ($ENV{'request.state'} ne 'published') {	if ($ENV{'request.state'} ne 'published') {
$currentstring.=(<<EDITBUTTON);	$currentstring.=(<<EDITBUTTON);
<form method="post">	<form method="post">
<input type="submit" name="editmode" value="Edit" />	<input type="submit" name="editmode" accesskey="e" value="Edit" />
</form>	</form>
EDITBUTTON	EDITBUTTON
} else {	} else {
$currentstring.=&Apache::lonmenu::menubuttons(undef,$target,1);	$currentstring.=&Apache::lonmenu::menubuttons(undef,$target,1);
}	}
	$currentstring.=&Apache::lonxml::message_location();
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\begin{document}';	$currentstring = '\begin{document}';
}	}
Line 488 sub end_body {	Line 556 sub end_body {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\end{document}';	$currentstring = '\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent \end{document}';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <center> tag	#-- <center> tag (end tag required)
sub start_center {	sub start_center {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 501 sub start_center {	Line 569 sub start_center {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\begin{center}';	$currentstring = '\begin{center}';
} elsif ($target eq 'latexsource') {	}
$currentstring = '\begin{center}';
}
return $currentstring;	return $currentstring;
}	}

Line 514 sub end_center {	Line 580 sub end_center {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\end{center}';	$currentstring = '\end{center}';
} elsif ($target eq 'latexsource') {	}
$currentstring = '\end{center}';
}
return $currentstring;	return $currentstring;
}	}

#-- <b> tag	#-- <b> tag (end tag required)
sub start_b {	sub start_b {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 528 sub start_b {	Line 592 sub start_b {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\textbf{';	$currentstring = '\textbf{';
} elsif ($target eq 'latexsource') {
$currentstring = '\textbf{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 541 sub end_b {	Line 603 sub end_b {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '}';	$currentstring = '}';
} elsif ($target eq 'latexsource') {
$currentstring = '}';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <strong> tag	#-- <strong> tag (end tag required)
sub start_strong {	sub start_strong {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 555 sub start_strong {	Line 615 sub start_strong {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\textbf{';	$currentstring = '\textbf{';
} elsif ($target eq 'latexsource') {
$currentstring = '\textbf{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 564 sub start_strong {	Line 622 sub start_strong {
sub end_strong {	sub end_strong {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {

$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '}';	$currentstring = '}';
} elsif ($target eq 'latexsource') {	}
$currentstring = '}';
}
return $currentstring;	return $currentstring;
}	}

#-- <h1> tag	#-- <h1> tag (end tag required)
sub start_h1 {	sub start_h1 {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
Line 583 sub start_h1 {	Line 638 sub start_h1 {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $pre;	my $pre;
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=lc(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1));
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$pre='\begin{center}';	$pre='\begin{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$pre='\rlap{';	$pre='\rlap{';
Line 596 sub start_h1 {	Line 651 sub start_h1 {
$currentstring .= $pre.'{\\'.$TeXsize.' \textbf{';	$currentstring .= $pre.'{\\'.$TeXsize.' \textbf{';
} elsif ($target eq 'meta') {	} elsif ($target eq 'meta') {
$currentstring='<subject>';	$currentstring='<subject>';
&start_output();	&start_output($target);
}	}
return $currentstring;	return $currentstring;
}	}
Line 607 sub end_h1 {	Line 662 sub end_h1 {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $post;	my $post='\vskip 0 mm ';
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$post='\end{center}';	$post='\end{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$post='} \hfill'.'\vskip 0 mm ';	$post='} \hfill'.'\vskip 0 mm ';
Line 618 sub end_h1 {	Line 673 sub end_h1 {
}	}
$currentstring .= '}}'.$post;	$currentstring .= '}}'.$post;
} elsif ($target eq 'meta') {	} elsif ($target eq 'meta') {
&end_output();	&end_output($target);
$currentstring='</subject>';	$currentstring='</subject>';
}	}
return $currentstring;	return $currentstring;
Line 633 sub start_h2 {	Line 688 sub start_h2 {
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $pre;	my $pre;
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$pre='\begin{center}';	$pre='\begin{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$pre='\rlap{';	$pre='\rlap{';
Line 653 sub end_h2 {	Line 708 sub end_h2 {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $post;	my $post='\vskip 0 mm ';
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$post='\end{center}';	$post='\end{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$post='} \hfill'.'\vskip 0 mm ';	$post='} \hfill'.'\vskip 0 mm ';
Line 676 sub start_h3 {	Line 731 sub start_h3 {
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $pre;	my $pre;
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$pre='\begin{center}';	$pre='\begin{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$pre='\rlap{';	$pre='\rlap{';
Line 696 sub end_h3 {	Line 751 sub end_h3 {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $post;	my $post='\vskip 0 mm ';
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$post='\end{center}';	$post='\end{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$post='} \hfill'.'\vskip 0 mm ';	$post='} \hfill'.'\vskip 0 mm ';
Line 719 sub start_h4 {	Line 774 sub start_h4 {
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $pre;	my $pre;
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$pre='\begin{center}';	$pre='\begin{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$pre='\rlap{';	$pre='\rlap{';
Line 739 sub end_h4 {	Line 794 sub end_h4 {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $post;	my $post='\vskip 0 mm ';
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$post='\end{center}';	$post='\end{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$post='} \hfill'.'\vskip 0 mm ';	$post='} \hfill'.'\vskip 0 mm ';
Line 762 sub start_h5 {	Line 817 sub start_h5 {
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $pre;	my $pre;
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$pre='\begin{center}';	$pre='\begin{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$pre='\rlap{';	$pre='\rlap{';
Line 782 sub end_h5 {	Line 837 sub end_h5 {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $post;	my $post='\vskip 0 mm ';
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$post='\end{center}';	$post='\end{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$post='} \hfill'.'\vskip 0 mm ';	$post='} \hfill'.'\vskip 0 mm ';
Line 805 sub start_h6 {	Line 860 sub start_h6 {
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $pre;	my $pre;
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$pre='\begin{center}';	$pre='\begin{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$pre='\rlap{';	$pre='\rlap{';
Line 825 sub end_h6 {	Line 880 sub end_h6 {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $post;	my $post='\vskip 0 mm ';
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if (($align eq 'center') \|\| (not defined $align)) {	if ($align eq 'center') {
$post='\end{center}';	$post='\end{center}';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$post='} \hfill'.'\vskip 0 mm ';	$post='} \hfill'.'\vskip 0 mm ';
Line 839 sub end_h6 {	Line 894 sub end_h6 {
return $currentstring;	return $currentstring;
}	}

#--- <cite> tag	#--- <cite> tag (end tag required)
sub start_cite {	sub start_cite {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "\\textit{";	$currentstring .= '\textit{';
} elsif ($target eq 'latexsource') {	}
$currentstring .= "\\textit{";
}
return $currentstring;	return $currentstring;
}	}

Line 859 sub end_cite {	Line 912 sub end_cite {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "}";	$currentstring .= '}';
} elsif ($target eq 'latexsource') {	}
$currentstring .= "}";
}
return $currentstring;	return $currentstring;
}	}

#-- <i> tag	#-- <i> tag (end tag required)
sub start_i {	sub start_i {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 874 sub start_i {	Line 925 sub start_i {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '\textit{';	$currentstring .= '\textit{';
} elsif ($target eq 'latexsource') {	}
$currentstring .= '\textit{';
}
return $currentstring;	return $currentstring;
}	}

Line 887 sub end_i {	Line 936 sub end_i {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '}';	$currentstring .= '}';
} elsif ($target eq 'latexsource') {
$currentstring .= '}';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <address> tag	#-- <address> tag (end tag required)
sub start_address {	sub start_address {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "\\textit{";	$currentstring .= '\textit{';
} elsif ($target eq 'latexsource') {	}
$currentstring .= "\\textit{";
}
return $currentstring;	return $currentstring;
}	}

Line 913 sub end_address {	Line 958 sub end_address {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "}";	$currentstring .= '}';
} elsif ($target eq 'latexsource') {
$currentstring .= "}";
}	}
return $currentstring;	return $currentstring;
}	}

#-- <dfn> tag	#-- <dfn> tag (end tag required)
sub start_dfn {	sub start_dfn {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "\\textit{";	$currentstring .= '\textit{';
} elsif ($target eq 'latexsource') {
$currentstring .= "\\textit{";
}	}
return $currentstring;	return $currentstring;
}	}
Line 940 sub end_dfn {	Line 981 sub end_dfn {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "}";	$currentstring .= '}';
} elsif ($target eq 'latexsource') {	}
$currentstring .= "}";
}
return $currentstring;	return $currentstring;
}	}

#-- <tt> tag	#-- <tt> tag (end tag required)
sub start_tt {	sub start_tt {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 955 sub start_tt {	Line 994 sub start_tt {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '\texttt{';	$currentstring .= '\texttt{';
} elsif ($target eq 'latexsource') {	}
$currentstring .= '\texttt{';
}
return $currentstring;	return $currentstring;
}	}

Line 968 sub end_tt {	Line 1005 sub end_tt {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '}';	$currentstring .= '}';
} elsif ($target eq 'latexsource') {
$currentstring .= '}';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <kbd> tag	#-- <kbd> tag (end tag required)
sub start_kbd {	sub start_kbd {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "\\texttt";	$currentstring .= '\texttt{';
} elsif ($target eq 'latexsource') {	}
$currentstring .= "\\texttt{";
}
return $currentstring;	return $currentstring;
}	}

Line 994 sub end_kbd {	Line 1027 sub end_kbd {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "}";	$currentstring .= '}';
} elsif ($target eq 'latexsource') {	}
$currentstring .= "}";
}
return $currentstring;	return $currentstring;
}	}

#-- <code> tag	#-- <code> tag (end tag required)
sub start_code {	sub start_code {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1024 sub end_code {	Line 1055 sub end_code {
return $currentstring;	return $currentstring;
}	}

#-- <em> tag	#-- <em> tag (end tag required)
sub start_em {	sub start_em {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1032 sub start_em {	Line 1063 sub start_em {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '\emph{';	$currentstring .= '\emph{';
} elsif ($target eq 'latexsource') {	}
$currentstring .= '\emph{';
}
return $currentstring;	return $currentstring;
}	}

Line 1045 sub end_em {	Line 1074 sub end_em {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '}';	$currentstring .= '}';
} elsif ($target eq 'latexsource') {	}
$currentstring .= '}';
}
return $currentstring;	return $currentstring;
}	}

#-- <q> tag	#-- <q> tag (end tag required)
sub start_q {	sub start_q {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "\\emph{";	$currentstring .= '\emph{';
} elsif ($target eq 'latexsource') {
$currentstring .= "\\emph{";
}	}
return $currentstring;	return $currentstring;
}	}
Line 1071 sub end_q {	Line 1096 sub end_q {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "}";	$currentstring .= '}';
} elsif ($target eq 'latexsource') {	}
$currentstring .= "}";
}
return $currentstring;	return $currentstring;
}	}

#-- <p> tag	#-- <p> tag (end tag optional)
	#optional attribute - align="center\|left\|right"
sub start_p {	sub start_p {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '{\par ';	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
} elsif ($target eq 'latexsource') {	if ($align eq 'center') {
$currentstring .= '{\par ';	$currentstring='\begin{center}\par';
}	} elsif ($align eq 'right') {
	$currentstring='\makebox['.$ENV{'form.textwidth'}.']{\hfill\llap{';
	} elsif ($align eq 'left') {
	$currentstring='\noindent\makebox['.$ENV{'form.textwidth'}.']{\rlap{';
	} else {
	$currentstring='\par ';
	}
	my $signal=1;#<p> does not work inside <b>...</b>
	foreach my $tag (@$tagstack) {if (lc($tag) eq 'b') {$signal=0;}
	if (!$signal) {$currentstring = '';}
	}
	}
return $currentstring;	return $currentstring;
}	}

sub end_p {	sub end_p {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '}';	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
} elsif ($target eq 'latexsource') {	if (not defined $align) {
$currentstring .= '}';	$currentstring.='\strut\\\\\strut ';
	} elsif ($align eq 'center') {
	$currentstring .= '\end{center}';
	} elsif ($align eq 'right') {
	$currentstring .= '}}';
	} elsif ($align eq 'left') {
	$currentstring .= '}\hfill}';
	}
}	}
return $currentstring;	return $currentstring;
}	}

#-- <br> tag	#-- <br> tag (end tag forbidden)
sub start_br {	sub start_br {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
if ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') {	my @tempo=@$tagstack;
$currentstring .= '\vskip 0.2 mm';	my $signal=0;
	for (my $i=$#tempo;$i>=0;$i--) {
	if (($tempo[$i] eq 'b') \|\| ($tempo[$i] eq 'strong') \|\|
	($tempo[$i] eq 'ol') \|\| ($tempo[$i] eq 'ul') \|\|
	($tempo[$i] eq 'td') \|\| ($tempo[$i] eq 'th')) {
	$signal=1;
	last;
	}
}	}
} elsif ($target eq 'latexsource') {	if ($signal) {
$currentstring .= '\\';	$currentstring .= ' \vskip 0 mm ';
}	} elsif ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') {
	$currentstring .= '\strut \\\\ \strut ';
	}
	}
return $currentstring;	return $currentstring;
}	}

Line 1130 sub end_br {	Line 1182 sub end_br {
return $currentstring;	return $currentstring;
}	}

#-- <big> tag	#-- <big> tag (end tag required)
sub start_big {	sub start_big {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '\large{';	$currentstring .= '{\large ';
} elsif ($target eq 'latexsource') {	}
$currentstring .= '{\Large ';
}
return $currentstring;	return $currentstring;
}	}

Line 1151 sub end_big {	Line 1201 sub end_big {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '}';	$currentstring .= '}';
} elsif ($target eq 'latexsource') {
$currentstring .= '}';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <small> tag	#-- <small> tag (end tag required)
sub start_small {	sub start_small {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1165 sub start_small {	Line 1213 sub start_small {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '{\footnotesize ';	$currentstring .= '{\footnotesize ';
} elsif ($target eq 'latexsource') {	}
$currentstring .= '{\footnotesize ';
}
return $currentstring;	return $currentstring;
}	}

Line 1178 sub end_small {	Line 1224 sub end_small {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '}';	$currentstring .= '}';
} elsif ($target eq 'latexsource') {
$currentstring .= '}';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <basefont> tag	#-- <basefont> tag (end tag forbidden)
sub start_basefont {	sub start_basefont {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $currentstring = '';	my $currentstring = '';
Line 1213 sub end_basefont {	Line 1257 sub end_basefont {
return $currentstring;	return $currentstring;
}	}

#-- <font> tag	#-- <font> tag (end tag required)
sub start_font {	sub start_font {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval);	my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval);
if ($face=~/symbol/i) {$Apache::lonxml::prevent_entity_encode++;}	if ($face!~/symbol/i) {
	if (($ENV{'browser.fontenhance'} eq 'on') \|\|
	($ENV{'browser.blackwhite'} eq 'on')) { return ''; }
	}
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $fontsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval);	my $fontsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval);
Line 1234 sub end_font {	Line 1281 sub end_font {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval);
if ($face=~/symbol/i) {$Apache::lonxml::prevent_entity_encode--;}
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $fontsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval);	my $fontsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval);
Line 1246 sub end_font {	Line 1291 sub end_font {
return $currentstring;	return $currentstring;
}	}

#-- <strike> tag	#-- <strike> tag (end tag required)
sub start_strike {	sub start_strike {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1272 sub end_strike {	Line 1317 sub end_strike {
return $currentstring;	return $currentstring;
}	}

#-- <s> tag	#-- <s> tag (end tag required)
sub start_s {	sub start_s {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1298 sub end_s {	Line 1343 sub end_s {
return $currentstring;	return $currentstring;
}	}

#-- <sub> tag	#-- <sub> tag (end tag required)
sub start_sub {	sub start_sub {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "\$_{ ";	$currentstring .= '\ensuremath{_{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 1316 sub end_sub {	Line 1361 sub end_sub {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= " }\$";	$currentstring .= '}}';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <sup> tag	#-- <sup> tag (end tag required)
sub start_sup {	sub start_sup {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= "\$^{ ";	$currentstring .= '\ensuremath{^{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 1339 sub end_sup {	Line 1384 sub end_sup {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= " }\$";	$currentstring .= '}}';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <hr> tag	#-- <hr> tag (end tag forbidden)
sub start_hr {	sub start_hr {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $LaTeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,0);	my $LaTeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
if (defined $LaTeXwidth) {	if (defined $LaTeXwidth) {
if ($LaTeXwidth=~/^%/) {	if ($LaTeXwidth=~/^%/) {
substr($LaTeXwidth,0,1)='';	substr($LaTeXwidth,0,1)='';
$LaTeXwidth=($LaTeXwidth/100).'\textwidth';	$LaTeXwidth=($LaTeXwidth/100).'\textwidth';
}	}
} else {	} else {
$LaTeXwidth ='0.95\textwidth';	$LaTeXwidth ='0.9\textwidth';
}	}
my ($pre,$post);	my ($pre,$post);
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
Line 1369 sub start_hr {	Line 1414 sub start_hr {
} elsif ($align eq 'right') {	} elsif ($align eq 'right') {
$pre=' \hfill \llap{'; $post='}';	$pre=' \hfill \llap{'; $post='}';
}	}
$currentstring .= ' \vskip 0 mm \noindent\makebox[\textwidth]{'.$pre.'\makebox['.	$currentstring .= ' \vskip 0 mm \noindent\makebox['.$LaTeXwidth.']{'.$pre.'\makebox['.
$LaTeXwidth.'][b]{\hrulefill}'.$post.'}\vskip 0 mm ';	$LaTeXwidth.'][b]{\hrulefill}'.$post.'}\vskip 0 mm ';
}	}
return $currentstring;	return $currentstring;
Line 1380 sub end_hr {	Line 1425 sub end_hr {
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	}
}
return $currentstring;	return $currentstring;
}	}

#-- <div> tag	#-- <div> tag (end tag required)
sub start_div {	sub start_div {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1404 sub end_div {	Line 1448 sub end_div {
return $currentstring;	return $currentstring;
}	}

#-- <a> tag	#-- <a> tag (end tag required)
sub start_a {	sub start_a {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
	my $a=&Apache::lonxml::get_param('href',$parstack,$safeeval,undef,1);
	my $b=&Apache::lonxml::get_param('name',$parstack,$safeeval,undef,1);
	if ($a=~/\S/) {
	$a=~s/([^\\])%/$1\\\%/g;
	$currentstring .= '\ref{URI: '.$a.'}';
	} elsif ($b=~/\S/) {
	$currentstring .= '\ref{Anchor: '.$b.'}';
	} else {
	$currentstring.='';
	}
}	}
return $currentstring;	return $currentstring;
}	}

sub end_a {	sub end_a {
my ($target,$token,$tagstack,$stackref) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {
my $tempor_var = $stackref->[$#$stackref];
if (index($tempor_var,'name') != -1 ) {
$tempor_var =~ s/name=([^,]*),/$1/g;
} elsif (index($tempor_var,'href') != -1 ) {
$tempor_var =~ s/href=([^,]*),/$1/g;
$currentstring .= " \\ref{$tempor_var}";
}
}	}
return $currentstring;	return $currentstring;
}	}

#-- <li> tag	#-- <li> tag (end tag optional)
sub start_li {	sub start_li {
my ($target,$token,$tagstack,$stackref) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $tempor_var = $stackref->[$#$stackref];	my $type=&Apache::lonxml::get_param('type',$parstack,$safeeval,undef,0);
if (index($tempor_var,'circle') != -1 ) {	my $value=&Apache::lonxml::get_param('value',$parstack,$safeeval,undef,0);
$currentstring .= " \\item[o] ";	#FIXME need to support types i and I
} elsif (index($tempor_var,'square') != -1 ) {	if ($type=~/disc/) {
$currentstring .= " \\item[$\Box$] ";	$currentstring .= ' \item[$\bullet$] ';
} elsif ($tempor_var ne '') {	} elsif ($type=~/circle/) {
$_ = $tempor_var;	$currentstring .= ' \item[$\circ$] ';
m/my\s([^=])=/;	} elsif ($type=~/square/) {
$currentstring .= " \\item[$1] ";	$currentstring .= ' \item[$\diamond$] ';
	} elsif ($type eq '1') {
	$currentstring .= ' \item['.($Apache::londefdef::list_index+1).'.]';
	} elsif ($type eq 'A') {
	$currentstring .= ' \item['.('A'..'Z')[$Apache::londefdef::list_index].'.]';
	} elsif ($type eq 'a') {
	$currentstring .= ' \item['.('a'..'z')[$Apache::londefdef::list_index].'.]';
	} elsif ($value ne '') {
	$currentstring .= ' \item['.$value.'] ';
} else {	} else {
$currentstring .= " \\item ";	$currentstring .= ' \item ';
}	}
}	$Apache::londefdef::list_index++;
	}
return $currentstring;	return $currentstring;
}	}

Line 1464 sub end_li {	Line 1519 sub end_li {
return $currentstring;	return $currentstring;
}	}

#-- <u> tag	#-- <u> tag (end tag required)
sub start_u {	sub start_u {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1490 sub end_u {	Line 1545 sub end_u {
return $currentstring;	return $currentstring;
}	}

#-- <ul> tag	#-- <ul> tag (end tag required)
sub start_ul {	sub start_ul {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1498 sub start_ul {	Line 1553 sub start_ul {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $TeXtype=&Apache::lonxml::get_param('type',$parstack,$safeeval,undef,0);	my $TeXtype=&Apache::lonxml::get_param('type',$parstack,$safeeval,undef,0);
	$Apache::londefdef::list_index=0;
if ($TeXtype eq 'disc') {	if ($TeXtype eq 'disc') {
$currentstring .= ' \renewcommand{\labelitemi}{$\bullet$}	$currentstring .= '\renewcommand{\labelitemi}{$\bullet$}'.
\renewcommand{\labelitemii}{$\bullet$}	'\renewcommand{\labelitemii}{$\bullet$}'.
\renewcommand{\labelitemiii}{$\bullet$}	'\renewcommand{\labelitemiii}{$\bullet$}'.
\renewcommand{\labelitemiv}{$\bullet$}';	'\renewcommand{\labelitemiv}{$\bullet$}';
} elsif ($TeXtype eq 'circle') {	} elsif ($TeXtype eq 'circle') {
$currentstring .= ' \renewcommand{\labelitemi}{$\circ$}	$currentstring .= '\renewcommand{\labelitemi}{$\circ$}'.
\renewcommand{\labelitemii}{$\circ$}	'\renewcommand{\labelitemii}{$\circ$}'.
\renewcommand{\labelitemiii}{$\circ$}	'\renewcommand{\labelitemiii}{$\circ$}'.
\renewcommand{\labelitemiv}{$\circ$}';	'\renewcommand{\labelitemiv}{$\circ$}';
} elsif ($TeXtype eq 'square') {	} elsif ($TeXtype eq 'square') {
$currentstring .= ' \renewcommand{\labelitemi}{$\diamond$}	$currentstring .= '\renewcommand{\labelitemi}{$\diamond$}'.
\renewcommand{\labelitemii}{$\diamond$}	'\renewcommand{\labelitemii}{$\diamond$}'.
\renewcommand{\labelitemiii}{$\diamond$}	'\renewcommand{\labelitemiii}{$\diamond$}'.
\renewcommand{\labelitemiv}{$\diamond$}';	'\renewcommand{\labelitemiv}{$\diamond$}';
}	}
$currentstring .= '\begin{itemize}';	$currentstring .= '\strut \begin{itemize}';
}	}
return $currentstring;	return $currentstring;
}	}
Line 1525 sub end_ul {	Line 1581 sub end_ul {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\end{itemize} \renewcommand{\labelitemi}{$\bullet$}	$currentstring = '\end{itemize} \renewcommand{\labelitemi}{$\bullet$}'.
\renewcommand{\labelitemii}{$\bullet$}	'\renewcommand{\labelitemii}{$\bullet$}'.
\renewcommand{\labelitemiii}{$\bullet$}	'\renewcommand{\labelitemiii}{$\bullet$}'.
\renewcommand{\labelitemiv}{$\bullet$}';	'\renewcommand{\labelitemiv}{$\bullet$}\strut ';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <menu> tag	#-- <menu> tag (end tag required)
sub start_menu {	sub start_menu {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1556 sub end_menu {	Line 1612 sub end_menu {
return $currentstring;	return $currentstring;
}	}

#-- <dir> tag	#-- <dir> tag (end tag required)
sub start_dir {	sub start_dir {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1579 sub end_dir {	Line 1635 sub end_dir {
return $currentstring;	return $currentstring;
}	}

#-- <ol> tag	#-- <ol> tag (end tag required)
sub start_ol {	sub start_ol {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
	$Apache::londefdef::list_index=0;
my $type=&Apache::lonxml::get_param('type',$parstack,$safeeval,undef,0);	my $type=&Apache::lonxml::get_param('type',$parstack,$safeeval,undef,0);
if ($type eq '1') {	if ($type eq '1') {
$currentstring .= ' \renewcommand{\labelenumi}{\arabic{enumi}.}	$currentstring .= '\renewcommand{\labelenumi}{\arabic{enumi}.}'.
\renewcommand{\labelenumii}{\arabic{enumii}.}	'\renewcommand{\labelenumii}{\arabic{enumii}.}'.
\renewcommand{\labelenumiii}{\arabic{enumiii}.}	'\renewcommand{\labelenumiii}{\arabic{enumiii}.}'.
\renewcommand{\labelenumiv}{\arabic{enumiv}.}';	'\renewcommand{\labelenumiv}{\arabic{enumiv}.}';
} elsif ($type eq 'A') {	} elsif ($type eq 'A') {
$currentstring .= ' \renewcommand{\labelenumi}{\Alph{enumi}.}	$currentstring .= '\renewcommand{\labelenumi}{\Alph{enumi}.}'.
\renewcommand{\labelenumii}{\Alph{enumii}.}	'\renewcommand{\labelenumii}{\Alph{enumii}.}'.
\renewcommand{\labelenumiii}{\Alph{enumiii}.}	'\renewcommand{\labelenumiii}{\Alph{enumiii}.}'.
\renewcommand{\labelenumiv}{\Alph{enumiv}.}';	'\renewcommand{\labelenumiv}{\Alph{enumiv}.}';
} elsif ($type eq 'a') {	} elsif ($type eq 'a') {
$currentstring .= ' \renewcommand{\labelenumi}{\alph{enumi}.}	$currentstring .= '\renewcommand{\labelenumi}{\alph{enumi}.}'.
\renewcommand{\labelenumii}{\alph{enumii}.}	'\renewcommand{\labelenumii}{\alph{enumii}.}'.
\renewcommand{\labelenumiii}{\alph{enumiii}.}	'\renewcommand{\labelenumiii}{\alph{enumiii}.}'.
\renewcommand{\labelenumiv}{\alph{enumiv}.} ';	'\renewcommand{\labelenumiv}{\alph{enumiv}.}';
} elsif ($type eq 'i') {	} elsif ($type eq 'i') {
$currentstring .= ' \renewcommand{\labelenumi}{\roman{enumi}.}	$currentstring .= '\renewcommand{\labelenumi}{\roman{enumi}.}'.
\renewcommand{\labelenumii}{\roman{enumii}.}	'\renewcommand{\labelenumii}{\roman{enumii}.}'.
\renewcommand{\labelenumiii}{\roman{enumiii}.}	'\renewcommand{\labelenumiii}{\roman{enumiii}.}'.
\renewcommand{\labelenumiv}{\roman{enumiv}.} ';	'\renewcommand{\labelenumiv}{\roman{enumiv}.}';
} elsif ($type eq 'I') {	} elsif ($type eq 'I') {
$currentstring .= ' \renewcommand{\labelenumi}{\Roman{enumi}.}	$currentstring .= '\renewcommand{\labelenumi}{\Roman{enumi}.}'.
\renewcommand{\labelenumii}{\Roman{enumii}.}	'\renewcommand{\labelenumii}{\Roman{enumii}.}'.
\renewcommand{\labelenumiii}{\Roman{enumiii}.}	'\renewcommand{\labelenumiii}{\Roman{enumiii}.}'.
\renewcommand{\labelenumiv}{\Roman{enumiv}.} ';	'\renewcommand{\labelenumiv}{\Roman{enumiv}.}';
}	}
$currentstring .= '\begin{enumerate}';	$currentstring .= '\strut \begin{enumerate}';
}	}
return $currentstring;	return $currentstring;
}	}
Line 1624 sub end_ol {	Line 1681 sub end_ol {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\end{enumerate} \renewcommand{\labelenumi}{\arabic{enumi}.}	$currentstring = '\end{enumerate}\renewcommand{\labelenumi}{\arabic{enumi}.}'.
\renewcommand{\labelenumii}{\arabic{enumii}.}	'\renewcommand{\labelenumii}{\arabic{enumii}.}'.
\renewcommand{\labelenumiii}{\arabic{enumiii}.}	'\renewcommand{\labelenumiii}{\arabic{enumiii}.}'.
\renewcommand{\labelenumiv}{\arabic{enumiv}.}';	'\renewcommand{\labelenumiv}{\arabic{enumiv}.}\strut ';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <dl> tag	#-- <dl> tag (end tag required)
sub start_dl {	sub start_dl {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\begin{description}';	$currentstring = '\begin{description}';
	$Apache::londefdef::DL++;
	push(@Apache::londefdef::description,[]);
	$Apache::londefdef::DD[$Apache::londefdef::DL]=0;
	$Apache::londefdef::DT[$Apache::londefdef::DL]=0;
}	}
return $currentstring;	return $currentstring;
}	}

sub end_dl {	sub end_dl {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\end{description}';	if ($Apache::londefdef::DT[-1]) { &end_dt(@_); }
	if ($Apache::londefdef::DD[-1]) { &end_dd(@_); }
	foreach my $element (@{$Apache::londefdef::description[-1]}) {
	$currentstring.=' '.$element.' ';
	}
	pop(@Apache::londefdef::description);
	$currentstring.='\end{description}';
	delete($Apache::londefdef::DD[$Apache::londefdef::DL]);
	delete($Apache::londefdef::DT[$Apache::londefdef::DL]);
	$Apache::londefdef::DL--;
}	}
return $currentstring;	return $currentstring;
}	}

#-- <dt> tag	#-- <dt> tag (end tag optional)
sub start_dt {	sub start_dt {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring='';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\item[';	if ($Apache::londefdef::DT[-1]) { &end_dt(@_); }
	if ($Apache::londefdef::DD[-1]) { &end_dd(@_); }
	&Apache::lonxml::startredirection();
	$Apache::londefdef::DT[-1]++;
}	}
return $currentstring;	return $currentstring;
}	}

sub end_dt {	sub end_dt {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = ']';	if ($Apache::londefdef::DT[-1]) {
	my $data=&item_cleanup();
	push(@{$Apache::londefdef::description[-1]},'\item['.$data.']');
	$Apache::londefdef::DT[-1]--;
	}
}	}
return $currentstring;	return $currentstring;
}	}

#-- <dd> tag	sub item_cleanup {
	my $item=&Apache::lonxml::endredirection();
	$item=~s/\\begin{center}//g;
	$item=~s/\\end{center}//g;
	return $item;
	}

	#-- <dd> tag (end tag optional)
sub start_dd {	sub start_dd {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
	} elsif ($target eq 'tex') {
	if ($Apache::londefdef::DT[-1]) { &end_dt(@_); }
	if ($Apache::londefdef::DD[-1]) { &end_dd(@_);}
	push(@{$Apache::londefdef::description[-1]},'');
	$Apache::londefdef::description[-1]->[-1].=' \strut ';
	$Apache::londefdef::DD[-1]++;
	&Apache::lonxml::startredirection();
}	}
return $currentstring;	return $currentstring;
}	}

sub end_dd {	sub end_dd {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
}	} elsif ($target eq 'tex') {
	$Apache::londefdef::description[-1]->[-1].=
	&Apache::lonxml::endredirection().' \vskip 0mm ';
	$Apache::londefdef::DD[-1]--;
	}
return $currentstring;	return $currentstring;
}	}

#-- <table> tag	#-- <table> tag (end tag required)
	#list of supported attributes: border,width,TeXwidth
sub start_table {	sub start_table {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $textwidth;	my ($textwidth,$currentstring)=('','');
if (not defined @Apache::londefdef::table) {
$textwidth=&recalc($ENV{'form.textwidth'});
$textwidth=~/(\d+)/;
$textwidth=$1;
} else {
$textwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
}
my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $aa = {};	my $aa = {};
push @Apache::londefdef::table, $aa;	push @Apache::londefdef::table, $aa;
$Apache::londefdef::table[-1]{'row_number'} = -1;	$Apache::londefdef::table[-1]{'row_number'} = -1;
#table's width	#maximum table's width (default coincides with text line length)
	if ($#Apache::londefdef::table==0) {
	$textwidth=&recalc($ENV{'form.textwidth'}); #result is always in mm
	$textwidth=~/(\d+\.?\d*)/;
	$textwidth=0.95*$1; #accounts "internal" LaTeX space for table frame
	} else {
	if ($Apache::londefdef::table[-2]{'TeXlen'}[$Apache::londefdef::table[-2]{'row_number'}][$Apache::londefdef::table[-2]{'counter_columns'}]=~/\d/) {
	#the maximum width of nested table is determined by LATeX width of parent cell
	$textwidth=$Apache::londefdef::table[-2]{'TeXlen'}[$Apache::londefdef::table[-2]{'row_number'}][$Apache::londefdef::table[-2]{'counter_columns'}];
	} else {
	#try to use all space not used before (minus 5% for LaTeX table internal) - rather silly
	$textwidth=$Apache::londefdef::table[-2]{'width'};
	for (my $i=0;$i<$Apache::londefdef::table[-2]{'counter_columns'};$i++) {
	$textwidth=$textwidth-$Apache::londefdef::table[-2]{'TeXlen'}[0][$i];
	}
	}
	}
my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);	my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
if (not defined $TeXwidth) {	if (not defined $TeXwidth) {
my $htmlwidth = &Apache::lonxml::get_param('width',$parstack,$safeeval,undef,1);	my $htmlwidth = &Apache::lonxml::get_param('width',$parstack,$safeeval,undef,1);
if ($htmlwidth=~/%/) {	if ($htmlwidth=~/%/) {
	$Apache::londefdef::table[-1]{'percent'}=1;
$htmlwidth=~/(\d+)/;	$htmlwidth=~/(\d+)/;
my $value=$1*$textwidth/100;	$Apache::londefdef::table[-1]{'width'}=$1*$textwidth/100;;
$Apache::londefdef::table[-1]{'width'}=$value;
} else {	} else {
$Apache::londefdef::table[-1]{'width'}=$textwidth;	$Apache::londefdef::table[-1]{'width'}=$textwidth;
}	}
} elsif ($TeXwidth=~/%/) {	} elsif ($TeXwidth=~/%/) {
	$Apache::londefdef::table[-1]{'percent'}=1;
$TeXwidth=~/(\d+)/;	$TeXwidth=~/(\d+)/;
my $value=$1*$textwidth/100;	$Apache::londefdef::table[-1]{'width'}=$1*$textwidth/100;
$Apache::londefdef::table[-1]{'width'}=$value;
} else {	} else {
$Apache::londefdef::table[-1]{'width'}=$textwidth;	$Apache::londefdef::table[-1]{'forcetablewidth'}=1;
	$Apache::londefdef::table[-1]{'width'}=$TeXwidth;
}	}
#table's border	#table's border
my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval,undef,1);	my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval);
	my $permission=&Apache::lonxml::get_param('TeXDropEmptyColumns',$parstack,$safeeval,undef,0);
unless (defined $border) { $border = 0; }	unless (defined $border) { $border = 0; }
if ($border) {	if ($border) {
$Apache::londefdef::table[-1]{'hinc'} = '\hline ';	$Apache::londefdef::table[-1]{'hinc'} = '\hline ';
Line 1745 sub start_table {	Line 1851 sub start_table {
$Apache::londefdef::table[-1]{'vinc'} = '&';	$Apache::londefdef::table[-1]{'vinc'} = '&';
$Apache::londefdef::table[-1]{'vvinc'} = '';	$Apache::londefdef::table[-1]{'vvinc'} = '';
}	}
$Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';	if ($#Apache::londefdef::table==0) {
$currentstring = '\keephidden{NEW TABLE ENTRY '.$textwidth.'}';	$Apache::londefdef::table[-1]{'output'}='\strut\newline\strut\setlength{\tabcolsep}{1 mm}';
}	}
	$Apache::londefdef::table[-1]{'output'}.=' \noindent \begin{tabular} ';
	$Apache::londefdef::table[-1]{'TeXlen'}=[];
	$Apache::londefdef::table[-1]{'objectlen'}=[];
	$Apache::londefdef::table[-1]{'objectsignal'}=[];
	$Apache::londefdef::table[-1]{'maxlen'}=[];
	$Apache::londefdef::table[-1]{'minlen'}=[];
	$Apache::londefdef::table[-1]{'content'}=[];
	$Apache::londefdef::table[-1]{'align'}=[];
	$currentstring='\keephidden{NEW TABLE ENTRY}';
	}
return $currentstring;	return $currentstring;
}	}

Line 1759 sub end_table {	Line 1875 sub end_table {
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $inmemory = '';	my $inmemory = '';
my $output = '';	my $output = '';
#construct header of the table	my $WARNING='';
my $header_of_table = '{'.$Apache::londefdef::table[-1]{'vvinc'};	#width of columns from TeXwidth attributes
for (my $in=0;$in<=$Apache::londefdef::table[-1]{'counter_columns'};$in++) {	for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
$header_of_table .= $Apache::londefdef::table[-1]{'columns'}[$in].$Apache::londefdef::table[-1]{'vvinc'};	for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) {
	if ($Apache::londefdef::table[-1]{'TeXlen'}[0][$jn]<$Apache::londefdef::table[-1]{'TeXlen'}[$in][$jn]) {
	$Apache::londefdef::table[-1]{'TeXlen'}[0][$jn]=$Apache::londefdef::table[-1]{'TeXlen'}[$in][$jn];
	}
	}
}	}
$header_of_table .= '}';	#free space and number of empty columns
#define the length of the table cells	my ($available_space,$empty_columns)=($Apache::londefdef::table[-1]{'width'},0);
#always starts with TeXwidth (if defined everything else is ignored)	if ($#Apache::londefdef::table ne 0) {$available_space=0.9*$available_space;}
my @length_row_final = split(/,/,$Apache::londefdef::table[-1]{'TeXlengthrow'}[0]);	for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) {
for (my $in=1;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {	if ($Apache::londefdef::table[-1]{'TeXlen'}[0][$jn]==0) {
my @length_row = split(/,/,$Apache::londefdef::table[-1]{'TeXlengthrow'}[$in]);	$empty_columns++;
for (my $jn=0;$jn<=$#length_row;$jn++) {	} else {
if ($length_row_final[$jn]<$length_row[$jn]) {$length_row_final[$jn]=$length_row[$jn];}	$available_space=$available_space-$Apache::londefdef::table[-1]{'TeXlen'}[0][$jn];
}	}
}	}
#continues trying estimate the width of raw data	#boundaries for contents columns
my @length_raw_row = split(/,/,$Apache::londefdef::table[-1]{'lengthrow'}[0]);	my @min_len=();#columns can not be narrower
for (my $in=1;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {	my @max_len=();#maximum length of column
my @length_row = split(/,/,$Apache::londefdef::table[-1]{'lengthrow'}[$in]);	for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) {
for (my $jn=0;$jn<=$#length_row;$jn++) {	my ($localmin,$localmax)=(0,0);
if ($length_raw_row[$jn]<$length_row[$jn]) {$length_raw_row[$jn]=$length_row[$jn];}	for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
}	if ($localmin<$Apache::londefdef::table[-1]{'minlen'}[$in][$jn]) {
}	$localmin=$Apache::londefdef::table[-1]{'minlen'}[$in][$jn];
#comparing of TeXwidth and raw data width	}
my $available_length=$Apache::londefdef::table[-1]{'width'};	if ($localmax<$Apache::londefdef::table[-1]{'maxlen'}[$in][$jn]) {
my $needed=0;	$localmax=$Apache::londefdef::table[-1]{'maxlen'}[$in][$jn];
for (my $jn=0;$jn<=$#length_row_final;$jn++) {	}
if ($length_row_final[$jn]!=0) {	}
$available_length=$available_length-$length_row_final[$jn];	push @min_len, $localmin;
$needed++;	push @max_len, $localmax;
}	}
}	for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) {
$needed=$#length_row_final-$needed+1;	my $localmin=0,;
for (my $jn=0;$jn<=$#length_row_final;$jn++) {	for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
if ($length_row_final[$jn]==0) {	if ($localmin<$Apache::londefdef::table[-1]{'objectlen'}[$in][$jn]) {
if ($length_raw_row[$jn]<$available_length/3) {	$localmin=$Apache::londefdef::table[-1]{'objectlen'}[$in][$jn];
$length_row_final[$jn]=$length_raw_row[$jn];	}
$available_length=$available_length-$length_raw_row[$jn];	}
$needed--;	if ($max_len[$jn]<$localmin) {
	$max_len[$jn]=$localmin;
	$Apache::londefdef::table[-1]{'objectsignal'}[$jn]=1;
	}#object size is bigger
	if ($min_len[$jn]<$localmin) {
	$min_len[$jn]=$localmin;
	$Apache::londefdef::table[-1]{'objectsignal'}[$jn]=1;
	}#object size is bigger
	if ($Apache::londefdef::table[-1]{'TeXlen'}[0][$jn]!=0) {
	$min_len[$jn]=0;
	$max_len[$jn]=0;
	}
	}
	#final adjustment of column width
	my @fwidth=@{$Apache::londefdef::table[-1]{'TeXlen'}[0]};#final width array
	my @adjust=();
	#step 1. adjustment by maximum value
	my $space_neeeded=0;
	for (my $jn=0;$jn<=$#max_len;$jn++) {
	$space_neeeded=$space_neeeded+$max_len[$jn];
	}
	if ($space_neeeded<=$available_space) {
	for (my $jn=0;$jn<=$#max_len;$jn++) {
	if ($fwidth[$jn]==0) {
	$fwidth[$jn]=$max_len[$jn];
	}
	}
	} else {
	#step 2. adjustment by minimum value (estimation)
	$space_neeeded=0;
	for (my $jn=0;$jn<=$#min_len;$jn++) {
	$space_neeeded+=$min_len[$jn];
	}
	if ($space_neeeded>$available_space) {
	$WARNING=' \textbf{NOT ENOUGH SPACE FOR TABLE} ';
	for (my $jn=0;$jn<=$#max_len;$jn++) {
	if ($fwidth[$jn]==0) {
	$fwidth[$jn]=$min_len[$jn];
	}
	}
	#check if we have objects which can be scaled
	my $how_many_to_scale=0;
	my @to_scale=();
	for (my $jn=0;$jn<=$#max_len;$jn++) {
	if ($Apache::londefdef::table[-1]{'objectsignal'}[$jn] eq '1') {
	$how_many_to_scale++;
	push @to_scale, $jn;
	}
	}
	if ($how_many_to_scale>0) {
	my $space_to_adjust=($space_neeeded-$available_space)/$how_many_to_scale;
	foreach my $jn (@to_scale) {
	for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
	$Apache::londefdef::table[-1]{'content'}[$in][$jn]=~m/width\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt)*)/;
	if ($1 ne '') {
	my $current_length=&recalc($1);
	$current_length=~/(\d+\.?\d*)/;
	$current_length=$current_length-$space_to_adjust;
	$Apache::londefdef::table[-1]{'content'}[$in][$jn]=~s/width\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt)*)/width=$current_length mm/;
	}
	$Apache::londefdef::table[-1]{'content'}[$in][$jn]=~m/\[(\d+\.?\d)\smm\]/;
	if ($1 ne '') {
	my $current_length=$1;
	$current_length=$current_length-$space_to_adjust;
	$Apache::londefdef::table[-1]{'content'}[$in][$jn]=~s/\[(\d+\.?\d)\smm\]/\[$current_length mm\]/;
	}
	}
	$fwidth[$jn]=$fwidth[$jn]-$space_to_adjust;
	}
	}
	} else {
	#step 3. adjustment over minimal + corrections
	my $enlarge_coef=$available_space/$space_neeeded;
	my $acsessive=0;
	for (my $jn=0;$jn<=$#min_len;$jn++) {
	$adjust[$jn]=$min_len[$jn]*$enlarge_coef;
	if ($adjust[$jn]>$max_len[$jn]) {
	$fwidth[$jn]=$max_len[$jn];
	$acsessive=$acsessive+$adjust[$jn]-$max_len[$jn];
	$adjust[$jn]=0;
	}
	}
	if ($acsessive>0) {
	#we have an excess of space and can redistribute it
	my $notempty_columns=0;
	for (my $jn=0;$jn<=$#min_len;$jn++) {
	if ($adjust[$jn]!=0) {
	$notempty_columns++;
	}
	}
	my $per_column=$acsessive/$notempty_columns;
	for (my $jn=0;$jn<=$#min_len;$jn++) {
	if ($adjust[$jn]!=0) {
	$adjust[$jn]+=$per_column;
	$fwidth[$jn]=$adjust[$jn];
	}
	}
	} else {
	for (my $jn=0;$jn<=$#min_len;$jn++) {
	$fwidth[$jn]=$adjust[$jn];
	}
}	}
}	}
}	}
for (my $jn=0;$jn<=$#length_row_final;$jn++) {	#use all available width if it is defined in % or as TeXwidth
if ($length_row_final[$jn]==0) {	if (($Apache::londefdef::table[-1]{'percent'}==1) \|\| ($Apache::londefdef::table[-1]{'forcetablewidth'}==1)) {
$length_row_final[$jn]=0.9*$available_length/$needed;	my $current=0;
	for (my $i=0;$i<=$#fwidth;$i++) {
	$current+=$fwidth[$i];
	}
	my $coef=$Apache::londefdef::table[-1]{'width'}/$current;
	for (my $i=0;$i<=$#fwidth;$i++) {
	$fwidth[$i]*=$coef;
	}
	}
	#removing of empty columns if allowed
	my $permission=&Apache::lonxml::get_param('TeXDropEmptyColumns',$parstack,$safeeval,undef,0);
	if ($permission eq 'yes') {
	my @cleaned_table=();
	my @cleaned_header=();
	my $colind=0;
	for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) {
	if ($fwidth[$jn]!=0) {
	#we need to copy column
	for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
	$cleaned_table[$in][$colind]=$Apache::londefdef::table[-1]{'content'}[$in][$jn];
	$cleaned_header[$colind]=$fwidth[$jn];
	}
	$colind++;
	}
}	}
	$Apache::londefdef::table[-1]{'content'}=\@cleaned_table;
	@fwidth=@cleaned_header;
	}
	#construct header of the table
	my $header_of_table = '{'.$Apache::londefdef::table[-1]{'vvinc'};
	for (my $in=0;$in<=$#fwidth;$in++) {
	$header_of_table.='p{'.$fwidth[$in].' mm}'.$Apache::londefdef::table[-1]{'vvinc'};
}	}
	$header_of_table .= '}';
#fill the table	#fill the table
for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {	for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
for (my $jn=0;$jn<=$#length_row_final;$jn++) {	for (my $jn=0;$jn<=$#fwidth;$jn++) {
my $substituted=$length_row_final[$jn];	if ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'c') {
$Apache::londefdef::table[-1]{'rowdata'}[$in]=~s/TOBECHANGEDONNUMBER/$substituted mm/;	$output.='\vspace*{-6 mm}\begin{center}';
}	} elsif ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'r') {
$output .= $Apache::londefdef::table[-1]{'rowdata'}[$in];	$output.=' \hfill \llap{'
chop $output;	}
$output .= ' \\\\ ';	$output.=$Apache::londefdef::table[-1]{'content'}[$in][$jn];
	if ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'c') {
	$output.='\end{center}\vspace*{-6 mm}';
	} elsif ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'r') {
	$output.='} ';
	}
	if ($jn!=$#fwidth) {$output.=' '.$Apache::londefdef::table[-1]{'vinc'};}
	}
	$output.=' \\\\ '.$Apache::londefdef::table[-1]{'hinc'}.' ';
}	}
$Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';	$Apache::londefdef::table[-1]{'output'} .= $header_of_table.$Apache::londefdef::table[-1]{'hinc'}.$output.'\end{tabular}\strut\newline\strut ';
if ($#Apache::londefdef::table > 0) {	if ($#Apache::londefdef::table > 0) {
my $inmemory = $Apache::londefdef::table[-1]{'output'};	my $inmemory = $Apache::londefdef::table[-1]{'output'};
pop @Apache::londefdef::table;	pop @Apache::londefdef::table;
Line 1824 sub end_table {	Line 2083 sub end_table {
} else {	} else {
$currentstring .= $Apache::londefdef::table[-1]{'output'};	$currentstring .= $Apache::londefdef::table[-1]{'output'};
pop @Apache::londefdef::table;	pop @Apache::londefdef::table;
	undef @Apache::londefdef::table;
}	}
}	}
return $currentstring;	return $currentstring;
}	}

#-- <tr> tag	#-- <tr> tag (end tag optional)
sub start_tr {	sub start_tr {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1837 sub start_tr {	Line 2097 sub start_tr {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$Apache::londefdef::table[-1]{'row_number'}++;	$Apache::londefdef::table[-1]{'row_number'}++;
my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);	my $alignchar=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1);
if ($alignchar ne '') {	if ($alignchar ne '') {
push @ {$Apache::londefdef::table[-1]{'rows'} }, $alignchar;	push @ {$Apache::londefdef::table[-1]{'rows'} },substr($alignchar,0,1);
} else {	} else {
push @ {$Apache::londefdef::table[-1]{'rows'} }, 'l';	push @ {$Apache::londefdef::table[-1]{'rows'} }, 'l';
}	}
push ( @{ $Apache::londefdef::table[-1]{'rowdata'} }, $Apache::londefdef::table[-1]{'hinc'});	push ( @{ $Apache::londefdef::table[-1]{'rowdata'} }, $Apache::londefdef::table[-1]{'hinc'});
$Apache::londefdef::table[-1]{'counter_columns'} = -1;	$Apache::londefdef::table[-1]{'counter_columns'} = -1;
$Apache::londefdef::table[-1]{'TeXlength'} = '';	push @ {$Apache::londefdef::table[-1]{'TeXlen'}}, [];
$Apache::londefdef::table[-1]{'length'} = '';	push @ {$Apache::londefdef::table[-1]{'objectlen'}}, [];
	push @ {$Apache::londefdef::table[-1]{'minlen'}}, [];
	push @ {$Apache::londefdef::table[-1]{'maxlen'}}, [];
	push @ {$Apache::londefdef::table[-1]{'content'}}, [];
}	}
return $currentstring;	return $currentstring;
}	}

sub end_tr {	sub end_tr {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
push @{ $Apache::londefdef::table[-1]{'TeXlengthrow'} },$Apache::londefdef::table[-1]{'TeXlength'};	if ($Apache::londefdef::TD_redirection) {
push @{ $Apache::londefdef::table[-1]{'lengthrow'} },$Apache::londefdef::table[-1]{'length'};	&end_td_tex($parstack,$parser,$safeeval);
	}
}	}
return $currentstring;	return $currentstring;
}	}

#-- <td> tag	#-- <td> tag (end tag optional)
sub start_td {	sub start_td {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);	$Apache::londefdef::TD_redirection = 1;
if ($what_to_push eq '') {	&tag_check('tr','td',$tagstack,$parstack,$parser,$safeeval);
$what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;
}
push @{ $Apache::londefdef::table[-1]{'columns'} }, $what_to_push;
$Apache::londefdef::table[-1]{'counter_columns'}++;
&Apache::lonxml::startredirection();
}	}
return $currentstring;	return $currentstring;
}	}

	sub tag_check {
	my ($good_tag,$bad_tag,$tagstack,$parstack,$parser,$safeeval) = @_;
	my @ar=@$parstack;
	for (my $i=$#ar-1;$i>=0;$i--) {
	if (lc($$tagstack[$i]) eq $good_tag) {
	&start_td_tex($parstack,$parser,$safeeval);
	last;
	} elsif (lc($$tagstack[$i]) eq $bad_tag) {
	splice @ar, $i+1;
	&end_td_tex(\@ar,$parser,$safeeval);
	&start_td_tex($parstack,$parser,$safeeval);
	last;
	}
	}
	return '';
	}

	sub start_td_tex {
	my ($parstack,$parser,$safeeval) = @_;
	my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);
	if ($alignchar eq '') {
	$alignchar = $Apache::londefdef::table[-1]{'rows'}[-1];
	}
	push @{ $Apache::londefdef::table[-1]{'align'}[$Apache::londefdef::table[-1]{'row_number'}] }, $alignchar;
	$Apache::londefdef::table[-1]{'counter_columns'}++;
	my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
	if (defined $TeXwidth) {
	my $current_length=&recalc($TeXwidth);
	$current_length=~/(\d+\.?\d*)/;
	push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$1;
	}
	&Apache::lonxml::startredirection();
	return '';
	}

	sub end_td_tex {
	my ($parstack,$parser,$safeeval) = @_;
	my $current_row = $Apache::londefdef::table[-1]{'row_number'};
	my $data=&Apache::lonxml::endredirection();
	my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
	if (defined $TeXwidth) {
	push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	} else {
	if (($data=~m/width\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt))/) or ($data=~m/\[(\d+\.?\d)\s*mm\]/)) {
	my $garbage_data=$data;
	my $fwidth=0;
	while ($garbage_data=~m/width\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt)*)/) {
	my $current_length=&recalc($1);
	$current_length=~/(\d+\.?\d*)/;
	if ($fwidth<$1) {$fwidth=$1;}
	$garbage_data=~s/width\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt)*)//;
	}
	while ($garbage_data=~m/\[(\d+\.?\d)\smm\]/) {
	my $current_length=$1;
	if ($fwidth<$current_length) {$fwidth=$current_length;}
	$garbage_data=~s/\[(\d+\.?\d)\smm\]//;
	}
	push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$fwidth;
	push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	} elsif ($data=~/\\parbox\{\s\d+\.?\d\s(mm\|cm\|in\|pc\|pt)\s\}/ or $data=~/\\epsfxsize\s=\s\d+\.?\d\s(mm\|cm\|in\|pc\|pt)/) {
	my $garbage_data=$data;
	my $fwidth=0;
	while ($garbage_data=~/\\parbox\{\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt))\s*\}/) {
	my $current_length=&recalc($1);
	$current_length=~/(\d+\.?\d*)/;
	if ($fwidth<$1) {$fwidth=$1;}
	$garbage_data=~s/\\parbox\{\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt))//;
	}
	while ($garbage_data=~/\\epsfxsize\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt)*)/) {
	my $current_length=&recalc($1);
	$current_length=~/(\d+\.?\d*)/;
	if ($fwidth<$1) {$fwidth=$1;}
	$garbage_data=~s/\\epsfxsize\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt)*)//;
	}
	push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$fwidth;
	push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	$data=~s/\\\\\s*$//;
	} else {
	$data=~s/^\s+(\S.*)/$1/;
	$data=~s/(.*\S)\s+$/$1/;
	$data=~s/(\s)+/$1/;
	my ($current_length,$min_length)=(0,0);
	if ($data=~/\\vskip/) {
	my $newdata=$data;
	$newdata=~s/\\vskip \d\.?\d\s*mm/THISISJUSTTEMPORARYSEPARATOR/g;
	my @newdata=split(/THISISJUSTTEMPORARYSEPARATOR/,$newdata);
	foreach my $elementdata (@newdata) {
	my $lengthnewdata=2.5*&LATEX_length($elementdata);
	if ($lengthnewdata>$current_length) {$current_length=$lengthnewdata;}
	my @words=split(/ /,$elementdata);
	foreach my $word (@words) {
	my $lengthword=2.5*&LATEX_length($word);
	if ($min_length<$lengthword) {$min_length=$lengthword;}
	}
	}
	} else {
	$current_length=2.5*&LATEX_length($data);
	my @words=split(/ /,$data);
	foreach my $word (@words) {
	my $lengthword=2*&LATEX_length($word);
	if ($min_length<$lengthword) {$min_length=$lengthword;}
	}
	}
	push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$current_length;
	push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$min_length;
	}
	}
	for (my $in=0; $in<=$#{$Apache::londefdef::table[-1]{'include'}};$in++) {
	$data=~s/\\keephidden\{NEW TABLE ENTRY\}/$Apache::londefdef::table[-1]{'include'}[$in]/;
	}
	push @ {$Apache::londefdef::table[-1]{'content'}[-1] },$data;
	return'';
	}

sub end_td {	sub end_td {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $current_row = $Apache::londefdef::table[-1]{'row_number'};	$Apache::londefdef::TD_redirection =0;
my $data=&Apache::lonxml::endredirection();	&end_td_tex($parstack,$parser,$safeeval);
my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
if (defined $TeXwidth) {
my $current_length=&recalc($TeXwidth);
$current_length=~/(\d+)/;
$Apache::londefdef::table[-1]{'TeXlength'} .= $1.',';
$Apache::londefdef::table[-1]{'length'} .= '0,';
} else {
if ($data=~m/width\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt)*)/) {
my $current_length=&recalc($1);
$current_length=~/(\d+\.?\d*)/;
$Apache::londefdef::table[-1]{'TeXlength'} .= $1.',';
$Apache::londefdef::table[-1]{'length'} .= '0,';
} else {
$data=~/^\s(\S.)/;
$data=$1;
$data=~/(.\S)\s$/;
$data=$1;
my $current_length=2*length($data);
$Apache::londefdef::table[-1]{'length'} .= $current_length.',';
$Apache::londefdef::table[-1]{'TeXlength'} .= '0,';
}
}
for (my $in=0; $in<=$#{$Apache::londefdef::table[-1]{'include'}};$in++) {
$data=~s/\\keephidden\{NEW TABLE ENTRY\}/$Apache::londefdef::table[-1]{'include'}[$in]/;
}
@{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{TOBECHANGEDONNUMBER}{'.$data.'} '.$Apache::londefdef::table[-1]{'vinc'};
}	}
return $currentstring;	return $currentstring;
}	}

#-- <th> tag	#-- <th> tag (end tag optional)
sub start_th {	sub start_th {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);	$Apache::londefdef::TD_redirection = 1;
if ($what_to_push eq '') {	&tagg_check('tr','th',$tagstack,$parstack,$parser,$safeeval);
$what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;
}
push @{ $Apache::londefdef::table[-1]{'columns'} }, $what_to_push;
$Apache::londefdef::table[-1]{'counter_columns'}++;
&Apache::lonxml::startredirection();
}	}
return $currentstring;	return $currentstring;
}	}

	sub tagg_check {
	my ($good_tag,$bad_tag,$tagstack,$parstack,$parser,$safeeval) = @_;
	my @ar=@$parstack;
	for (my $i=$#ar-1;$i>=0;$i--) {
	if (lc($$tagstack[$i]) eq $good_tag) {
	&start_th_tex($parstack,$parser,$safeeval);
	last;
	} elsif (lc($$tagstack[$i]) eq $bad_tag) {
	splice @ar, $i+1;
	&end_th_tex(\@ar,$parser,$safeeval);
	&start_th_tex($parstack,$parser,$safeeval);
	last;
	}
	}
	return '';
	}

	sub start_th_tex {
	my ($parstack,$parser,$safeeval) = @_;
	my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);
	if ($alignchar eq '') {
	$alignchar = $Apache::londefdef::table[-1]{'rows'}[-1];
	}
	push @{ $Apache::londefdef::table[-1]{'align'}[$Apache::londefdef::table[-1]{'row_number'}] }, $alignchar;
	$Apache::londefdef::table[-1]{'counter_columns'}++;
	my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
	if (defined $TeXwidth) {
	my $current_length=&recalc($TeXwidth);
	$current_length=~/(\d+\.?\d*)/;
	push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$1;
	}
	&Apache::lonxml::startredirection();
	return '';
	}

	sub end_th_tex {
	my ($parstack,$parser,$safeeval) = @_;
	my $current_row = $Apache::londefdef::table[-1]{'row_number'};
	my $data=&Apache::lonxml::endredirection();
	my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
	if (defined $TeXwidth) {
	push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	} else {
	if (($data=~m/width\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt))/) or ($data=~m/\[(\d+\.?\d)\s*mm\]/)) {
	my $garbage_data=$data;
	my $fwidth=0;
	while ($garbage_data=~m/width\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt)*)/) {
	my $current_length=&recalc($1);
	$current_length=~/(\d+\.?\d*)/;
	if ($fwidth<$1) {$fwidth=$1;}
	$garbage_data=~s/width\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt)*)//;
	}
	while ($garbage_data=~m/\[(\d+\.?\d)\smm\]/) {
	my $current_length=$1;
	if ($fwidth<$current_length) {$fwidth=$current_length;}
	$garbage_data=~s/\[(\d+\.?\d)\smm\]//;
	}
	push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$fwidth;
	push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	} else {
	$data=~s/^\s+(\S.*)/$1/;
	$data=~s/(.*\S)\s+$/$1/;
	$data=~s/(\s)+/$1/;
	my ($current_length,$min_length)=(0,0);
	if ($data=~/\\vskip/) {
	my $newdata=$data;
	$newdata=~s/\\vskip \d\.?\d\s*mm/THISISJUSTTEMPORARYSEPARATOR/g;
	my @newdata=split(/THISISJUSTTEMPORARYSEPARATOR/,$newdata);
	foreach my $elementdata (@newdata) {
	my $lengthnewdata=2.5*&LATEX_length($elementdata);
	if ($lengthnewdata>$current_length) {$current_length=$lengthnewdata;}
	my @words=split(/ /,$elementdata);
	foreach my $word (@words) {
	my $lengthword=2.5*&LATEX_length($word);
	if ($min_length<$lengthword) {$min_length=$lengthword;}
	}
	}
	} else {
	$current_length=2.5*&LATEX_length($data);
	my @words=split(/ /,$data);
	foreach my $word (@words) {
	my $lengthword=2*&LATEX_length($word);
	if ($min_length<$lengthword) {$min_length=$lengthword;}
	}
	}
	push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0';
	push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$current_length;
	push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$min_length;
	}
	}
	for (my $in=0; $in<=$#{$Apache::londefdef::table[-1]{'include'}};$in++) {
	$data=~s/\\keephidden\{NEW TABLE ENTRY\}/$Apache::londefdef::table[-1]{'include'}[$in]/;
	}
	#make data bold
	$data='\textbf{'.$data.'}';
	push @ {$Apache::londefdef::table[-1]{'content'}[-1] },$data;
	return'';
	}

sub end_th {	sub end_th {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $current_row = $Apache::londefdef::table[-1]{'row_number'};	$Apache::londefdef::TD_redirection =0;
my $data=&Apache::lonxml::endredirection();	&end_th_tex($parstack,$parser,$safeeval);
my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
if (defined $TeXwidth) {
my $current_length=&recalc($TeXwidth);
$current_length=~/(\d+)/;
$Apache::londefdef::table[-1]{'TeXlength'} .= $1.',';
$Apache::londefdef::table[-1]{'length'} .= '0,';
} else {
if ($data=~m/width\s=\s(\d+\.?\d\s(mm\|cm\|in\|pc\|pt)*)/) {
my $current_length=&recalc($1);
$current_length=~/(\d+)/;
$Apache::londefdef::table[-1]{'TeXlength'} .= $1.',';
$Apache::londefdef::table[-1]{'length'} .= '0,';
} else {
$data=~/^\s(\S.)/;
$data=$1;
$data=~/(.\S)\s$/;
$data=$1;
my $current_length=2*length($data);
$Apache::londefdef::table[-1]{'length'} .= $current_length.',';
$Apache::londefdef::table[-1]{'TeXlength'} .= '0,';
}
}
for (my $in=0; $in<=$#{$Apache::londefdef::table[-1]{'include'}};$in++) {
$data=~s/\\keephidden\{NEW TABLE ENTRY\}/$Apache::londefdef::table[-1]{'include'}[$in]/;
}
$data='\textbf{'.$data.'}';
@{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{TOBECHANGEDONNUMBER}{'.$data.'} '.$Apache::londefdef::table[-1]{'vinc'};
}	}
return $currentstring;	return $currentstring;
}	}
#-- <img> tag
	#-- <img> tag (end tag forbidden)
sub start_img {	sub start_img {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,	my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,
undef,1);	undef,1);
	if (not $src and ($target eq 'web' or $target eq 'tex')) {
	my $inside = &Apache::lonxml::get_all_text("/img",$parser);
	return '';
	}
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;	$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;
my $currentstring = '';	my $currentstring = '';
my $width_param = '';
my $height_param = '';
my $scaling = .3;	my $scaling = .3;

if ($target eq 'web') {	if ($target eq 'web') {
if ($ENV{'browser.imagesuppress'} ne 'on') {	if ($ENV{'browser.imagesuppress'} ne 'on') {
$currentstring = $token->[4];	$currentstring.= $token->[4];
} else {	} else {
my $alttag= &Apache::lonxml::get_param	my $alttag= &Apache::lonxml::get_param
('alt',$parstack,$safeeval,undef,1);	('alt',$parstack,$safeeval,undef,1);
Line 1996 sub start_img {	Line 2425 sub start_img {
$alttag=&Apache::lonmeta::alttag	$alttag=&Apache::lonmeta::alttag
($Apache::lonxml::pwd[-1],$src);	($Apache::lonxml::pwd[-1],$src);
}	}
$currentstring='[IMAGE: '.$alttag.']';	$currentstring.='[IMAGE: '.$alttag.']';
}	}
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
	my $oldSRC=$src;
	$oldSRC=~s/\.(gif\|jpg\|png)$/\.eps/;
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);	$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
&image_replication($src);

#if original gif/jpg/png file exist do following:	#if original gif/jpg/png file exist do following:
if (-e $src) {	if (-e $src) {
#defines the default size of image	#what is the image size?
my $image = Image::Magick->new;	my $width_param=&image_size($src,$scaling,$parstack,$safeeval);
my $current_figure = $image->Read($src);	my ($file,$path)=&file_path($src);
$width_param = $image->Get('width') * $scaling;;
$height_param = $image->Get('height') * $scaling;;
undef $image;
#do we have any specified size of the picture?
my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval);
my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval);
my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval,
undef,1);
if ($TeXwidth ne '') {
if ($TeXwidth=~/(\d+)\s*\%/) {
$width_param = $1*$ENV{'form.textwidth'}/100;
} else {
$width_param = $TeXwidth;
}
} elsif ($TeXheight ne '') {
$width_param = $TeXheight/$height_param*$width_param;
} elsif ($width ne '') {
$width_param = $width*$scaling;
}
my $file;
my $path;
if ($src =~ m!(.)/([^/])$!) {
$file = $2;
$path = $1.'/';
}
my $newsrc = $src;	my $newsrc = $src;
$newsrc =~ s/\.(gif\|jpg\|png)$/.eps/i;	$newsrc =~ s/\.(gif\|jpg\|png)$/.eps/i;
	&Apache::lonnet::repcopy($oldSRC);
$file=~s/\.(gif\|jpg\|png)$/.eps/i;	$file=~s/\.(gif\|jpg\|png)$/.eps/i;
#where can we find the picture?	#where can we find the picture?
if (-e $newsrc) {	if (-e $newsrc) {
Line 2051 sub start_img {	Line 2456 sub start_img {
$currentstring .= '\vskip 1 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';	$currentstring .= '\vskip 1 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
}	}
} else {	} else {
#there aren't eps or ps - so create eps	#care about eps dynamical generation
my $temp_file;	$currentstring.='\vskip 1 mm '.&eps_generation($src,$file,$width_param);
my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";
$temp_file = Apache::File->new('>>'.$filename);
print $temp_file "$src\n";
$currentstring .= '\vskip 1 mm \graphicspath{{/home/httpd/prtspool/}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
}	}
}	}
} else {	} else {
Line 2073 sub start_img {	Line 2474 sub start_img {
#<allow> tag will care about replication	#<allow> tag will care about replication
}	}
}	}
	} elsif ($target eq 'edit') {
	$currentstring .=&Apache::edit::tag_start($target,$token);
	$currentstring .=&Apache::edit::text_arg('Image Url:','src',$token,70).
	&Apache::edit::browse('src',undef,'alt').' '.
	&Apache::edit::search('src',undef,'alt').'<br />';
	$currentstring .=&Apache::edit::text_arg('Description:','alt',$token,70).'<br />';
	$currentstring .=&Apache::edit::text_arg('width (pixel):','width',$token,5);
	$currentstring .=&Apache::edit::text_arg('height (pixel):','height',$token,5).'<br />';
	$currentstring .=&Apache::edit::text_arg('TeXwidth (mm):','TeXwidth',$token,5);
	$currentstring .=&Apache::edit::text_arg('TeXheight (mm):','TeXheight',$token,5);
	$currentstring .=&Apache::edit::select_arg('Alignment:','align',
	['','bottom','middle','top','left','right'],$token,5);
	$currentstring .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
	my $src=&Apache::lonxml::get_param('src',$parstack,$safeeval);
	my $alt=&Apache::lonxml::get_param('alt',$parstack,$safeeval);
	my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval);
	my $height=&Apache::lonxml::get_param('height',$parstack,$safeeval);
	$currentstring .= '<img src="'.$src.'" alt="'.$alt.'" ';
	if ($width) { $currentstring.=' width="'.$width.'" '; }
	if ($height) { $currentstring.=' height="'.$height.'" '; }
	$currentstring .= ' />';
	} elsif ($target eq 'modified') {
	my ($osrc,$owidth,$oheight)=
	($token->[2]{'src'},$token->[2]{'width'},$token->[2]{'height'});
	my $ctag=&Apache::edit::get_new_args($token,$parstack,
	$safeeval,'src','alt','align',
	'TeXwidth','TeXheight',
	'width','height');
	my ($nsrc,$nwidth,$nheight)=
	($token->[2]{'src'},$token->[2]{'width'},$token->[2]{'height'});
	my $loc=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$nsrc);
	&image_replication($loc);
	my ($iwidth,$iheight);
	if (-e $loc) {
	my $image = Image::Magick->new;
	$image->Read($loc);
	($iwidth, $iheight) = ($image->Get('width'),
	$image->Get('height'));
	}
	if ($osrc ne $nsrc \|\| (!$nwidth && !$nheight)) {
	# changed image or no size specified,
	# if they didn't explicitly change the
	# width or height use the ones from the image
	if ($iwidth && $iheight) {
	if ($owidth == $nwidth \|\| (!$nwidth && !$nheight)) {
	$token->[2]{'width'} = $iwidth;$ctag=1;
	}
	if ($oheight == $nheight \|\| (!$nwidth && !$nheight)) {
	$token->[2]{'height'}=$iheight;$ctag=1;
	}
	}
	}
	my ($cwidth,$cheight)=($token->[2]{'width'},$token->[2]{'height'});
	# if we don't have a width or height
	if ($iwidth && $cwidth && !$cheight) {
	$token->[2]{'height'}=int(($cwidth/$iwidth)*$iheight);$ctag=1;
	}
	if ($iheight && $cheight && !$cwidth) {
	$token->[2]{'width'}=int(($cheight/$iheight)*$iwidth);$ctag=1;
	}
	if ($ctag) {$currentstring=&Apache::edit::rebuild_tag($token);}
}	}
return $currentstring;	return $currentstring;
}	}
Line 2088 sub end_img {	Line 2550 sub end_img {
return $currentstring;	return $currentstring;
}	}

#-- <applet> tag	#-- <applet> tag (end tag required)
sub start_applet {	sub start_applet {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;

Line 2113 sub start_applet {	Line 2575 sub start_applet {
$currentstring='[APPLET: '.$alttag.']';	$currentstring='[APPLET: '.$alttag.']';
}	}
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = " \\begin{figure} ";	my $alttag= &Apache::lonxml::get_param('alt',$parstack,
	$safeeval,undef,1);
	unless ($alttag) {
	my $code=&Apache::lonxml::get_param('code',$parstack,$safeeval,
	undef,1);
	$alttag=&Apache::lonmeta::alttag($Apache::lonxml::pwd[-1],
	$code);
	}
	$currentstring.='\begin{center} \fbox{Java Applet: '.$alttag.
	'.}\end{center}';
}	}
return $currentstring;	return $currentstring;
}	}
Line 2124 sub end_applet {	Line 2595 sub end_applet {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = " \\end{figure}";
}	}
return $currentstring;	return $currentstring;
}	}

#-- <embed> tag	#-- <embed> tag (end tag optional/required)
sub start_embed {	sub start_embed {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $src=&Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1);	my $src=&Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1);
Line 2147 sub start_embed {	Line 2617 sub start_embed {
$currentstring='[EMBED: '.$alttag.']';	$currentstring='[EMBED: '.$alttag.']';
}	}
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = " \\begin{figure} ";
}	}
return $currentstring;	return $currentstring;
}	}
Line 2157 sub end_embed {	Line 2626 sub end_embed {
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = " \\end{figure}";
}	}
return $currentstring;	return $currentstring;
}	}

#-- <param> tag	#-- <param> tag (end tag forbidden)
sub start_param {	sub start_param {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
if (&Apache::lonxml::get_param	if (&Apache::lonxml::get_param
Line 2177 sub start_param {	Line 2645 sub start_param {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = " \\begin{figure} ";
}	}
return $currentstring;	return $currentstring;
}	}
Line 2188 sub end_param {	Line 2655 sub end_param {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = " \\end{figure}";
}	}
return $currentstring;	return $currentstring;
}	}
Line 2198 sub start_allow {	Line 2664 sub start_allow {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1);	my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1);
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);	$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;	$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
&image_replication($src);	&Apache::lonnet::clutter($src);
	if ($target eq 'tex') { &image_replication($src); }
my $result;	my $result;
if ($target eq 'edit') {	if ($target eq 'edit') {
$result .=&Apache::edit::tag_start($target,$token);	$result .=&Apache::edit::tag_start($target,$token);
Line 2219 sub end_allow {	Line 2686 sub end_allow {
return '';	return '';
}	}

#-- Frames	#-- Frames (end tag required)
	#-- <frameset>
sub start_frameset {	sub start_frameset {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
if (!$Apache::lonxml::registered) {	if (!$Apache::lonxml::registered &&
	$ENV{'request.state'} eq 'published') {
$currentstring.='<head>'.	$currentstring.='<head>'.
&Apache::lonmenu::registerurl(undef,$target).'</head>';	&Apache::lonmenu::registerurl(undef,$target).'</head>';
}	}
Line 2264 sub end_frameset {	Line 2733 sub end_frameset {
return $currentstring;	return $currentstring;
}	}

#-- <pre>	#-- <xmp> (end tag required)
	sub start_xmp {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring .= $token->[4];
	} elsif ($target eq 'tex') {
	$currentstring .= '\begin{verbatim}';
	}
	return $currentstring;
	}

	sub end_xmp {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring .= $token->[2];
	} elsif ($target eq 'tex') {
	$currentstring .= '\end{verbatim}';
	}
	return $currentstring;
	}

	#-- <pre> (end tag required)
sub start_pre {	sub start_pre {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $width = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);	$currentstring .= '\begin{verbatim}';
if (not defined $width) {$width ='\textwidth';}
$currentstring .= '\parbox['.$width.']{\begin{verbatim}';
}	}
return $currentstring;	return $currentstring;
}	}
Line 2284 sub end_pre {	Line 2774 sub end_pre {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '\end{verbatim}}';	$currentstring .= '\end{verbatim}';
}	}
return $currentstring;	return $currentstring;
}	}
Line 2349 sub end_blankspace {	Line 2839 sub end_blankspace {
return $currentstring;	return $currentstring;
}	}

#-- <abbr> tag	#-- <abbr> tag (end tag required)
sub start_abbr {	sub start_abbr {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2368 sub end_abbr {	Line 2858 sub end_abbr {
return $currentstring;	return $currentstring;
}	}

#-- <acronym> tag	#-- <acronym> tag (end tag required)
sub start_acronym {	sub start_acronym {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2387 sub end_acronym {	Line 2877 sub end_acronym {
return $currentstring;	return $currentstring;
}	}

#-- <area> tag	#-- <area> tag (end tag forbidden)
sub start_area {	sub start_area {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2406 sub end_area {	Line 2896 sub end_area {
return $currentstring;	return $currentstring;
}	}

#-- <base> tag	#-- <base> tag (end tag forbidden)
sub start_base {	sub start_base {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
}	}
return $currentstring;	return $currentstring;
}	}

Line 2425 sub end_base {	Line 2915 sub end_base {
return $currentstring;	return $currentstring;
}	}

#-- <bdo> tag	#-- <bdo> tag (end tag required)
sub start_bdo {	sub start_bdo {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2444 sub end_bdo {	Line 2934 sub end_bdo {
return $currentstring;	return $currentstring;
}	}

#-- <bgsound> tag	#-- <bgsound> tag (end tag optional)
sub start_bgsound {	sub start_bgsound {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2463 sub end_bgsound {	Line 2953 sub end_bgsound {
return $currentstring;	return $currentstring;
}	}

#-- <blink> tag	#-- <blink> tag (end tag required)
sub start_blink {	sub start_blink {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2482 sub end_blink {	Line 2972 sub end_blink {
return $currentstring;	return $currentstring;
}	}

#-- <blockquote> tag	#-- <blockquote> tag (end tag required)
sub start_blockquote {	sub start_blockquote {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2501 sub end_blockquote {	Line 2991 sub end_blockquote {
return $currentstring;	return $currentstring;
}	}

#-- <button> tag	#-- <button> tag (end tag required)
sub start_button {	sub start_button {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2520 sub end_button {	Line 3010 sub end_button {
return $currentstring;	return $currentstring;
}	}

#-- <caption> tag	#-- <caption> tag (end tag required)
sub start_caption {	sub start_caption {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2539 sub end_caption {	Line 3029 sub end_caption {
return $currentstring;	return $currentstring;
}	}

#-- <col> tag	#-- <col> tag (end tag forbdden)
sub start_col {	sub start_col {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2558 sub end_col {	Line 3048 sub end_col {
return $currentstring;	return $currentstring;
}	}

#-- <colgroup> tag	#-- <colgroup> tag (end tag optional)
sub start_colgroup {	sub start_colgroup {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2577 sub end_colgroup {	Line 3067 sub end_colgroup {
return $currentstring;	return $currentstring;
}	}

#-- <del> tag	#-- <del> tag (end tag required)
sub start_del {	sub start_del {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2596 sub end_del {	Line 3086 sub end_del {
return $currentstring;	return $currentstring;
}	}

#-- <fieldset> tag	#-- <fieldset> tag (end tag required)
sub start_fieldset {	sub start_fieldset {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2615 sub end_fieldset {	Line 3105 sub end_fieldset {
return $currentstring;	return $currentstring;
}	}

#-- <frame> tag	#-- <frame> tag (end tag forbidden)
sub start_frame {	sub start_frame {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2634 sub end_frame {	Line 3124 sub end_frame {
return $currentstring;	return $currentstring;
}	}

#-- <iframe> tag	#-- <iframe> tag (end tag required)
sub start_iframe {	sub start_iframe {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2653 sub end_iframe {	Line 3143 sub end_iframe {
return $currentstring;	return $currentstring;
}	}

#-- <ins> tag	#-- <ins> tag (end tag required)
sub start_ins {	sub start_ins {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2672 sub end_ins {	Line 3162 sub end_ins {
return $currentstring;	return $currentstring;
}	}

#-- <isindex> tag	#-- <isindex> tag (end tag forbidden)
sub start_isindex {	sub start_isindex {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2691 sub end_isindex {	Line 3181 sub end_isindex {
return $currentstring;	return $currentstring;
}	}

#-- <keygen> tag	#-- <keygen> tag (end tag forbidden)
sub start_keygen {	sub start_keygen {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2729 sub end_label {	Line 3219 sub end_label {
return $currentstring;	return $currentstring;
}	}

#-- <layer> tag	#-- <layer> tag (end tag required)
sub start_layer {	sub start_layer {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2748 sub end_layer {	Line 3238 sub end_layer {
return $currentstring;	return $currentstring;
}	}

#-- <legend> tag	#-- <legend> tag (end tag required)
sub start_legend {	sub start_legend {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2767 sub end_legend {	Line 3257 sub end_legend {
return $currentstring;	return $currentstring;
}	}

#-- <link> tag	#-- <link> tag (end tag forbidden)
sub start_link {	sub start_link {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2786 sub end_link {	Line 3276 sub end_link {
return $currentstring;	return $currentstring;
}	}

#-- <marquee> tag	#-- <marquee> tag (end tag optional)
sub start_marquee {	sub start_marquee {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2805 sub end_marquee {	Line 3295 sub end_marquee {
return $currentstring;	return $currentstring;
}	}

#-- <malticol> tag	#-- <multicol> tag (end tag required)
sub start_malticol {	sub start_multicol {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
Line 2815 sub start_malticol {	Line 3305 sub start_malticol {
return $currentstring;	return $currentstring;
}	}

sub end_malticol {	sub end_multicol {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
Line 2824 sub end_malticol {	Line 3314 sub end_malticol {
return $currentstring;	return $currentstring;
}	}

#-- <nobr> tag	#-- <nobr> tag (end tag required)
sub start_nobr {	sub start_nobr {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
}	} elsif ($target eq 'tex') {
	$currentstring='\mbox{';
	}
return $currentstring;	return $currentstring;
}	}

Line 2839 sub end_nobr {	Line 3331 sub end_nobr {
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
}	} elsif ($target eq 'tex') {
	$currentstring='}';
	}
return $currentstring;	return $currentstring;
}	}

#-- <noembed> tag	#-- <noembed> tag (end tag required)
sub start_noembed {	sub start_noembed {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2862 sub end_noembed {	Line 3356 sub end_noembed {
return $currentstring;	return $currentstring;
}	}

#-- <noframes> tag	#-- <noframes> tag (end tag required)
sub start_noframes {	sub start_noframes {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2881 sub end_noframes {	Line 3375 sub end_noframes {
return $currentstring;	return $currentstring;
}	}

#-- <nolayer> tag	#-- <nolayer> tag (end tag required)
sub start_nolayer {	sub start_nolayer {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2900 sub end_nolayer {	Line 3394 sub end_nolayer {
return $currentstring;	return $currentstring;
}	}

#-- <noscript> tag	#-- <noscript> tag (end tag required)
sub start_noscript {	sub start_noscript {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2919 sub end_noscript {	Line 3413 sub end_noscript {
return $currentstring;	return $currentstring;
}	}

#-- <object> tag	#-- <object> tag (end tag required)
sub start_object {	sub start_object {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2938 sub end_object {	Line 3432 sub end_object {
return $currentstring;	return $currentstring;
}	}

#-- <optgroup> tag	#-- <optgroup> tag (end tag required)
sub start_optgroup {	sub start_optgroup {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 2957 sub end_optgroup {	Line 3451 sub end_optgroup {
return $currentstring;	return $currentstring;
}	}

#-- <samp> tag	#-- <samp> tag (end tag required)
sub start_samp {	sub start_samp {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
}	} elsif ($target eq 'tex') {
	$currentstring='\texttt{';
	}
return $currentstring;	return $currentstring;
}	}

Line 2972 sub end_samp {	Line 3468 sub end_samp {
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
}	} elsif ($target eq 'tex') {
	$currentstring='}';
	}
return $currentstring;	return $currentstring;
}	}

Line 2995 sub end_server {	Line 3493 sub end_server {
return $currentstring;	return $currentstring;
}	}

#-- <spacer> tag	#-- <spacer> tag (end tag forbidden)
sub start_spacer {	sub start_spacer {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 3014 sub end_spacer {	Line 3512 sub end_spacer {
return $currentstring;	return $currentstring;
}	}

#-- <span> tag	#-- <span> tag (end tag required)
sub start_span {	sub start_span {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 3033 sub end_span {	Line 3531 sub end_span {
return $currentstring;	return $currentstring;
}	}

#-- <tbody> tag	#-- <tbody> tag (end tag optional)
sub start_tbody {	sub start_tbody {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 3052 sub end_tbody {	Line 3550 sub end_tbody {
return $currentstring;	return $currentstring;
}	}

#-- <tfoot> tag	#-- <tfoot> tag (end tag optional)
sub start_tfoot {	sub start_tfoot {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 3071 sub end_tfoot {	Line 3569 sub end_tfoot {
return $currentstring;	return $currentstring;
}	}

#-- <thead> tag	#-- <thead> tag (end tag optional)
sub start_thead {	sub start_thead {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 3096 sub start_var {	Line 3594 sub start_var {
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
}	} elsif ($target eq 'tex') {
	$currentstring = '\textit{';
	}
return $currentstring;	return $currentstring;
}	}

Line 3104 sub end_var {	Line 3604 sub end_var {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
	} elsif ($target eq 'tex') {
	$currentstring = '}';
}	}
return $currentstring;	return $currentstring;
}	}

#-- <wbr> tag	#-- <wbr> tag (end tag forbidden)
sub start_wbr {	sub start_wbr {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 3128 sub end_wbr {	Line 3630 sub end_wbr {
return $currentstring;	return $currentstring;
}	}


#-- <hideweboutput> tag	#-- <hideweboutput> tag
sub start_hideweboutput {	sub start_hideweboutput {
my ($target,$token) = @_;	my ($target,$token) = @_;
Line 3150 sub end_hideweboutput {	Line 3651 sub end_hideweboutput {

sub image_replication {	sub image_replication {
my $src = shift;	my $src = shift;
if (not -e $src) {	if (not -e $src) { &Apache::lonnet::repcopy($src); }
#replicates image itself	#replicates eps or ps
&Apache::lonnet::repcopy($src);	my $epssrc = my $pssrc = $src;
#replicates eps or ps	$epssrc =~ s/\.(gif\|jpg\|jpeg\|png)$/.eps/i;
my $newsrc = $src;	$pssrc =~ s/\.(gif\|jpg\|jpeg\|png)$/.ps/i;
$newsrc =~ s/\.(gif\|jpg\|jpeg\|png)$/.eps/i;	if (not -e $epssrc && not -e $pssrc) {
if (not -e $newsrc) {	my $result=&Apache::lonnet::repcopy($epssrc);
if (&Apache::lonnet::repcopy($newsrc) ne 'OK') {	if ($result ne OK) { &Apache::lonnet::repcopy($pssrc); }
$newsrc =~ s/\.eps$/\.ps/;
&Apache::lonnet::repcopy($newsrc);
}
}
}	}
return '';	return '';
}	}

	sub image_size {
	my ($src,$scaling,$parstack,$safeeval)=@_;
	#size of image from gif/jpg/jpeg/png
	my $image = Image::Magick->new;
	my $current_figure = $image->Read($src);
	my $width_param = $image->Get('width') * $scaling;;
	my $height_param = $image->Get('height') * $scaling;;
	undef $image;
	#do we have any specified LaTeX size of the picture?
	my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval);
	my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval);
	#do we have any specified web size of the picture?
	my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval,
	undef,1);
	if ($TeXwidth ne '') {
	if ($TeXwidth=~/(\d+)\s*\%/) {
	$width_param = $1*$ENV{'form.textwidth'}/100;
	} else {
	$width_param = $TeXwidth;
	}
	} elsif ($TeXheight ne '') {
	$width_param = $TeXheight/$height_param*$width_param;
	} elsif ($width ne '') {
	$width_param = $width*$scaling;
	}
	if ($width_param > $ENV{'form.textwidth'}) {$width_param =0.95*$ENV{'form.textwidth'}}
	return $width_param;
	}

	sub eps_generation {
	my ($src,$file,$width_param) = @_;
	my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";
	my $temp_file = Apache::File->new('>>'.$filename);
	print $temp_file "$src\n";
	my $newsrc = $src;
	$newsrc =~ s/(\.gif\|\.jpg\|\.jpeg)$/\.eps/i;
	$newsrc=~s/\/home\/httpd\/html\/res//;
	$newsrc=~s/\/home\/([^\/]*)\/public_html\//\/$1\//;
	$newsrc=~s/\/\.\//\//;
	$newsrc=~s/\/([^\/]+)\.(ps\|eps)/\//;
	if ($newsrc=~/\/home\/httpd\/lonUsers\//) {
	$newsrc=~s/\/home\/httpd\/lonUsers//;
	$newsrc=~s/\/([^\/]+)\/(\w)\/(\w)\/(\w)\//\/$1\//;
	}
	if ($newsrc=~/\/userfiles\//) {
	return ' \graphicspath{{'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
	} else {
	return ' \graphicspath{{/home/httpd/prtspool'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
	}
	}

	sub file_path {
	my $src=shift;
	my ($file,$path);
	if ($src =~ m!(.)/([^/])$!) {
	$file = $2;
	$path = $1.'/';
	}
	return $file,$path;
	}

sub recalc {	sub recalc {
my $argument = shift;	my $argument = shift;
if (not $argument=~/(mm\|cm\|in\|pc\|pt)/) {return $argument.' mm';}	if (not $argument=~/(mm\|cm\|in\|pc\|pt)/) {return $argument.' mm';}
Line 3184 sub recalc {	Line 3742 sub recalc {
return $value.' mm';	return $value.' mm';
}	}

	sub LATEX_length {
	my $garbage=shift;
	$garbage=~s/^\s+$//;
	$garbage=~s/^\s+(\S.*)/$1/;#space before
	$garbage=~s/(.*\S)\s+$/$1/;#space after
	$garbage=~s/(\s)+/$1/;#only one space
	$garbage=~s/(\\begin{([^\}]+)}\|\\end{([^\}]+)})//g;#remove LaTeX \begin{...} and \end{...}
	$garbage=~s/(\$\_\{\|\$\_\|\$\^{\|\$\^\|\}\$)//g;#remove $_{,$_,$^{,$^,}$
	$garbage=~s/([^\\])\$/$1/g;#$
	$garbage=~s/(\\ensuremath\{\_\{\|\\ensuremath\{\_\|\\ensuremath\{\^{\|\\ensuremath\{\^\|\})//g;#remove \ensuremath{...}
	$garbage=~s/(\\alpha\|\\beta\|\\gamma\|\\delta\|\\epsilon\|\\verepsilon\|\\zeta\|\\eta\|\\theta\|\\vartheta\|\\iota\|\\kappa\|\\lambda\|\\mu\|\\nu\|\\xi\|\\pi\|\\varpi\|\\rho\|\\varrho\|\\sigma\|\\varsigma\|\\tau\|\\upsilon\|\\phi\|\\varphi\|\\chi\|\\psi\|\\omega\|\\Gamma\|\\Delta\|\\Theta\|\\Lambda\|\\Xi\|\\Pi\|\\Sigma\|\\Upsilon\|\\Phi\|\\Psi\|\\Omega)/1/g;
	$garbage=~s/(\\pm\|\\mp\|\\times\|\\div\|\\cdot\|\\ast\|\\star\|\\dagger\|\\ddagger\|\\amalg\|\\cap\|\\cup\|\\uplus\|\\sqcap\|\\sqcup\|\\vee\|\\wedge\|\\oplus\|\\ominus\|\\otimes\|\\circ\|\\bullet\|\\diamond\|\\lhd\|\\rhd\|\\unlhd\|\\unrhd\|\\oslash\|\\odot\|\\bigcirc\|\\Box\|\\Diamond\|\\bigtriangleup\|\\bigtriangledown\|\\triangleleft\|\\triangleright\|\\setminus\|\\wr)/1/g;
	$garbage=~s/(\\le\|\\ll\|\\leq\|\\ge\|\\geq\|\\gg\|\\neq\|\\doreq\|\\sim\|\\simeq\|\\subset\|\\subseteq\|\\sqsubset\|\\sqsubseteq\|\\in\|\\vdash\|\\models\|\\supset\|\\supseteq\|\\sqsupset\|\\sqsupseteq\|\\ni\|\\dash\|\\perp\|\\approx\|\\cong\|\\equiv\|\\propto\|\\prec\|\\preceq\|\\parallel\|\\asymp\|\\smile\|\\frown\|\\bowtie\|\\succ\|\\succeq\|\\mid)/1/g;
	$garbage=~s/(\\not<\|\\\\not\\le\|\\not\\prec\|\\not\\preceq\|\\not\\subset\|\\not\\subseteq\|\\not\\sqsubseteq\|\\not\\in\|\\not>\|\\not\\ge\|\\not\\succ\|\\notsucceq\|\\not\\supset\|\\notsupseteq\|\\not\\sqsupseteq\|\\notin\|\\not=\|\\not\\equiv\|\\not\\sim\|\\not\\simeq\|\\not\\approx\|\\not\\cong\|\\not\\asymp)/1/g;
	$garbage=~s/(\\leftarrow\|\\gets\|\\Leftarrow\|\\rightarrow\|\\to\|\\Rightarrow\|\\leftrightarrow\|\\Leftrightarrow\|\\mapsto\|\\hookleftarrow\|\\leftharpoonup\|\\leftkarpoondown\|\\rightleftharpoons\|\\longleftarrow\|\\Longleftarrow\|\\longrightarrow\|\\Longrightarrow\|\\longleftrightarrow\|\\Longleftrightarrow\|\\longmapsto\|\\hookrightarrow\|\\rightharpoonup\|\\rightharpoondown\|\\uparrow\|\\Uparrow\|\\downarrow\|\\Downarrow\|\\updownarrow\|\\Updownarrow\|\\nearrow\|\\searrow\|\\swarrow\|\\nwarrow)/11/g;
	$garbage=~s/(\\aleph\|\\hbar\|\\imath\|\\jmath\|\\ell\|\\wp\|\\Re\|\\Im\|\\mho\|\\prime\|\\emptyset\|\\nabla\|\\surd\|\\partial\|\\top\|\\bot\|\\vdash\|\\dashv\|\\forall\|\\exists\|\\neg\|\\flat\|\\natural\|\\sharp\|\\\\|\|\\angle\|\\backslash\|\\Box\|\\Diamond\|\\triangle\|\\clubsuit\|\\diamondsuit\|\\heartsuit\|\\spadesuit\|\\Join\|\\infty)/11/g;
	$garbage=~s/(\\hat{([^}]+)}\|\\check{([^}]+)}\|\\dot{([^}]+)}\|\\breve{([^}]+)}\|\\acute{([^}]+)}\|\\ddot{([^}]+)}\|\\grave{([^}]+)}\|\\tilde{([^}]+)}\|\\mathring{([^}]+)}\|\\bar{([^}]+)}\|\\vec{([^}]+)})/$1/g;
	#remove some other LaTeX command
	$garbage=~s\|\\(\w+)\\\|\\\|g;
	$garbage=~s\|\\(\w+)(\s*)\|$2\|g;
	$garbage=~s\|\+\|11\|g;
	my $value=length($garbage);
	return $value;
	}




1;	1;
__END__	__END__

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.135
changed lines
	Added in v.1.243