Return to response.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.130, 2005/11/21 22:45:13 | version 1.131, 2005/11/29 18:42:54 |
---|---|
Line 859 sub submitted { | Line 859 sub submitted { |
} | } |
sub add_to_gradingqueue { | 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', | my %queue_info = ( 'type' => 'problem', |
'time' => time); | 'time' => time); |