loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.178, 2003/05/27 18:58:51	version 1.180, 2003/06/04 20:32:30
Line 154 sub setup_rndseed {	Line 154 sub setup_rndseed {
$rndseed=int(rand(1000000000));	$rndseed=int(rand(1000000000));
}	}
$ENV{'form.rndseed'}=$rndseed;	$ENV{'form.rndseed'}=$rndseed;
	delete($ENV{'form.resetdata'});
	delete($ENV{'form.newrandomization'});
}	}
&Apache::lonxml::debug("Setting rndseed to $rndseed");	&Apache::lonxml::debug("Setting rndseed to $rndseed");
&Apache::run::run('$external::randomseed='.$rndseed.';',$safeeval);	&Apache::run::run('$external::randomseed='.$rndseed.';',$safeeval);
Line 532 sub end_problem {	Line 534 sub end_problem {
}	}
} elsif ($target eq 'meta') {	} elsif ($target eq 'meta') {
if ($Apache::inputtags::part eq '0') {	if ($Apache::inputtags::part eq '0') {
	@Apache::inputtags::response=();
$result=&Apache::response::mandatory_part_meta;	$result=&Apache::response::mandatory_part_meta;
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {