loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.188, 2003/06/20 14:45:19	version 1.190, 2003/06/25 16:47:47
Line 149 sub setup_rndseed {	Line 149 sub setup_rndseed {
}	}
if ($ENV{'form.resetdata'} eq 'New Problem Variation' \|\|	if ($ENV{'form.resetdata'} eq 'New Problem Variation' \|\|
$ENV{'form.newrandomization'} eq 'New Randomization') {	$ENV{'form.newrandomization'} eq 'New Randomization') {
$rndseed=time;	srand(time);
if ($rndseed eq $ENV{'form.rndseed'}) {	$rndseed=int(rand(2100000000));
srand($rndseed);
$rndseed=int(rand(1000000000));
}
$ENV{'form.rndseed'}=$rndseed;	$ENV{'form.rndseed'}=$rndseed;
delete($ENV{'form.resetdata'});	delete($ENV{'form.resetdata'});
delete($ENV{'form.newrandomization'});	delete($ENV{'form.newrandomization'});
Line 507 sub end_problem {	Line 504 sub end_problem {
}	}
} elsif ($status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER' \|\|	} elsif ($status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER' \|\|
$status eq 'UNCHECKEDOUT' ) {	$status eq 'UNCHECKEDOUT' ) {
if ($target ne 'tex') {	if ($target ne 'tex' &&
	$ENV{'form.answer_output_mode'} ne 'tex') {
$result.="</body>\n";	$result.="</body>\n";
}	}
}	}