loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.58, 2002/01/30 17:33:15	version 1.59, 2002/02/14 21:48:31
Line 78 sub setrandomnumber {	Line 78 sub setrandomnumber {
$rndseed=$ENV{'form.rndseed'};	$rndseed=$ENV{'form.rndseed'};
if (!$rndseed) { $rndseed=time; }	if (!$rndseed) { $rndseed=time; }
} else {	} else {
$rndseed=&Apache::lonnet::rndseed();	my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
	$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name);
}	}
&Apache::lonxml::debug("randseed $rndseed");	&Apache::lonxml::debug("randseed $rndseed");
# $rndseed=unpack("%32i",$rndseed);	# $rndseed=unpack("%32i",$rndseed);
Line 355 sub start_responseparam {	Line 356 sub start_responseparam {
$result = &Apache::edit::rebuild_tag($token);	$result = &Apache::edit::rebuild_tag($token);
$result.=&Apache::edit::handle_insert();	$result.=&Apache::edit::handle_insert();
}	}
} elsif ($target eq 'grade') {	} elsif ($target eq 'grade' \|\| $target eq 'answer' ) {
if ($ENV{'request.state'} eq 'construct') {	if ($ENV{'request.state'} eq 'construct') {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval);	my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval);