[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /homework response.pm
From:       albertel <lon-capa-cvs () mail ! lon-capa ! org>
Date:       2005-11-29 18:42:54
Message-ID: cvsalbertel1133289774 () cvsserver
[Download RAW message or body]

albertel		Tue Nov 29 13:42:54 2005 EDT

  Modified files:              
    /loncom/homework	response.pm 
  Log:
  - only add to queue if we are in a course and working with a published ymbed resource
  
  
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.130 loncom/homework/response.pm:1.131
--- loncom/homework/response.pm:1.130	Mon Nov 21 17:45:13 2005
+++ loncom/homework/response.pm	Tue Nov 29 13:42:54 2005
@@ -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 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);


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]