loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.41, 2004/09/29 15:17:56	version 1.42, 2004/10/21 06:37:36
Line 211 sub end_organicresponse {	Line 211 sub end_organicresponse {
$ad='INCORRECT';	$ad='INCORRECT';
}	}
}	}
	if ($ad && $Apache::lonhomework::type eq 'survey') {
	$ad='SUBMITTED';
	}
&Apache::response::handle_previous(\%previous,$ad);	&Apache::response::handle_previous(\%previous,$ad);
$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad;	$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad;
$Apache::lonhomework::results{"resource.$partid.$id.molecule"}=$ENV{"form.MOLECULE_$id"};	$Apache::lonhomework::results{"resource.$partid.$id.molecule"}=$ENV{"form.MOLECULE_$id"};
Line 387 sub end_reactionresponse {	Line 390 sub end_reactionresponse {
$ad='INCORRECT';	$ad='INCORRECT';
}	}
}	}
	if ($ad && $Apache::lonhomework::type eq 'survey') {
	$ad='SUBMITTED';
	}
&Apache::response::handle_previous(\%previous,$ad);	&Apache::response::handle_previous(\%previous,$ad);
$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad;	$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad;
}	}