loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.236, 2004/02/16 17:19:36	version 1.237, 2004/02/16 18:40:18
Line 158 sub setup_rndseed {	Line 158 sub setup_rndseed {
$rndseed=$Apache::lonhomework::history{'rndseed'};	$rndseed=$Apache::lonhomework::history{'rndseed'};
if (!$rndseed) {	if (!$rndseed) {
$rndseed=time;	$rndseed=time;
$ENV{'form.rndseed'}=$rndseed;
}	}
	$ENV{'form.rndseed'}=$rndseed;
}	}
if ($ENV{'form.resetdata'} eq &mt('New Problem Variation') \|\|	if ($ENV{'form.resetdata'} eq &mt('New Problem Variation') \|\|
$ENV{'form.newrandomization'} eq &mt('New Randomization')) {	$ENV{'form.newrandomization'} eq &mt('New Randomization')) {
Line 396 sub start_problem {	Line 396 sub start_problem {
&Apache::lonhomework::showhash(%Apache::lonhomework::history);	&Apache::lonhomework::showhash(%Apache::lonhomework::history);
}	}
$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');	$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
	if (($ENV{'request.state'} eq 'construct') &&
	defined($ENV{'form.problemtype'})) {
	$Apache::lonhomework::type=$ENV{'form.problemtype'};
	}
&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");	&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
}	}
if ($Apache::lonhomework::type eq '' ) {	if ($Apache::lonhomework::type eq '' ) {