loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.390, 2005/11/17 20:04:19	version 1.392, 2005/12/08 02:15:36
Line 665 sub setup_globals {	Line 665 sub setup_globals {

sub init_safespace {	sub init_safespace {
my ($target,$safeeval,$safehole,$safeinit) = @_;	my ($target,$safeeval,$safehole,$safeinit) = @_;
$safeeval->deny_only(':dangerous');
$safeeval->reval('use Math::Complex;');
$safeeval->permit_only(":default");	$safeeval->permit_only(":default");
$safeeval->permit("entereval");	$safeeval->permit("entereval");
$safeeval->permit(":base_math");	$safeeval->permit(":base_math");
Line 961 sub increment_counter {	Line 959 sub increment_counter {
}	}

sub init_counter {	sub init_counter {
if (defined($env{'form.counter'})) {	if ($env{'request.state'} eq 'construct') {
	$Apache::lonxml::counter=1;
	$Apache::lonxml::counter_changed=1;
	} elsif (defined($env{'form.counter'})) {
$Apache::lonxml::counter=$env{'form.counter'};	$Apache::lonxml::counter=$env{'form.counter'};
$Apache::lonxml::counter_changed=0;	$Apache::lonxml::counter_changed=0;
} else {	} else {