loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.53, 2002/09/26 21:45:53	version 1.54, 2002/10/02 18:12:51
Line 359 sub displayfoils {	Line 359 sub displayfoils {
}	}
}	}
} else {	} else {
my $temp=0;	my $temp=0;
my $id=$Apache::inputtags::response['-1'];	my $id=$Apache::inputtags::response['-1'];
my $part=$Apache::inputtags::part;	my $part=$Apache::inputtags::part;
my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};	my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
Line 369 sub displayfoils {	Line 369 sub displayfoils {
$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" ";	$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" ";
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }	if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";	$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";
	$result .= '<table border="1"><tr><td>A:   Correct</td><td>B:   Incorrect</td></tr></table>';
} else {	} else {
$result .= '\item '.$Apache::response::foilgroup{$name.'.text'};	$result .= '\item '.$Apache::response::foilgroup{$name.'.text'};
	if ($Apache::lonhomework::type eq 'exam') {
	$result.= '\vskip 2 mm \noindent \begin{tabular}{\|lr\|lr\|}\hline ';
	$result.= 'A: & Correct & B: & Incorrect';
	$result.='\\\\\hline\end{tabular}\vskip 0 mm ';
	}
}	}
$temp++;	$temp++;
}	}