--- loncom/homework/chemresponse.pm	2004/09/29 15:17:56	1.41
+++ loncom/homework/chemresponse.pm	2004/10/21 06:37:36	1.42
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # chemical equation style response
 #
-# $Id: chemresponse.pm,v 1.41 2004/09/29 15:17:56 www Exp $
+# $Id: chemresponse.pm,v 1.42 2004/10/21 06:37:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -211,6 +211,9 @@ sub end_organicresponse {
 		    $ad='INCORRECT';
 		}
 	    }
+	    if ($ad && $Apache::lonhomework::type eq 'survey') {
+		$ad='SUBMITTED';
+	    }
 	    &Apache::response::handle_previous(\%previous,$ad);
 	    $Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad;
 	    $Apache::lonhomework::results{"resource.$partid.$id.molecule"}=$ENV{"form.MOLECULE_$id"};
@@ -387,6 +390,9 @@ sub end_reactionresponse {
 		    $ad='INCORRECT';
 		}
 	    }
+	    if ($ad && $Apache::lonhomework::type eq 'survey') {
+		$ad='SUBMITTED';
+	    }
 	    &Apache::response::handle_previous(\%previous,$ad);
 	    $Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad;
 	}