loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.57 and 1.59

version 1.57, 2002/01/17 12:23:31	version 1.59, 2002/02/14 21:48:31
Line 33 package Apache::response;	Line 33 package Apache::response;
use strict;	use strict;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::response',('responseparam','parameter','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse'));	&Apache::lonxml::register('Apache::response',('responseparam','parameter','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse','externalresponse'));
}	}

sub start_response {	sub start_response {
Line 78 sub setrandomnumber {	Line 78 sub setrandomnumber {
$rndseed=$ENV{'form.rndseed'};	$rndseed=$ENV{'form.rndseed'};
if (!$rndseed) { $rndseed=time; }	if (!$rndseed) { $rndseed=time; }
} else {	} else {
$rndseed=&Apache::lonnet::rndseed();	my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
	$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name);
}	}
&Apache::lonxml::debug("randseed $rndseed");	&Apache::lonxml::debug("randseed $rndseed");
# $rndseed=unpack("%32i",$rndseed);	# $rndseed=unpack("%32i",$rndseed);
Line 262 sub start_essayresponse {	Line 263 sub start_essayresponse {
return &Apache::essayresponse::start_essayresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);	return &Apache::essayresponse::start_essayresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
}	}

	sub start_externalresponse {
	require Apache::externalresponse;
	import Apache::externalresponse;
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	return &Apache::externalresponse::start_externalresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
	}

sub view_or_modify {	sub view_or_modify {
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();	my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
my $myself=0;	my $myself=0;
Line 348 sub start_responseparam {	Line 356 sub start_responseparam {
$result = &Apache::edit::rebuild_tag($token);	$result = &Apache::edit::rebuild_tag($token);
$result.=&Apache::edit::handle_insert();	$result.=&Apache::edit::handle_insert();
}	}
} elsif ($target eq 'grade') {	} elsif ($target eq 'grade' \|\| $target eq 'answer' ) {
if ($ENV{'request.state'} eq 'construct') {	if ($ENV{'request.state'} eq 'construct') {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval);	my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.57
changed lines
	Added in v.1.59