loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.31, 2000/11/01 17:25:36	version 1.33, 2000/11/06 16:22:59
Line 2	Line 2
# XML Parser Module	# XML Parser Module
#	#
# last modified 06/26/00 by Alexander Sakharuk	# last modified 06/26/00 by Alexander Sakharuk
	# 11/6 Gerd Kortemeyer

package Apache::lonxml;	package Apache::lonxml;
	use vars
	qw(@pwd $outputstack $redirection $textredirection $on_offimport @extlinks);
use strict;	use strict;
use HTML::TokeParser;	use HTML::TokeParser;
use Safe;	use Safe;
Line 26 use Apache::run;	Line 28 use Apache::run;
use Apache::londefdef;	use Apache::londefdef;
use Apache::scripttag;	use Apache::scripttag;
#================================================== Main subroutine: xmlparse	#================================================== Main subroutine: xmlparse
@Apache::lonxml::pwd=();	@pwd=();
$Apache::lonxml::outputstack = '';	$outputstack = '';
$Apache::lonxml::redirection = 1;	$redirection = 1;
$Apache::lonxml::textredirection = 1;	$textredirection = 1;
	$on_offimport = 0;
	@extlinks=();

sub xmlparse {	sub xmlparse {

my ($target,$content_file_string,$safeinit,%style_for_target) = @_;	my ($target,$content_file_string,$safeinit,%style_for_target) = @_;
if ($target eq 'meta') {$Apache::lonxml::textredirection = 0;}	if ($target eq 'meta')
	{$Apache::lonxml::textredirection = 0;
	$Apache::lonxml::on_offimport = 1;
	}
my @pars = ();	my @pars = ();
@Apache::lonxml::pwd=();	@Apache::lonxml::pwd=();
my $pwd=$ENV{'request.filename'};	my $pwd=$ENV{'request.filename'};