loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.221.2.1, 2011/10/08 20:51:30	version 1.222, 2011/03/07 19:42:21
Line 321 sub check_for_previous {	Line 321 sub check_for_previous {
next if (($questiontype eq 'randomizetry') &&	next if (($questiontype eq 'randomizetry') &&
($curr_rndseed ne $Apache::lonhomework::history{"$history:resource.$partid.rndseed"}));	($curr_rndseed ne $Apache::lonhomework::history{"$history:resource.$partid.rndseed"}));
push (@{$previous{'versionci'}},$history);	push (@{$previous{'versionci'}},$history);
$previous{'awardci'} = $Apache::lonhomework::history{"$history:resource.$partid.$id.awarddetail"};	$previous{'awardci'} = $Apache::lonhomework::history{"resource.$partid.$id.awarddetail"};
$previous{'usedci'} = 1;	$previous{'usedci'} = 1;
}	}
}	}
Line 1140 sub whichorder {	Line 1140 sub whichorder {

sub show_answer {	sub show_answer {
my $part = $Apache::inputtags::part;	my $part = $Apache::inputtags::part;
my $award = $Apache::lonhomework::history{"resource.$part.solved"};	my $award = $Apache::lonhomework::history{"resource.$part.awarded"};
my $status = $Apache::inputtags::status[-1];	my $status = $Apache::inputtags::status[-1];
return ( ($award =~ /^correct/	return ( ($award ==1
&& &Apache::lonhomework::show_problem_status())	&& &Apache::lonhomework::show_problem_status())
\|\| $status eq "SHOW_ANSWER");	\|\| $status eq "SHOW_ANSWER");
}	}