loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.120, 2001/08/20 16:12:46	version 1.121, 2001/08/20 23:31:08
Line 245 sub printtokenheader {	Line 245 sub printtokenheader {
'<br />DocID: '.$token.	'<br />DocID: '.$token.
'<br />Time: '.localtime().'<hr />';	'<br />Time: '.localtime().'<hr />';
} else {	} else {
return $token;	return $token;
}	}
}	}

Line 435 sub htmlclean {	Line 435 sub htmlclean {

sub inner_xmlparse {	sub inner_xmlparse {
my ($target,$stack,$parstack,$pars,$safeeval,$style_for_target)=@_;	my ($target,$stack,$parstack,$pars,$safeeval,$style_for_target)=@_;
&Apache::lonxml::debug('Reentrant parser starting, again?');
my $finaloutput = '';	my $finaloutput = '';
my $result;	my $result;
my $token;	my $token;
Line 738 sub init_safespace {	Line 737 sub init_safespace {
#need to inspect this class of ops	#need to inspect this class of ops
# $safeeval->deny(":base_orig");	# $safeeval->deny(":base_orig");
$safeinit .= ';$external::target="'.$target.'";';	$safeinit .= ';$external::target="'.$target.'";';
$safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';';	my $rndseed;
	if (exists(&Apache::lonhomework::whichuser)) {
	my ($symb,$courseid,$domain,$name) = &Apache::lonhomework::whichuser();
	$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name);
	} else {
	$rndseed=&Apache::lonnet::rndseed();
	}
	$safeinit .= ';$external::randomseed='.$rndseed.';';
&Apache::run::run($safeinit,$safeeval);	&Apache::run::run($safeinit,$safeeval);
}	}