--- loncom/homework/bridgetask.pm 2005/08/09 16:48:15 1.39 +++ loncom/homework/bridgetask.pm 2005/09/07 22:20:33 1.44 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.39 2005/08/09 16:48:15 albertel Exp $ +# $Id: bridgetask.pm,v 1.44 2005/09/07 22:20:33 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -147,9 +147,7 @@ sub add_grading_button { my $result=' '; $result.=''; - if ( 1) { - #need a permissions for limitng this to 'powerful users' - + if (&Apache::lonnet::allowed('mgq',$env{'request.course.id'})) { my ($entries,$ready,$locks)=&get_queue_counts('gradingqueue'); $result.='

'.&mt("Grading Queue has [_1] entries. [_2] of them are ready to be graded and [_3] of them are currently being graded",$entries,$ready,$locks); @@ -225,13 +223,14 @@ sub start_Task { if ($env{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); } $body_tag_start.=$uri.'">'.&add_grading_button().""; my $symb=&Apache::lonnet::symbread(); - $body_tag_start.='

'. - ''. - ''. - ''. - '
'; - + if (&Apache::lonnet::allowed('mgq',$env{'request.course.id'})) { + $body_tag_start.='
'. + ''. + ''. + ''. + '
'; + } } } if ($target eq 'web' || ($target eq 'grade' && !$env{'form.webgrade'}) || $target eq 'answer' || @@ -284,14 +283,7 @@ sub start_Task { } } elsif ($target eq 'grade' && !$env{'form.webgrade'}) { if ($status eq 'NEEDS_CHECKIN') { - if (&proctor_check_auth($slot_name,$slot)) { - #FIXME immeadiatly add this to the grading queue - # with slot->{'endtime'} for when grading can - # begin on this resource - # FIXME I think the above is done by default, - # need to check that - # failure doesn't do this. - } + &proctor_check_auth($slot_name,$slot); } } } elsif ($target eq 'web') { @@ -539,7 +531,6 @@ sub end_Task { } } elsif ($ungraded) { $Apache::lonhomework::results{"resource.$version.status"}='ungraded'; - # FIXME if in review queue need to move back to grading queue if ($env{'form.queue'} eq 'reviewqueue') { &Apache::lonxml::debug("moving back."); &move_between_queues('reviewqueue','gradingqueue'); @@ -1045,7 +1036,7 @@ sub get_instance { $result.=''; my (undef,undef,$udom,$uname) = &Apache::lonxml::whichuser(); my $file_url = '/uploaded/'.$udom.'/'.$uname.'/portfolio'; - foreach my $partial_file (split(',',$Apache::lonhomework::history{"resource.$version.bridgetask.portfiles"})) { + foreach my $partial_file (split(',',$Apache::lonhomework::history{"resource.$version.0.bridgetask.portfiles"})) { my $file=$file_url.$partial_file; &Apache::lonnet::allowuploaded('/adm/bridgetask',$file); $result.=' - +
Proctor's Username:
Proctor's Username:
Password:
Proctor's Domain:

-Student who should be logged in is:
-
+ + +
+ + + + + + +
Student who should be logged in is:
Name:$name
Studnet ID:$env{'environment.id'}
Usename$user\@$domain
+
ENDCHECKOUT return $result;