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.225, 2011/09/08 01:18:15
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 '';
}	}
Line 321 sub check_for_previous {	Line 322 sub check_for_previous {
next if (($questiontype eq 'randomizetry') &&	next if (($questiontype eq 'randomizetry') &&
($curr_rndseed ne $Apache::lonhomework::history{"$history:resource.$partid.rndseed"}));	($curr_rndseed ne $Apache::lonhomework::history{"$history:resource.$partid.rndseed"}));
push (@{$previous{'versionci'}},$history);	push (@{$previous{'versionci'}},$history);
$previous{'awardci'} = $Apache::lonhomework::history{"resource.$partid.$id.awarddetail"};	$previous{'awardci'} = $Apache::lonhomework::history{"$history:resource.$partid.$id.awarddetail"};
$previous{'usedci'} = 1;	$previous{'usedci'} = 1;
}	}
}	}