version 1.129, 2005/11/15 15:57:45
|
version 1.130, 2005/11/21 22:45:13
|
Line 858 sub submitted {
|
Line 858 sub submitted {
|
return 0; |
return 0; |
} |
} |
|
|
|
sub add_to_gradingqueue { |
|
my ($nothing) = @_; |
|
|
|
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 |
# 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 |
# and all true values mean that they can't do any more work |
# |
# |