loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.4, 2001/03/01 01:19:50	version 1.5, 2001/05/04 21:19:37
Line 27 sub end_imageresponse {	Line 27 sub end_imageresponse {
sub start_foilgroup {	sub start_foilgroup {
%Apache::response::foilgroup={};	%Apache::response::foilgroup={};
$Apache::optionresponse::conceptgroup=0;	$Apache::optionresponse::conceptgroup=0;
&setrandomnumber();	&Apache::response::setrandomnumber();
return '';
}

sub setrandomnumber {
my $rndseed=&Apache::lonnet::rndseed();
$rndseed=unpack("%32i",$rndseed);
$rndseed=$rndseed
+&Apache::lonnet::numval($Apache::inputtags::part)
+&Apache::lonnet::numval($Apache::inputtags::response['-1']);
srand($rndseed);
return '';	return '';
}	}

Line 54 sub whichfoils {	Line 44 sub whichfoils {
my ($max)=@_;	my ($max)=@_;
my @names = @{ $Apache::response::foilgroup{'names'} };	my @names = @{ $Apache::response::foilgroup{'names'} };
my @whichopt =();	my @whichopt =();
while ((($#whichopt+1) < $max) && ($#names > -1)) {	while ((($#whichopt) < $max) && ($#names > -1)) {
my $aopt=int rand $#names;	my $aopt=int rand $#names;
&Apache::lonxml::debug("From $#names elms, picking $aopt");	&Apache::lonxml::debug("From $#names elms, picking $aopt");
$aopt=splice(@names,$aopt,1);	$aopt=splice(@names,$aopt,1);