--- loncom/homework/response.pm	2005/11/21 22:45:13	1.130
+++ loncom/homework/response.pm	2005/11/29 18:42:54	1.131
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.130 2005/11/21 22:45:13 albertel Exp $
+# $Id: response.pm,v 1.131 2005/11/29 18:42:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -859,7 +859,12 @@ sub submitted {
 }
 
 sub add_to_gradingqueue {
-    my ($nothing) = @_;
+    my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
+    if (   $courseid eq ''
+	|| $symb eq ''
+	|| $env{'request.state'} eq 'construct') {
+	return;
+    }
 
     my %queue_info = ( 'type' => 'problem',
 		       'time' => time);