loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.129, 2005/11/15 15:57:45
+version 1.131, 2005/11/29 18:42:54
  Line 858  sub submitted {
      return 0;
  }
+ sub add_to_gradingqueue {
+     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);
+     if (exists($Apache::lonhomework::history{"resource.0.checkedin.slot"})) {
+ 	$queue_info{'slot'}=
+ 	     $Apache::lonhomework::history{"resource.0.checkedin.slot"};
+     }
+     my $result=&Apache::bridgetask::add_to_queue('gradingqueue',\%queue_info);
+     if ($result ne 'ok') {
+ 	&Apache::lonxml::error("add_to_queue said $result");
+     }
+ }
  # basically undef and 0 (both false) mean that they still have work to do
  # and all true values mean that they can't do any more work
  #