loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.17, 2000/08/08 19:34:29	version 1.18, 2000/08/11 14:24:50
Line 29 use Apache::scripttag;	Line 29 use Apache::scripttag;

sub xmlparse {	sub xmlparse {

my ($target,$content_file_string,%style_for_target) = @_;	my ($target,$content_file_string,$safeinit,%style_for_target) = @_;
my @pars = ();	my @pars = ();
push (@pars,HTML::TokeParser->new(\$content_file_string));	push (@pars,HTML::TokeParser->new(\$content_file_string));
my $currentstring = '';	my $currentstring = '';
Line 39 sub xmlparse {	Line 39 sub xmlparse {
my $safeeval = new Safe;	my $safeeval = new Safe;
$safeeval->permit("entereval");	$safeeval->permit("entereval");
$safeeval->permit(":base_math");	$safeeval->permit(":base_math");
	if ( $safeinit ne '') {&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

($target, my @tenta) = split('&&',$target);	($target, my @tenta) = split('&&',$target);