loncom/homework/matchresponse.pm - diff

Return to matchresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.48, 2004/12/04 00:41:26	version 1.50, 2005/01/31 22:00:40
Line 309 sub grade_response {	Line 309 sub grade_response {
$randomize,	$randomize,
&Apache::response::showallfoils(),	&Apache::response::showallfoils(),
\%Apache::response::foilgroup);	\%Apache::response::foilgroup);
if (!defined($ENV{'form.submitted'})) { return; }	if (!&Apache::response::submitted()) { return; }
my %responsehash;	my %responsehash;
my %grade;	my %grade;
my ($temp,$right,$wrong,$ignored)=(1,0,0,0);	my ($temp,$right,$wrong,$ignored)=(1,0,0,0);
Line 646 sub end_foil {	Line 646 sub end_foil {
if ($value ne 'unused') {	if ($value ne 'unused') {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
&Apache::lonxml::debug("Got a name of :$name:");	&Apache::lonxml::debug("Got a name of :$name:");
if (!$name) { $name=$Apache::lonxml::curdepth; }	if (!$name) {
	&Apache::lonxml::error("Foils without names exist. This can cause problems to malfunction.");
	$name=$Apache::lonxml::curdepth;
	}
&Apache::lonxml::debug("Using a name of :$name:");	&Apache::lonxml::debug("Using a name of :$name:");
if (defined($Apache::response::foilnames{$name})) {	if (defined($Apache::response::foilnames{$name})) {
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name));	&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name));