Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/londefdef.pm between versions 1.32 and 1.86

version 1.32, 2001/08/06 20:41:22	version 1.86, 2002/08/30 17:57:32
Line 1	Line 1
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# Tags Default Definition Module	# Tags Default Definition Module
#	#
	# $Id$
	#
	#
	# Copyright Michigan State University Board of Trustees
	#
	# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
	#
	# LON-CAPA is free software; you can redistribute it and/or modify
	# it under the terms of the GNU General Public License as published by
	# the Free Software Foundation; either version 2 of the License, or
	# (at your option) any later version.
	#
	# LON-CAPA is distributed in the hope that it will be useful,
	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	# GNU General Public License for more details.
	#
	# You should have received a copy of the GNU General Public License
	# along with LON-CAPA; if not, write to the Free Software
	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	#
	# /home/httpd/html/adm/gpl.txt
	#
	# http://www.lon-capa.org/
	#
	# Copyright for TtHfunc and TtMfunc by Ian Hutchinson.
	# TtHfunc and TtMfunc (the "Code") may be compiled and linked into
	# binary executable programs or libraries distributed by the
	# Michigan State University (the "Licensee"), but any binaries so
	# distributed are hereby licensed only for use in the context
	# of a program or computational system for which the Licensee is the
	# primary author or distributor, and which performs substantial
	# additional tasks beyond the translation of (La)TeX into HTML.
	# The C source of the Code may not be distributed by the Licensee
	# to any other parties under any circumstances.
	#
	#
# last modified 06/26/00 by Alexander Sakharuk	# last modified 06/26/00 by Alexander Sakharuk
# 11/6,11/30,02/01/01,5/4 Gerd Kortemeyer	# 11/6,11/30,02/01/01,5/4 Gerd Kortemeyer
	# 01/18 Alex Sakharuk

package Apache::londefdef;	package Apache::londefdef;

	use Apache::lonnet;
use strict;	use strict;
use Apache::lonxml;	use Apache::lonxml;
	use Apache::File();
	use Image::Magick;

sub BEGIN {	BEGIN {

&Apache::lonxml::register('Apache::londefdef',('m','html','head','map','select','option','input','textarea','form','meta','title','body','center','b','strong','table','dt','h1','h2','h3','h4','h5','h6','cite','i','address','dd','dl','dir','ol','ul','menu','dfn','kbd','tt','code','em','q','p','br','big','small','basefont','font','s','sub','strike','sup','hr','a','li','u','output','param','applet','img','embed','tr','td','allow','frameset'));	&Apache::lonxml::register('Apache::londefdef',('m','html','head','map','select','option','input','textarea','form','meta','title','body','center','b','strong','dt','h1','h2','h3','h4','h5','h6','cite','i','address','dd','dl','dir','ol','ul','menu','dfn','kbd','tt','code','em','q','p','br','big','small','basefont','font','s','sub','strike','sup','hr','a','li','u','output','param','applet','img','embed','allow','frameset','pre','insert','div','externallink','table','tr','th','td','blankspace','bubble','bubbles','bubbleline'));

}	}

#===================================================================== TAG SUBROUTINES	#======================= TAG SUBROUTINES =====================
#-- <output>	#-- <output>
sub start_output {	sub start_output {
my ($target) = @_;	my ($target) = @_;
Line 28 sub end_output {	Line 69 sub end_output {
return '';	return '';
}	}
#-- <m> tag	#-- <m> tag
sub start_m {	sub start_m {
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 $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]);	$Apache::lonxml::prevent_entity_encode++;
$inside ='\\documentstyle{article}'.$inside;	my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
# &Apache::lonxml::debug($inside);	$inside ='\\documentstyle{article}'.$inside;
$currentstring = &Apache::lontexconvert::converted(\$inside);	&Apache::lonxml::debug("M is starting with:$inside:");
# &Apache::lonxml::debug($currentstring);	my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);
	if ($eval eq 'on') {
} elsif ($target eq 'tex') {	$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]);
$currentstring = "";	#&Apache::lonxml::debug("M is evaulated to:$inside:");
}	}
return $currentstring;	$currentstring = &Apache::lontexconvert::converted(\$inside);
}	if ($Apache::lontexconvert::errorstring) {
sub end_m {	&Apache::lonxml::warning("tth error: ".
my ($target,$token) = @_;	$Apache::lontexconvert::errorstring);
my $currentstring = '';	$Apache::lontexconvert::errorstring='';
if ($target eq 'web') {	}
} elsif ($target eq 'tex') {	#&Apache::lonxml::debug("M is ends with:$currentstring:");
$currentstring = "";	} elsif ($target eq 'tex') {
} elsif ($target eq 'meta') {	$currentstring = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
}	if ($currentstring=~/^(\s\\\\\s)*$/) {$currentstring = ' \vskip 0 mm ';}
return $currentstring;	} else {
}	my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
#-------------------------------------------------------------------------- <html> tag	}
	return $currentstring;
	}
	sub end_m {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$Apache::lonxml::prevent_entity_encode--;
	} elsif ($target eq 'tex') {
	$currentstring = "";
	} elsif ($target eq 'meta') {
	}
	return $currentstring;
	}
	#-- <html> tag
