loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.36, 2000/11/07 23:39:07	version 1.38, 2000/11/14 22:24:38
Line 60 sub xmlparse {	Line 60 sub xmlparse {
# $safeeval->deny(":base_orig");	# $safeeval->deny(":base_orig");
$safeinit .= ';$external::target='.$target.';';	$safeinit .= ';$external::target='.$target.';';
$safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';';	$safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';';
	$safeinit .= &Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_xml.lcpm');
&Apache::run::run($safeinit,$safeeval);	&Apache::run::run($safeinit,$safeeval);
#-------------------- Redefinition of the target in the case of compound target	#-------------------- Redefinition of the target in the case of compound target

Line 101 sub xmlparse {	Line 102 sub xmlparse {
# if ($target eq 'meta') {$Apache::lonxml::textredirection = 0;}	# if ($target eq 'meta') {$Apache::lonxml::textredirection = 0;}
#clear out any tags that didn't end	#clear out any tags that didn't end
while ($token->[1] ne $stack[$#stack]	while ($token->[1] ne $stack[$#stack]
&& ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);&Apache::lonxml::debug("Clearing out stack");}	&& ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);}

if (exists $style_for_target{'/'."$token->[1]"}) {	if (exists $style_for_target{'/'."$token->[1]"}) {