loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.239 and 1.240

version 1.239, 2004/02/16 19:50:10	version 1.240, 2004/02/16 20:01:26
Line 373 sub reset_problem_globals {	Line 373 sub reset_problem_globals {
undef($Apache::lonhomework::name);	undef($Apache::lonhomework::name);
}	}

	sub set_problem_status {
	my ($part)=@_;
	if ($ENV{'form.problemstate'} eq 'CANNOT_ANSWER_correct') {
	$Apache::lonhomework::history{"resource.$part.solved"}=
	'correct_by_student';
	}
	}

sub start_problem {	sub start_problem {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;

Line 395 sub start_problem {	Line 403 sub start_problem {
if ($target eq 'web') {	if ($target eq 'web') {
&Apache::lonhomework::showhash(%Apache::lonhomework::history);	&Apache::lonhomework::showhash(%Apache::lonhomework::history);
}	}
if ($ENV{'request.state'} eq 'construct' &&	if ($ENV{'request.state'} eq 'construct') { &set_problem_status('0'); }
$ENV{'form.problemstate'} eq 'CANNOT_ANSWER_correct' ) {
$Apache::lonhomework::history{'resource.0.solved'}=
'correct_by_student';
}
$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');	$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
if (($ENV{'request.state'} eq 'construct') &&	if (($ENV{'request.state'} eq 'construct') &&
defined($ENV{'form.problemtype'})) {	defined($ENV{'form.problemtype'})) {
$Apache::lonhomework::type=$ENV{'form.problemtype'};	$Apache::lonhomework::type=$ENV{'form.problemtype'};
}	}
&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");	&Apache::lonxml::debug("Found this to be of type :$Apache::ltonhomework::type:");
}	}
if ($Apache::lonhomework::type eq '' ) {	if ($Apache::lonhomework::type eq '' ) {
my $uri=$ENV{'request.uri'};	my $uri=$ENV{'request.uri'};
Line 1010 sub start_part {	Line 1014 sub start_part {
my $expression='$external::datestatus="'.$status.'";';	my $expression='$external::datestatus="'.$status.'";';
$expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";';	$expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";';
&Apache::run::run($expression,$safeeval);	&Apache::run::run($expression,$safeeval);
	if ($ENV{'request.state'} eq 'construct') {
	&set_problem_status($Apache::inputtags::part);
	}
if (( $status eq 'CLOSED' ) \|\|	if (( $status eq 'CLOSED' ) \|\|
( $status eq 'UNCHECKEDOUT') \|\|	( $status eq 'UNCHECKEDOUT') \|\|
( $status eq 'BANNED') \|\|	( $status eq 'BANNED') \|\|

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

Removed from v.1.239
changed lines
	Added in v.1.240