--- loncom/homework/bridgetask.pm 2005/11/03 22:59:35 1.75 +++ loncom/homework/bridgetask.pm 2005/11/18 20:29:13 1.79 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.75 2005/11/03 22:59:35 albertel Exp $ +# $Id: bridgetask.pm,v 1.79 2005/11/18 20:29:13 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -470,7 +470,11 @@ DONESCREEN } } elsif ($target eq 'grade' && !$env{'form.webgrade'}) { if ($status eq 'NEEDS_CHECKIN') { - &proctor_check_auth($slot_name,$slot); + if(&proctor_check_auth($slot_name,$slot)) { + my $result=&add_to_queue('gradingqueue', + $Apache::inputtags::slot_name); + &Apache::lonxml::debug("add_to_queue said $result"); + } } } } elsif ($target eq 'web') { @@ -667,7 +671,6 @@ sub get_key_todo { } return (undef,undef) } - sub end_Task { my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; my $result=''; @@ -690,6 +693,9 @@ sub end_Task {
'.&mt('Indicate the files from your portfolio to be evaluated in grading this task.').'
'). ""; + } + if (!$previous && $status ne 'SHOW_ANSWER' && + &show_task($status,$previous)) { $result.=&Apache::inputtags::gradestatus('0'); $result.=''; $result.=<