loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.63, 2002/07/29 20:40:34	version 1.65, 2002/10/08 18:04:04
Line 33 package Apache::response;	Line 33 package Apache::response;
use strict;	use strict;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::response',('responseparam','parameter'));	&Apache::lonxml::register('Apache::response',('responseparam','parameter','dataresponse'));
}	}

sub start_response {	sub start_response {
Line 91 sub setrandomnumber {	Line 91 sub setrandomnumber {
$rndseed=$rndseed	$rndseed=$rndseed
+&Apache::lonnet::numval($Apache::inputtags::response['-1']);	+&Apache::lonnet::numval($Apache::inputtags::response['-1']);
}	}
srand($rndseed);	&Math::Random::random_set_seed_from_phrase($rndseed);
&Apache::lonxml::debug("randseed $rndseed");	&Apache::lonxml::debug("randseed $rndseed");
return '';	return '';
}	}