loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.23, 2001/04/04 19:17:50	version 1.26, 2001/05/04 21:19:37
Line 28 sub end_response {	Line 28 sub end_response {
return '';	return '';
}	}

	# used by response to set the non-safe space random number generator to something
	# that is stable and unique based on the part number and response number
	sub setrandomnumber {
	my $rndseed=&Apache::lonnet::rndseed();
	&Apache::lonxml::debug("randseed $rndseed");
	# $rndseed=unpack("%32i",$rndseed);
	$rndseed=$rndseed
	+(&Apache::lonnet::numval($Apache::inputtags::part) << 10)
	+&Apache::lonnet::numval($Apache::inputtags::response['-1']);
	srand($rndseed);
	&Apache::lonxml::debug("randseed $rndseed");
	return '';
	}

sub meta_parameter_write {	sub meta_parameter_write {
my ($name,$type,$default,$display)=@_;	my ($name,$type,$default,$display)=@_;
return '<parameter part="'.$Apache::inputtags::part.	return '<parameter part="'.$Apache::inputtags::part.
Line 71 sub mandatory_part_meta {	Line 85 sub mandatory_part_meta {
&meta_stores_write('solved','string',	&meta_stores_write('solved','string',
'Problem Status').	'Problem Status').
&meta_stores_write('tries','int_zeropos',	&meta_stores_write('tries','int_zeropos',
'Number of Unsuccessful Tries').	'Number of Attempts').
&meta_stores_write('awarded','float',	&meta_stores_write('awarded','float',
'Partial Credit Factor');	'Partial Credit Factor');
#	#
Line 156 sub start_responseparam {	Line 170 sub start_responseparam {
}	}

sub end_responseparam {	sub end_responseparam {
	return '';
}	}

1;	1;