Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/londefdef.pm between versions 1.28 and 1.56

version 1.28, 2001/05/04 16:10:17	version 1.56, 2002/05/03 22:32:15
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;

sub 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'));	BEGIN {

	&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','externallink','table','tr','td'));

}	}

#===================================================================== 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,$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]);	my $inside = &Apache::lonxml::get_all_text("/m",$$parser[-1]);
$inside ='\\documentstyle{article}'.$inside;	$inside ='\\documentstyle{article}'.$inside;
# &Apache::lonxml::debug($inside);	&Apache::lonxml::debug("M is starting with:$inside:");
$currentstring = &Apache::lontexconvert::converted(\$inside);	my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);
# &Apache::lonxml::debug($currentstring);	if ($eval eq 'on') {
	$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]);
} elsif ($target eq 'tex') {	#&Apache::lonxml::debug("M is evaulated to:$inside:");
$currentstring = "";	}
}	$currentstring = &Apache::lontexconvert::converted(\$inside);
return $currentstring;	if ($Apache::lontexconvert::errorstring) {
}	&Apache::lonxml::warning("tth error: ".
sub end_m {	$Apache::lontexconvert::errorstring);
my ($target,$token) = @_;	$Apache::lontexconvert::errorstring='';
my $currentstring = '';	}
if ($target eq 'web') {	#&Apache::lonxml::debug("M is ends with:$currentstring:");
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = "";	$currentstring = "";
} elsif ($target eq 'meta') {	}
}	return $currentstring;
return $currentstring;	}
}	sub end_m {
#-------------------------------------------------------------------------- <html> tag	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	} 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();
	} elsif ($target eq 'tex') {
	@Apache::londefdef::table = ();
	$currentstring .= '\documentclass[letterpaper]{article}
	\newcommand{\keephidden}[1]{}
	\usepackage[dvips]{graphicx}
	\usepackage{epsfig}';
	}