sub start_html {	sub start_html {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
	if ($ENV{'browser.mathml'}) {
	&tth::ttminit();
	} else {
	&tth::tthinit();
	}
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = &Apache::lonxml::xmlbegin().	$currentstring = &Apache::lonxml::xmlbegin().
&Apache::lonxml::fontsettings();	&Apache::lonxml::fontsettings();
}	} elsif ($target eq 'tex') {
	@Apache::londefdef::table = ();
	$currentstring .= '\documentclass[letterpaper]{article}
	\newcommand{\keephidden}[1]{}
	\renewcommand{\deg}{$^{\circ}$}
	\usepackage[dvips]{graphicx}
	\usepackage{epsfig}\usepackage{calc}
	\newenvironment{choicelist}{\begin{enumerate}}{\end{enumerate}}';
	}
return $currentstring;	return $currentstring;
}	}
sub end_html {	sub end_html {
Line 68 sub end_output {	Line 136 sub end_output {
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = &Apache::lonxml::xmlend();	$currentstring = &Apache::lonxml::xmlend();
}	}
return $currentstring;	return $currentstring;
}	}
#-------------------------------------------------------------------------- <head> tag	#-- <head> tag
sub start_head {	sub start_head {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 84 sub end_output {	Line 152 sub end_output {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = &Apache::lonxml::registerurl().	$currentstring = &Apache::lonxml::registerurl(undef,$target).
$token->[2];	$token->[2];
}	}
return $currentstring;	return $currentstring;
}	}
#--------------------------------------------------------------------------- <map> tag	#-- <map> tag
sub start_map {	sub start_map {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 106 sub end_output {	Line 174 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
	#-- <select> tag
#------------------------------------------------------------------------ <select> tag
sub start_select {	sub start_select {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 124 sub end_output {	Line 191 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#------------------------------------------------------------------------ <option> tag	#-- <option> tag
sub start_option {	sub start_option {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 141 sub end_output {	Line 208 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#------------------------------------------------------------------------- <input> tag	#-- <input> tag
sub start_input {	sub start_input {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 158 sub end_output {	Line 225 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------- <textarea> tag	#-- <textarea> tag
sub start_textarea {	sub start_textarea {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 175 sub end_output {	Line 242 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#-------------------------------------------------------------------------- <form> tag	#-- <form> tag
sub start_form {	sub start_form {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 192 sub end_output {	Line 259 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#------------------------------------------------------------------------- <title> tag	#-- <title> tag
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') {
	$currentstring .= '\keephidden{'
}	}
if ($target eq 'meta') {	if ($target eq 'meta') {
$currentstring='<title>';	$currentstring='<title>';
Line 210 sub end_output {	Line 279 sub end_output {
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
}	} elsif ($target eq 'tex') {
	$currentstring .= '}';
	}
if ($target eq 'meta') {	if ($target eq 'meta') {
&end_output();	&end_output();
$currentstring='</title>';	$currentstring='</title>';
}	}
return $currentstring;	return $currentstring;
}	}
#-------------------------------------------------------------------------- <meta> tag	#-- <meta> tag
sub start_meta {	sub start_meta {
my ($target,$token,$tagstack,$parstack,$parser) = @_;	my ($target,$token,$tagstack,$parstack,$parser) = @_;
my $currentstring = '';	my $currentstring = '';
Line 256 sub end_output {	Line 327 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#-------------------------------------------------------------------------- <body> tag	#-- <body> tag
sub start_body {	sub start_body {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
	# my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
if (!$Apache::lonxml::registered) {	if (!$Apache::lonxml::registered) {
$currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>';	$currentstring.='<head>'.
	&Apache::lonxml::registerurl(undef,$target).'</head>';
}	}
my $onLoad='';	my $onLoad='';
foreach my $key (keys(%{$token->[2]})) {	foreach my $key (keys(%{$token->[2]})) {
&Apache::lonxml::debug("testing $key");
if ($key =~ /^onload$/i) {	if ($key =~ /^onload$/i) {
&Apache::lonxml::debug("I like $key");
$onLoad.=$token->[2]->{$key}.';';	$onLoad.=$token->[2]->{$key}.';';
delete($token->[2]->{$key});	delete($token->[2]->{$key});
}	}
}	}
$token->[2]->{'onLoad'}=$onLoad.&Apache::lonxml::loadevents();	$token->[2]->{'onLoad'}=&Apache::lonxml::loadevents().
	';'.$onLoad;
my $onUnload='';	my $onUnload='';
foreach my $key (keys(%{$token->[2]})) {	foreach my $key (keys(%{$token->[2]})) {
if ($key =~ /^onunload$/i) {	if ($key =~ /^onunload$/i) {
Line 281 sub end_output {	Line 353 sub end_output {
delete($token->[2]->{$key});	delete($token->[2]->{$key});
}	}
}	}
$token->[2]->{'onUnload'}=$onUnload.	$token->[2]->{'onUnload'}=&Apache::lonxml::unloadevents().
&Apache::lonxml::unloadevents();	';'.$onUnload;

$currentstring .= '<'.$token->[1];	$currentstring .= '<'.$token->[1];
map {	foreach (keys %{$token->[2]}) {
$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';	$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';
} keys %{$token->[2]};	}
$currentstring.='>';	$currentstring.='>';
	if ($ENV{'request.state'} ne 'published') {
	$currentstring.=(<<EDITBUTTON);
	<form method="post">
	<input type="submit" name="editmode" value="Edit" />
	</form>
	EDITBUTTON
	}
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = " \\begin{document} ";	$currentstring = '\begin{document}';
}	}
return $currentstring;	return $currentstring;
}	}
Line 300 sub end_output {	Line 379 sub end_output {
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 = '\end{document}';
}	}
return $currentstring;	return $currentstring;
}	}
#------------------------------------------------------------------------ <center> tag	#-- <center> tag
sub start_center {	sub start_center {
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{center} ";	$currentstring = '\begin{center}';
} elsif ($target eq 'latexsource') {	} elsif ($target eq 'latexsource') {
$currentstring = " \\begin{center} ";	$currentstring = '\begin{center}';
}	}
return $currentstring;	return $currentstring;
}	}
Line 323 sub end_output {	Line 402 sub end_output {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = " \\end{center}";	$currentstring = '\end{center}';
} elsif ($target eq 'latexsource') {	} elsif ($target eq 'latexsource') {
$currentstring = " \\end{center}";	$currentstring = '\end{center}';
}	}
return $currentstring;	return $currentstring;
}	}
#----------------------------------------------------------------------------- <b> tag	#-- <b> tag
sub start_b {	sub start_b {
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 = " \\textbf{";	$currentstring = '\textbf{';
} elsif ($target eq 'latexsource') {	} elsif ($target eq 'latexsource') {
$currentstring = " \\textbf{";	$currentstring = '\textbf{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 348 sub end_output {	Line 427 sub end_output {
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') {	} elsif ($target eq 'latexsource') {
$currentstring = "}";	$currentstring = '}';
}	}
return $currentstring;	return $currentstring;
}	}
#------------------------------------------------------------------------ <strong> tag	#-- <strong> tag
sub start_strong {	sub start_strong {
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 = " \\textbf{";	$currentstring = '\textbf{';
} elsif ($target eq 'latexsource') {	} elsif ($target eq 'latexsource') {
$currentstring = " \\textbf{";	$currentstring = '\textbf{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 374 sub end_output {	Line 454 sub end_output {

$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = "}";	$currentstring = '}';
} elsif ($target eq 'latexsource') {	} elsif ($target eq 'latexsource') {
$currentstring = "}";	$currentstring = '}';
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------------- <h1> tag	#-- <h1> tag
sub start_h1 {	sub start_h1 {
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 .= "\\chapter{ ";	$currentstring .= '\large{\textbf{';
} elsif ($target eq 'meta') {	} elsif ($target eq 'meta') {
$currentstring='<subject>';	$currentstring='<subject>';
&start_output();	&start_output();
Line 400 sub end_output {	Line 480 sub end_output {
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 'meta') {	} elsif ($target eq 'meta') {
&end_output();	&end_output();
$currentstring='</subject>';	$currentstring='</subject>';
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------------- <h2> tag	#-- <h2> tag
sub start_h2 {	sub start_h2 {
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 .= "\\section{ ";	$currentstring .= '\large{\textbf{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 424 sub end_output {	Line 504 sub end_output {
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;
}	}
#---------------------------------------------------------------------------- <h3> tag	#-- <h3> tag
sub start_h3 {	sub start_h3 {
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 .= "\\subsection{ ";	$currentstring .= '\large{\textbf{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 445 sub end_output {	Line 525 sub end_output {
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;
}	}
#---------------------------------------------------------------------------- <h4> tag	#-- <h4> tag
sub start_h4 {	sub start_h4 {
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 .= "\\subsubsection{ ";	$currentstring .= '\large{\textbf{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 466 sub end_output {	Line 546 sub end_output {
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;
}	}
#---------------------------------------------------------------------------- <h5> tag	#-- <h5> tag
sub start_h5 {	sub start_h5 {
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 .= "\\paragraph{ ";	$currentstring .= '\large{\textbf{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 487 sub end_output {	Line 567 sub end_output {
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;
}	}
#---------------------------------------------------------------------------- <h6> tag	#-- <h6> tag
sub start_h6 {	sub start_h6 {
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 .= "\\subparagraph{ ";	$currentstring .= '\large{\textbf{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 508 sub end_output {	Line 588 sub end_output {
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;
}	}
#-------------------------------------------------------------------------- <cite> tag	#--- <cite> tag
sub start_cite {	sub start_cite {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 537 sub end_output {	Line 617 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#----------------------------------------------------------------------------- <i> tag	#-- <i> tag
sub start_i {	sub start_i {
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') {	} elsif ($target eq 'latexsource') {
$currentstring .= "\\textit{";	$currentstring .= '\textit{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 556 sub end_output {	Line 636 sub end_output {
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') {	} elsif ($target eq 'latexsource') {
$currentstring .= "}";	$currentstring .= '}';
}	}
return $currentstring;	return $currentstring;
}	}
#----------------------------------------------------------------------- <address> tag	#-- <address> tag
sub start_address {	sub start_address {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 587 sub end_output {	Line 667 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#--------------------------------------------------------------------------- <dfn> tag	#-- <dfn> tag
sub start_dfn {	sub start_dfn {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 612 sub end_output {	Line 692 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------------- <tt> tag	#-- <tt> tag
sub start_tt {	sub start_tt {
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') {	} elsif ($target eq 'latexsource') {
$currentstring .= "\\texttt{";	$currentstring .= '\texttt{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 631 sub end_output {	Line 711 sub end_output {
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') {	} elsif ($target eq 'latexsource') {
$currentstring .= "}";	$currentstring .= '}';
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------------- <kbd> tag	#-- <kbd> tag
sub start_kbd {	sub start_kbd {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 662 sub end_output {	Line 742 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#-------------------------------------------------------------------------- <code> tag	#-- <code> tag
sub start_code {	sub start_code {
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 .= "{ \\tt ";	$currentstring .= '\texttt{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 679 sub end_output {	Line 759 sub end_output {
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;
}	}
#---------------------------------------------------------------------------- <em> tag	#-- <em> tag
sub start_em {	sub start_em {
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') {	} elsif ($target eq 'latexsource') {
$currentstring .= "\\emph{";	$currentstring .= '\emph{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 702 sub end_output {	Line 782 sub end_output {
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') {	} elsif ($target eq 'latexsource') {
$currentstring .= "}";	$currentstring .= '}';
}	}
return $currentstring;	return $currentstring;
}	}
#----------------------------------------------------------------------------- <q> tag	#-- <q> tag
sub start_q {	sub start_q {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 733 sub end_output {	Line 813 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#----------------------------------------------------------------------------- <p> tag	#-- <p> tag
sub start_p {	sub start_p {
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 .= "{\\par ";	$currentstring .= '{\par ';
} elsif ($target eq 'latexsource') {	} elsif ($target eq 'latexsource') {
$currentstring .= "{\\par ";	$currentstring .= '{\par ';
}	}
return $currentstring;	return $currentstring;
}	}
Line 752 sub end_output {	Line 832 sub end_output {
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') {	} elsif ($target eq 'latexsource') {
$currentstring .= "}";	$currentstring .= '}';
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------------- <br> tag	#-- <br> tag
sub start_br {	sub start_br {
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 .= "\\\\";	if ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') {
	$currentstring .= '\vskip 0 mm';
	}
} elsif ($target eq 'latexsource') {	} elsif ($target eq 'latexsource') {
$currentstring .= "\\\\";	$currentstring .= '\\';
}	}
return $currentstring;	return $currentstring;
}	}
Line 779 sub end_output {	Line 861 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#--------------------------------------------------------------------------- <big> tag	#-- <big> tag
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') {	} elsif ($target eq 'latexsource') {
$currentstring .= "{\\large ";	$currentstring .= '{\Large ';
}	}
return $currentstring;	return $currentstring;
}	}
Line 798 sub end_output {	Line 880 sub end_output {
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') {	} elsif ($target eq 'latexsource') {
$currentstring .= " }";	$currentstring .= '}';
}	}
return $currentstring;	return $currentstring;
}	}
#------------------------------------------------------------------------- <small> tag	#-- <small> tag
sub start_small {	sub start_small {
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 .= "{\\footnotesize ";	$currentstring .= '{\footnotesize ';
} elsif ($target eq 'latexsource') {	} elsif ($target eq 'latexsource') {
$currentstring .= "{\\footnotesize ";	$currentstring .= '{\footnotesize ';
}	}
return $currentstring;	return $currentstring;
}	}
Line 823 sub end_output {	Line 905 sub end_output {
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') {	} elsif ($target eq 'latexsource') {
$currentstring .= " }";	$currentstring .= '}';
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------- <basefont> tag	#-- <basefont> tag
sub start_basefont {	sub start_basefont {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 846 sub end_output {	Line 928 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#-------------------------------------------------------------------------- <font> tag	#-- <font> tag
sub start_font {	sub start_font {
my ($target,$token) = @_;	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->[4];	$currentstring = $token->[4];
}	}
return $currentstring;	return $currentstring;
}	}
sub end_font {	sub end_font {
my ($target,$token) = @_;	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];
}	}
return $currentstring;	return $currentstring;
}	}
#------------------------------------------------------------------------ <strike> tag	#-- <strike> tag
sub start_strike {	sub start_strike {
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 .= "{\\underline ";	$currentstring .= '\underline{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 880 sub end_output {	Line 966 sub end_output {
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;
}	}
#----------------------------------------------------------------------------- <s> tag	#-- <s> tag
sub start_s {	sub start_s {
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 .= "{\\underline ";	$currentstring .= '\underline{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 901 sub end_output {	Line 987 sub end_output {
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;
}	}
#--------------------------------------------------------------------------- <sub> tag	#-- <sub> tag
sub start_sub {	sub start_sub {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 926 sub end_output {	Line 1012 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#--------------------------------------------------------------------------- <sup> tag	#-- <sup> tag
sub start_sup {	sub start_sup {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 947 sub end_output {	Line 1033 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------------- <hr> tag	#-- <hr> tag
sub start_hr {	sub start_hr {
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 .= "\\hline ";	$currentstring .= '\vskip 0 mm \noindent\makebox[\textwidth/2 ][b]{\hrulefill}\vskip 0 mm ';
}	}
return $currentstring;	return $currentstring;
}	}
Line 967 sub end_output {	Line 1053 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#----------------------------------------------------------------------------- <a> tag	#-- <div> tag
	sub start_div {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring .= $token->[4];
	}
	return $currentstring;
	}
	sub end_div {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring .= $token->[2];
	}
	return $currentstring;
	}
	#-- <a> tag
sub start_a {	sub start_a {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 994 sub end_output {	Line 1097 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------------- <li> tag	#-- <li> tag
sub start_li {	sub start_li {
my ($target,$token,$tagstack,$stackref) = @_;	my ($target,$token,$tagstack,$stackref) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1024 sub end_output {	Line 1127 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#----------------------------------------------------------------------------- <u> tag	#-- <u> tag
sub start_u {	sub start_u {
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 .= "{\\underline ";	$currentstring .= '\underline{';
}	}
return $currentstring;	return $currentstring;
}	}
Line 1041 sub end_output {	Line 1144 sub end_output {
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;
}	}
#---------------------------------------------------------------------------- <ul> tag	#-- <ul> tag
sub start_ul {	sub start_ul {
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{itemize} ";	$currentstring = '\begin{itemize}';
}	}
return $currentstring;	return $currentstring;
}	}
Line 1062 sub end_output {	Line 1165 sub end_output {
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}";	$currentstring = '\end{itemize}';
}	}
return $currentstring;	return $currentstring;
}	}
#-------------------------------------------------------------------------- <menu> tag	#-- <menu> tag
sub start_menu {	sub start_menu {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1087 sub end_output {	Line 1190 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#--------------------------------------------------------------------------- <dir> tag	#-- <dir> tag
sub start_dir {	sub start_dir {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1108 sub end_output {	Line 1211 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------------- <ol> tag	#-- <ol> tag
sub start_ol {	sub start_ol {
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{enumerate} ";	$currentstring = '\begin{enumerate}';
}	}
return $currentstring;	return $currentstring;
}	}
Line 1125 sub end_output {	Line 1228 sub end_output {
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}";	$currentstring = '\end{enumerate}';
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------------- <dl> tag	#-- <dl> tag
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}';
}	}
return $currentstring;	return $currentstring;
}	}
Line 1146 sub end_output {	Line 1249 sub end_output {
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}";	$currentstring = '\end{description}';
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------------- <dt> tag	#-- <dt> tag
sub start_dt {	sub start_dt {
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 = "\\item[ ";	$currentstring = '\item[';
}	}
return $currentstring;	return $currentstring;
}	}
Line 1167 sub end_output {	Line 1270 sub end_output {
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;
}	}
#---------------------------------------------------------------------------- <dd> tag	#-- <dd> tag
sub start_dd {	sub start_dd {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1188 sub end_output {	Line 1291 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#------------------------------------------------------------------------- <table> tag	#-- <table> tag
sub start_table {	sub start_table {
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 = "";	my $aa = {};
	push @Apache::londefdef::table, $aa;
	$Apache::londefdef::table[-1]{'row_number'} = -1;
	$Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';
	my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval);
	unless (defined $border) { $border = 0; }
	if ($border) {
	$Apache::londefdef::table[-1]{'hinc'} = '\hline ';
	$Apache::londefdef::table[-1]{'vinc'} = '&';
	$Apache::londefdef::table[-1]{'vvinc'} = '\|';
	} else {
	$Apache::londefdef::table[-1]{'hinc'} = '';
	$Apache::londefdef::table[-1]{'vinc'} = '&';
	$Apache::londefdef::table[-1]{'vvinc'} = '';
	}
}	}
return $currentstring;	return $currentstring;
}	}
sub end_table {	sub end_table {
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 $inmemory = '';
}	my $output = '';
	#construct header of the table
	my $header_of_table = '{'.$Apache::londefdef::table[-1]{'vvinc'};
	my $in;
	for ($in=0;$in<=$Apache::londefdef::table[-1]{'counter_columns'};$in++) {
	$header_of_table .= $Apache::londefdef::table[-1]{'columns'}[$in].$Apache::londefdef::table[-1]{'vvinc'};
	}
	$header_of_table .= '}';
	#fill the table
	for ($in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
	$output .= $Apache::londefdef::table[-1]{'rowdata'}[$in];
	chop $output;
	$output .= ' \\\\ ';
	}
	#define the length of the table cells
	my @lengthforoutput = split(/,/,$Apache::londefdef::table[-1]{'lengthrow'}[0]);
	my $how_many_columns = $#lengthforoutput + 1;
	my $filled_columns = 0;
	foreach my $tempo_length (@{ $Apache::londefdef::table[-1]{'lengthrow'} }) {
	my @length = split(/,/,$tempo_length);
	my $nfilled_columns = 0;
	for (my $ico=0;$ico<$how_many_columns;$ico++) {
	if (not $lengthforoutput[$ico]=~m/\s0\s/) {$nfilled_columns++;}
	}
	if ($nfilled_columns > $filled_columns) {$filled_columns=$nfilled_columns;}
	}
	my $temp_file;
	my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.tbl";
	if (-e $filename) {
	$temp_file = Apache::File->new($filename);
	my @tbl_file_content = <$temp_file>;
	my ($one,$two) = split(/,/,$tbl_file_content[0]);
	$how_many_columns+=$one-1;
	$filled_columns+=$two;
	} else {
	$temp_file = Apache::File->new('>>'.$filename);
	}
	print $temp_file "$how_many_columns,$filled_columns\n";
	foreach my $tempo_length (@{ $Apache::londefdef::table[-1]{'lengthrow'} }) {
	my @length = split(/,/,$tempo_length);
	for (my $ico=0;$ico<=$#lengthforoutput;$ico++) {
	$lengthforoutput[$ico] =~ m/(\d\.?\d)\s*(\w+)/;
	my $old_value = $1;
	my $old_unit = $2;
	if ($old_unit eq 'cm') {
	$old_value = $old_value * 10;
	} elsif ($old_unit eq 'in') {
	$old_value = $old_value * 25.4;
	} elsif ($old_unit eq 'pt') {
	$old_value = $old_value * 25.4/72.27;
	} elsif ($old_unit eq 'pc') {
	$old_value = $old_value * 25.4/6.022;
	}
	$old_unit = 'mm';
	$length[$ico] =~ m/(\d\.?\d)\s*(\w+)/;
	my $new_value = $1;
	my $new_unit = $2;
	if ($new_unit eq 'cm') {
	$new_value = $new_value * 10;
	} elsif ($old_unit eq 'in') {
	$new_value = $new_value * 25.4;
	} elsif ($old_unit eq 'pt') {
	$new_value = $new_value * 25.4/72.27;
	} elsif ($old_unit eq 'pc') {
	$new_value = $new_value * 25.4/6.022;
	}
	$new_unit = 'mm';
	if ($old_value < $new_value) {
	$lengthforoutput[$ico] = $new_value.' mm';
	} else {
	$lengthforoutput[$ico] = $old_value.' mm';
	}
	}
	}
	my $parboxlength = '(\textwidth';
	for (my $io=0; $io<=$#lengthforoutput;$io++) {
	$parboxlength .= ' - '.$lengthforoutput[$io].' ';
	}
	$parboxlength .= ')/($GLOBALnumberOFcolumns+1) - 3 mm';
	$output =~ s/\\parbox{}{}/\\parbox{1 mm}{}/g;
	$output =~ s/\\parbox{}{(\\textbf{\w?\.?})}/\\parbox{5 mm}{$1}/g; #for stupid tables with empty columns
	$output =~ s/\\parbox{}/\\parbox{$parboxlength}/g;
	my ($howmanyatall,$howmanyfilled) = (0,0);

	my @tagar = @$tagstack;
	my $signature = 1;
	for (my $ico=0;$ico<$#tagar;$ico++) {
	if ($tagar[$ico] eq 'table') { $signature = 0; }
	}
	if ($signature) {
	my $totalnumber = $how_many_columns-$filled_columns-1;
	$output =~ s/\$GLOBALnumberOFcolumns/$totalnumber/g;
	}
	$Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';
	if ($#Apache::londefdef::table > 0) {
	$inmemory = $Apache::londefdef::table[-1]{'output'};
	pop @Apache::londefdef::table;
	$Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}] .= $inmemory;
	} else {
	$currentstring = $Apache::londefdef::table[-1]{'output'};
	$currentstring =~ s/\\\\\s+\\\\/\\\\/g;
	pop @Apache::londefdef::table;
	if (-e $filename) {
	unlink $filename;
	}
	}
	}
return $currentstring;	return $currentstring;
}	}
#------------------------------------------------------------------------- <tr> tag	#-- <tr> tag
sub start_tr {	sub start_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->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '';	$Apache::londefdef::table[-1]{'row_number'}++;
	my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
	if ($alignchar ne '') {
	push @ {$Apache::londefdef::table[-1]{'rows'} }, $alignchar;
	} else {
	push @ {$Apache::londefdef::table[-1]{'rows'} }, 'l';
	}
	push ( @{ $Apache::londefdef::table[-1]{'rowdata'} }, $Apache::londefdef::table[-1]{'hinc'});
	$Apache::londefdef::table[-1]{'counter_columns'} = -1;
	$Apache::londefdef::table[-1]{'length'} = '';
}	}
return $currentstring;	return $currentstring;
}	}
sub end_tr {	sub end_tr {
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 .= ' START ROW '. $Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}].' END ROW ';
}	push @{ $Apache::londefdef::table[-1]{'lengthrow'} },$Apache::londefdef::table[-1]{'length'};

	}
return $currentstring;	return $currentstring;
}	}
#------------------------------------------------------------------------- <td> tag	#-- <td> tag
sub start_td {	sub start_td {
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 = '';	my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
	if ($what_to_push eq '') {
	$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 end_td {	sub end_td {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
	my $tempolen = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = "";	my $current_row = $Apache::londefdef::table[-1]{'row_number'};
}	my $data=&Apache::lonxml::endredirection();
	if ($data=~m/width\s=\s(\d+\.\d\s*(mm\|cm\|in\|pc\|pt))/) {
	$Apache::londefdef::table[-1]{'length'} .= $1.',';
	$tempolen = $1;
	} else {
	if (length($data)<5) {
	$Apache::londefdef::table[-1]{'length'} .= '7 mm,';
	$tempolen = '5 mm';
	} else {
	$Apache::londefdef::table[-1]{'length'} .= '0 mm,';
	$tempolen = '';
	}
	}
	@{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{'.$tempolen.'}{'.$data.'} '.$Apache::londefdef::table[-1]{'vinc'};
	}
return $currentstring;	return $currentstring;
}	}
# -------------------------------------------------------------------------- <img> tag	#-- <th> tag
	sub start_th {
sub start_img {	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my ($target,$token) = @_;
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
$token->[2]->{'src'};
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{figure} ";	my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
	if ($what_to_push eq '') {
	$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 end_th {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring = $token->[2];
	} elsif ($target eq 'tex') {
	my $current_row = $Apache::londefdef::table[-1]{'row_number'};
	my $data=&Apache::lonxml::endredirection();
	if ($data=~m/width\s=\s(\d+\.\d\s*(mm\|cm))/) {
	$Apache::londefdef::table[-1]{'length'} .= $1.',';
	} else {
	$Apache::londefdef::table[-1]{'length'} .= '0 mm,';
	}
	@{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{'.$1.'}{\textbf{'.$data.'}} '.$Apache::londefdef::table[-1]{'vinc'};
	}
	return $currentstring;
	}
	#-- <img> tag
	sub start_img {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
	$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
	$token->[2]->{'src'};
	my $currentstring = '';
	my $width_param = '';
	my $height_param = '';
	my $scaling = .3;

	if ($target eq 'web') {
	$currentstring = $token->[4];
	} elsif ($target eq 'tex') {
	my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
	$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
	#if original gif/jpg file exist do following:
	if (-e $src) {
	#defines the default size of image
	my $image = Image::Magick->new;
	my $current_figure = $image->Read($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);
	if ($TeXwidth ne '') {
	$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;
	$newsrc =~ s/(\.gif\|\.jpg)$/\.eps/i;
	$file=~s/(\.gif\|\.jpg)$/\.eps/i;
	#where can we find the picture?
	if (-e $newsrc) {
	#eps counterpart for image exist
	if ($path) {
	$currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
	}
	} else {
	#there is no eps counterpart for image - check for ps one
	$newsrc =~ s/\.eps$/\.ps/;
	if (-e $newsrc) {
	#ps counterpart for image exist
	$file =~ s/\.eps$/\.ps/;
	if ($path) {
	$currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
	}
	} else {
	#there aren't eps or ps - so create eps
	my $temp_file;
	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 .= '\graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
	}
	}
	} else {
	#original image file doesn't exist so check the alt attribute
	my $alt = &Apache::lonxml::get_param('alt',$parstack,$safeeval);
	if ($alt) {
	$currentstring .= ' '.$alt.' ';
	} else {
	#there are no image and alt attribute
	$currentstring .= ' THE ORIGINAL PROBLEM CONTAINS EMPTY IMG TAG WITHOUT IMAGE AND ALT ATTRIBUTE ';
	}
	}
	}
	return $currentstring;
}	}
sub end_img {	sub end_img {
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 = " \\end{figure}";	$currentstring = '';
}	}
return $currentstring;	return $currentstring;
}	}
# ----------------------------------------------------------------------- <applet> tag	#-- <applet> tag

sub start_applet {	sub start_applet {
my ($target,$token) = @_;	my ($target,$token) = @_;
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=	$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
$token->[2]->{'code'};	$token->[2]->{'code'};
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=	$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
$token->[2]->{'archive'};	$token->[2]->{'archive'};
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{figure} ";	$currentstring = " \\begin{figure} ";
}
return $currentstring;
}
sub end_applet {
my ($target,$token) = @_;
my $currentstring = '';
if ($target eq 'web') {
$currentstring = $token->[2];
} elsif ($target eq 'tex') {
$currentstring = " \\end{figure}";
}	}
return $currentstring;	return $currentstring;
}	}
	sub end_applet {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring = $token->[2];
	} elsif ($target eq 'tex') {
	$currentstring = " \\end{figure}";
	}
	return $currentstring;
	}

# ------------------------------------------------------------------------ <embed> tag	#-- <embed> tag

sub start_embed {	sub start_embed {
my ($target,$token) = @_;	my ($target,$token) = @_;
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=	$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
$token->[2]->{'src'};	$token->[2]->{'src'};
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{figure} ";	$currentstring = " \\begin{figure} ";
}	}
return $currentstring;	return $currentstring;
}	}
sub end_embed {	sub end_embed {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 1327 sub end_output {	Line 1684 sub end_output {
return $currentstring;	return $currentstring;
}	}

# ------------------------------------------------------------------------ <param> tag	#-- <param> tag

sub start_param {	sub start_param {
my ($target,$token) = @_;	my ($target,$token) = @_;
Line 1356 sub end_output {	Line 1713 sub end_output {
return $currentstring;	return $currentstring;
}	}

# ------------------------------------------------------------------------ <allow> tag	#-- <allow> tag

sub start_allow {	sub start_allow {
my ($target,$token) = @_;	my ($target,$token) = @_;
Line 1369 sub end_output {	Line 1726 sub end_output {
sub end_allow {	sub end_allow {
return '';	return '';
}	}
	#-- Frames
# ------------------------------------------------------------------------- Frames
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) {
$currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>';	$currentstring.='<head>'.
	&Apache::lonxml::registerurl(undef,$target).'</head>';
}	}
$currentstring .= $token->[4];	$currentstring .= $token->[4];
}	}
Line 1390 sub end_output {	Line 1747 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
	#-- <pre>
	sub start_pre {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring .= $token->[4];
	} elsif ($target eq 'tex') {
	$currentstring .= '\begin{verbatim}';
	}
	return $currentstring;
	}
	sub end_pre {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring .= $token->[2];
	} elsif ($target eq 'tex') {
	$currentstring .= '\end{verbatim}';
	}
	return $currentstring;
	}
	#-- <insert>
	sub start_insert {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval);
	$currentstring .= '<b>'.$display.'</b>';;
	}
	return $currentstring;
	}
	sub end_insert {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring .= '';
	}
	return $currentstring;
	}
	#-- <externallink>
	sub start_externallink {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval);
	$currentstring .= '<b>'.$display.'</b>';;
	}
	return $currentstring;
	}
	sub end_externallink {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring .= '';
	}
	return $currentstring;
	}
	#-- <blankspace heigth="">
	sub start_blankspace {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
	my $currentstring = '';
	if ($target eq 'tex') {
	my $howmuch = &Apache::lonxml::get_param('heigth',$parstack,$safeeval);
	$currentstring .= '\vskip '.$howmuch.' ';
	}
	return $currentstring;
	}
	sub end_blankspace {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'tex') {
	$currentstring .= '';
	}
	return $currentstring;
	}

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.32
changed lines
	Added in v.1.86