loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.488, 2011/06/06 17:43:51	version 1.489, 2011/06/06 21:01:06
Line 413 sub setup_rndseed {	Line 413 sub setup_rndseed {
}	}
$rndseed=~s/\,/\:/g;	$rndseed=~s/\,/\:/g;
$rndseed=~s/[^\w\d\:\-]//g;	$rndseed=~s/[^\w\d\:\-]//g;
if ((defined($rndseed)) && ($rndseed!~/^[\d\-]+\:[\d\-]+/)) {	if (defined($rndseed)) {
$rndseed=join(':',&Apache::lonnet::digest($rndseed));	my ($c1,$c2)=split(/\:/,$rndseed);
	unless ($c2) { $c2=0; }
	unless (($c1==int($c1)) && ($c2==int($c2))) {
	$rndseed=join(':',&Apache::lonnet::digest($rndseed));
	}
}	}
if ($Apache::lonhomework::history{'resource.CODE'}) {	if ($Apache::lonhomework::history{'resource.CODE'}) {
$rndseed=&Apache::lonnet::rndseed();	$rndseed=&Apache::lonnet::rndseed();