loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.186, 2003/06/18 22:12:34	version 1.187, 2003/06/19 20:04:16
Line 158 sub setup_rndseed {	Line 158 sub setup_rndseed {
delete($ENV{'form.resetdata'});	delete($ENV{'form.resetdata'});
delete($ENV{'form.newrandomization'});	delete($ENV{'form.newrandomization'});
}	}
	if (defined($rndseed) && $rndseed ne int($rndseed)) {
	$rndseed=join(',',&Math::Random::random_seed_from_phrase($rndseed));
	}
&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 390 sub start_problem {	Line 393 sub start_problem {
$body_tag_start \n $form_tag_start".	$body_tag_start \n $form_tag_start".
'<input type="hidden" name="submitted" value="yes" />';	'<input type="hidden" name="submitted" value="yes" />';
if ($ENV{'request.state'} eq "construct") {	if ($ENV{'request.state'} eq "construct") {
$result.= &problem_web_to_edit_header($rndseed);	$result.= &problem_web_to_edit_header($ENV{'form.rndseed'});
}	}
# if we are viewing someone else preserve that info	# if we are viewing someone else preserve that info
if (defined $ENV{'form.grade_symb'}) {	if (defined $ENV{'form.grade_symb'}) {