loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.551, 2014/12/15 17:39:24	version 1.552, 2015/02/22 18:40:18
Line 813 sub init_safespace {	Line 813 sub init_safespace {
$safeeval->permit("require");	$safeeval->permit("require");
$safeinit .= ';$external::target="'.$target.'";';	$safeinit .= ';$external::target="'.$target.'";';
&Apache::run::run($safeinit,$safeeval);	&Apache::run::run($safeinit,$safeeval);
&initialize_rndseed($safeeval);	my $rawrndseed = &initialize_rndseed($safeeval);
	if ($target eq 'grade') {
	$Apache::lonhomework::rawrndseed = $rawrndseed;
	}
}	}

sub clean_safespace {	sub clean_safespace {
Line 852 sub initialize_rndseed {	Line 855 sub initialize_rndseed {
my $safeinit = '$external::randomseed="'.$rndseed.'";';	my $safeinit = '$external::randomseed="'.$rndseed.'";';
&Apache::lonxml::debug("Setting rndseed to $rndseed");	&Apache::lonxml::debug("Setting rndseed to $rndseed");
&Apache::run::run($safeinit,$safeeval);	&Apache::run::run($safeinit,$safeeval);
	return $rndseed;
}	}

sub default_homework_load {	sub default_homework_load {