loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.83, 2003/08/11 19:56:45	version 1.85, 2003/09/22 20:49:01
Line 412 sub answer_header {	Line 412 sub answer_header {
my ($type) = @_;	my ($type) = @_;
my $result;	my $result;
if ($ENV{'form.answer_output_mode'} eq 'tex') {	if ($ENV{'form.answer_output_mode'} eq 'tex') {
$result = ' \vskip 0 mm \begin{tabular}{\|c\|}\hline Answer for Part: '.	$result = ' \vskip 0 mm \begin{tabular}{\|c\|}\hline Answer for Part: \verb\|'.
$Apache::inputtags::part.' \\\\ \hline ';	$Apache::inputtags::part.'\| \\\\ \hline ';
} else {	} else {
$result = '<table border="1"><tr><td>Answer for Part:'.	$result = '<table border="1"><tr><td>Answer for Part:'.
$Apache::inputtags::part. '</td>'."\n";	$Apache::inputtags::part. '</td>'."\n";
Line 556 sub whichorder {	Line 556 sub whichorder {
return @whichopt;	return @whichopt;
}	}

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