--- loncom/homework/response.pm	2006/12/18 21:37:47	1.158
+++ loncom/homework/response.pm	2007/02/24 01:44:14	1.159
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.158 2006/12/18 21:37:47 www Exp $
+# $Id: response.pm,v 1.159 2007/02/24 01:44:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1026,7 +1026,13 @@ sub submitted {
     if ($who eq 'scantron') { return 0; }
     # if the Submit Answer button for this particular part was pressed
     my $partid=$Apache::inputtags::part;
-    if (defined($env{'form.submit_'.$partid})) { return 1; }
+    if ($env{'form.submitted'} eq "part_$partid") {
+	return 1;
+    }
+    if ($env{'form.submitted'} eq "yes"
+	&& defined($env{'form.submit_'.$partid})) {
+	return 1;
+    }
     # Submit All button on a .page was pressed
     if (defined($env{'form.all_submit'})) { return 1; }
     # otherwise no submission occured