return $currentstring;	return $currentstring;
}	}
sub end_html {	sub end_html {
Line 67 sub end_output {	Line 129 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 83 sub end_output {	Line 145 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().$token->[2];	$currentstring = &Apache::lonxml::registerurl(undef,$target).
	$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 104 sub end_output {	Line 167 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 122 sub end_output {	Line 184 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 139 sub end_output {	Line 201 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 156 sub end_output {	Line 218 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 173 sub end_output {	Line 235 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 190 sub end_output {	Line 252 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 208 sub end_output {	Line 272 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,$parstack,$parser) = @_;	my ($target,$token,$tagstack,$parstack,$parser) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
my $args='';	my $args='';
Line 243 sub end_output {	Line 309 sub end_output {
return $currentstring;	return $currentstring;
}	}
sub end_meta {	sub end_meta {
my ($target,$token,$parstack,$parser) = @_;	my ($target,$token,$tagstack,$parstack,$parser) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
my $args='';	my $args='';
Line 254 sub end_output {	Line 320 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') {
$token->[2]->{'onLoad'}.=&Apache::lonxml::loadevents();	if (!$Apache::lonxml::registered) {
$token->[2]->{'onUnload'}.=&Apache::lonxml::unloadevents();	$currentstring.='<head>'.
	&Apache::lonxml::registerurl(undef,$target).'</head>';
$currentstring = '<'.$token->[1];	}
map {	my $onLoad='';
$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';	foreach my $key (keys(%{$token->[2]})) {
} keys %{$token->[2]};	if ($key =~ /^onload$/i) {
$currentstring.='>';	$onLoad.=$token->[2]->{$key}.';';
	delete($token->[2]->{$key});
	}
	}
	$token->[2]->{'onLoad'}=&Apache::lonxml::loadevents().
	';'.$onLoad;
	my $onUnload='';
	foreach my $key (keys(%{$token->[2]})) {
	if ($key =~ /^onunload$/i) {
	$onUnload.=$token->[2]->{$key}.';';
	delete($token->[2]->{$key});
	}
	}
	$token->[2]->{'onUnload'}=&Apache::lonxml::unloadevents().
	';'.$onUnload;

	$currentstring .= '<'.$token->[1];
	foreach (keys %{$token->[2]}) {
	$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';
	}
	$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 278 sub end_output {	Line 372 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 301 sub end_output {	Line 395 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 326 sub end_output {	Line 420 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 352 sub end_output {	Line 447 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 378 sub end_output {	Line 473 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 402 sub end_output {	Line 497 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 423 sub end_output {	Line 518 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 444 sub end_output {	Line 539 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 465 sub end_output {	Line 560 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 486 sub end_output {	Line 581 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 515 sub end_output {	Line 610 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 534 sub end_output {	Line 629 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 565 sub end_output {	Line 660 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 590 sub end_output {	Line 685 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 609 sub end_output {	Line 704 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 640 sub end_output {	Line 735 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 657 sub end_output {	Line 752 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 680 sub end_output {	Line 775 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 711 sub end_output {	Line 806 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 730 sub end_output {	Line 825 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) = @_;
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 .= '\\\\';
} elsif ($target eq 'latexsource') {	} elsif ($target eq 'latexsource') {
$currentstring .= "\\\\";	$currentstring .= '\\';
}	}
return $currentstring;	return $currentstring;
}	}
Line 757 sub end_output {	Line 852 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 776 sub end_output {	Line 871 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 801 sub end_output {	Line 896 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 824 sub end_output {	Line 919 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#-------------------------------------------------------------------------- <font> tag	#-- <font> tag
sub start_font {	sub start_font {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 841 sub end_output {	Line 936 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#------------------------------------------------------------------------ <strike> tag	#-- <strike> tag
sub start_strike {	sub start_strike {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 862 sub end_output {	Line 957 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#----------------------------------------------------------------------------- <s> tag	#-- <s> tag
sub start_s {	sub start_s {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 883 sub end_output {	Line 978 sub end_output {
}	}
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 904 sub end_output {	Line 999 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 925 sub end_output {	Line 1020 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 = '';
Line 945 sub end_output {	Line 1040 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#----------------------------------------------------------------------------- <a> tag	#-- <a> tag
sub start_a {	sub start_a {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
Line 956 sub end_output {	Line 1051 sub end_output {
return $currentstring;	return $currentstring;
}	}
sub end_a {	sub end_a {
my ($target,$token,$stackref) = @_;	my ($target,$token,$tagstack,$stackref) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
Line 972 sub end_output {	Line 1067 sub end_output {
}	}
return $currentstring;	return $currentstring;
}	}
#---------------------------------------------------------------------------- <li> tag	#-- <li> tag
sub start_li {	sub start_li {
my ($target,$token,$stackref) = @_;	my ($target,$token,$tagstack,$stackref) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
Line 1002 sub end_output {	Line 1097 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 = '';
Line 1023 sub end_output {	Line 1118 sub end_output {
}	}
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 1040 sub end_output {	Line 1135 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 1065 sub end_output {	Line 1160 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 1086 sub end_output {	Line 1181 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 1103 sub end_output {	Line 1198 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 1124 sub end_output {	Line 1219 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 1145 sub end_output {	Line 1240 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 1166 sub end_output {	Line 1261 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'} = '\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;
}	}
Line 1183 sub end_output {	Line 1292 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 = "";	my $inmemory = '';
}	my $output = '';
	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 .= '}';
	for ($in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
	$output .= $Apache::londefdef::table[-1]{'rowdata'}[$in];
	chop $output;
	$output .= ' \\\\ ';
	}
	$Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}';
	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;
	}
	}
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'} }, 'c';
	}
	push ( @{ $Apache::londefdef::table[-1]{'rowdata'} }, $Apache::londefdef::table[-1]{'hinc'});
	$Apache::londefdef::table[-1]{'counter_columns'} = -1;

}	}
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 ';
}	}
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 = '';
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();
	@{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= $data.' '.$Apache::londefdef::table[-1]{'vinc'};
	}
return $currentstring;	return $currentstring;
}	}
# -------------------------------------------------------------------------- <img> tag	#-- <img> tag

sub start_img {	sub start_img {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
$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} ";	my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
}	$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
return $currentstring;	my $file;
	my $path;
	if ($src =~ m!(.)/([^/])$!) {
	$file = $2;
	$path = $1;
	} else {
	$path = $Apache::lonxml::pwd[-1];
	$file = $src;
	}
	$file=~s/(\.gif\|\.jpg)$/\.eps/;
	if ($path) {
	$currentstring .= '\graphicspath{{'.$path.'/}}\fbox{\includegraphics{'.$file.'}}';
	} else {
	$currentstring .= 'See the image at \tt{'.$src.'}';
	}
	}
	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') {
$currentstring = " \\begin{figure} ";
}
return $currentstring;
}
sub end_applet {
my ($target,$token) = @_;
my $currentstring = '';
if ($target eq 'web') {
$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = " \\end{figure}";	$currentstring = " \\begin{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 1305 sub end_output {	Line 1470 sub end_output {
return $currentstring;	return $currentstring;
}	}

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

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

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

sub start_allow {	sub start_allow {
my ($target,$token) = @_;	my ($target,$token) = @_;
Line 1347 sub end_output {	Line 1512 sub end_output {
sub end_allow {	sub end_allow {
return '';	return '';
}	}
	#-- Frames
	sub start_frameset {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	if (!$Apache::lonxml::registered) {
	$currentstring.='<head>'.
	&Apache::lonxml::registerurl(undef,$target).'</head>';
	}
	$currentstring .= $token->[4];
	}
	return $currentstring;
	}
	sub end_frameset {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring = $token->[2];
	}
	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;
	}
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.28
changed lines
	Added in v.1.56