loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.222, 2011/03/07 19:42:21	version 1.224, 2011/06/06 17:43:51
Line 179 sub setrandomnumber {	Line 179 sub setrandomnumber {
} else {	} else {
($rndmod,$rndmod2)=&Apache::lonnet::digest("$id1,$id2");	($rndmod,$rndmod2)=&Apache::lonnet::digest("$id1,$id2");
}	}
	$Apache::lonhomework::results{'resource.'.$id1.'.rawrndseed'}=$rndseed;
if ($rndseed =~/([,:])/) {	if ($rndseed =~/([,:])/) {
my $char=$1;	my $char=$1;
use integer;	use integer;
Line 196 sub setrandomnumber {	Line 196 sub setrandomnumber {
}	}
}	}
&Apache::lonxml::debug("randseed $rndmod $rndseed");	&Apache::lonxml::debug("randseed $rndmod $rndseed");
	$Apache::lonhomework::results{'resource.'.$id1.'.rndseed'}=$rndseed;
&Apache::lonnet::setup_random_from_rndseed($rndseed);	&Apache::lonnet::setup_random_from_rndseed($rndseed);
return '';	return '';
}	}