--- loncom/homework/response.pm 2010/12/19 00:44:09 1.221 +++ loncom/homework/response.pm 2011/03/07 19:42:21 1.222 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # various response type definitons response definition # -# $Id: response.pm,v 1.221 2010/12/19 00:44:09 raeburn Exp $ +# $Id: response.pm,v 1.222 2011/03/07 19:42:21 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1140,9 +1140,9 @@ sub whichorder { sub show_answer { 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]; - return ( ($award =~ /^correct/ + return ( ($award ==1 && &Apache::lonhomework::show_problem_status()) || $status eq "SHOW_ANSWER"); }