loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.227, 2011/11/14 03:08:01	version 1.228, 2011/11/29 13:24:38
Line 53 package Apache::response;	Line 53 package Apache::response;
use strict;	use strict;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
	use Apache::inputtags();
use Apache::lonmaxima();	use Apache::lonmaxima();
use Apache::lonr();	use Apache::lonr();

Line 1181 sub whichorder {	Line 1182 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.awarded"};	my $award = $Apache::lonhomework::history{"resource.$part.solved"};
my $status = $Apache::inputtags::status[-1];	my $status = $Apache::inputtags::status[-1];
return ( ($award ==1	my $canshow = 0;
&& &Apache::lonhomework::show_problem_status())	if ($award =~ /^correct/) {
\|\| $status eq "SHOW_ANSWER");	if ((&Apache::inputtags::grading_is_nonlenient($part)) \|\|
	($Apache::lonhomework::history{"resource.$part.awarded"} == 1)) {
	$canshow = 1;
	}
	}
	return (($canshow && &Apache::lonhomework::show_problem_status())
	\|\| $status eq "SHOW_ANSWER");
}	}

sub analyze_store_foilgroup {	sub analyze_store_foilgroup {