loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.59, 2001/03/22 22:40:26	version 1.60, 2001/03/23 22:08:05
Line 8	Line 8

package Apache::lonxml;	package Apache::lonxml;
use vars	use vars
qw(@pwd @outputstack $redirection $textredirection $import @extlinks $metamode);	qw(@pwd @outputstack $redirection $import @extlinks $metamode);
use strict;	use strict;
use HTML::TokeParser;	use HTML::TokeParser;
use Safe;	use Safe;
Line 51 sub xmlparse {	Line 51 sub xmlparse {
my ($target,$content_file_string,$safeinit,%style_for_target) = @_;	my ($target,$content_file_string,$safeinit,%style_for_target) = @_;
if ($target eq 'meta') {	if ($target eq 'meta') {
# meta mode is a bit weird only some output is to be turned off	# meta mode is a bit weird only some output is to be turned off
	#<output> tag turns metamode off (defined in londefdef.pm)
$Apache::lonxml::redirection = 0;	$Apache::lonxml::redirection = 0;
$Apache::lonxml::metamode = 1;	$Apache::lonxml::metamode = 1;
$Apache::lonxml::import = 0;	$Apache::lonxml::import = 0;