--- loncom/homework/bridgetask.pm 2006/02/09 22:34:35 1.105 +++ loncom/homework/bridgetask.pm 2006/02/14 19:41:06 1.109 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.105 2006/02/09 22:34:35 albertel Exp $ +# $Id: bridgetask.pm,v 1.109 2006/02/14 19:41:06 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -188,20 +188,23 @@ sub add_grading_button { $result.=''; if (&Apache::lonnet::allowed('mgq',$env{'request.course.id'})) { my ($entries,$ready,$locks)=&get_queue_counts('gradingqueue'); - $result.='

Specify a section: '.$sec_select.'

'; - $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); + $result.=''; + $result.=''; + $result.=''."\n"; ($entries,$ready,$locks)=&get_queue_counts('reviewqueue'); - $result.='

'.&mt("Review Queue has [_1] entries. [_2] of them are ready to be graded and [_3] of them are currently being graded",$entries,$ready,$locks); - $result.='

'."\n"; - $result.='

'."\n"; + $result.=''."\n"; + $result.='
Specify a section: '.$sec_select.''.' '; - $result.='

'."\n"; + $result.= &mt("[_1] entries, [_2] ready, [_3] being graded",$entries,$ready,$locks).'
'. + ' '; + $result.=&mt("[_1] entries, [_2] ready, [_3] being graded", + $entries,$ready,$locks).'
'."\n"; $result.='

'."\n"; + &mt("Regrade specific user:").'" />'."\n"; $result.=''; $result.=&Apache::loncommon::select_dom_form($env{'user.domain'}, 'gradingdomain'); @@ -378,7 +381,7 @@ sub webgrade_standard_info { $file=~s|/+|/|g; &Apache::lonnet::allowuploaded('/adm/bridgetask',$file); $file_list.='

  • '.$file. + &Apache::loncommon::icon($file).'" border="0"> '.$file. '
  • '."\n"; } $file_list.="\n"; @@ -423,12 +426,21 @@ sub start_Task { $body_tag_start.=$uri.'">'.&add_grading_button().""; my $symb=&Apache::lonnet::symbread(); if (&Apache::lonnet::allowed('mgq',$env{'request.course.id'})) { - $body_tag_start.='
    '. + $body_tag_start.=''. ''. ''. ''. '
    '; + my $target_id = + &Apache::lonstathelpers::make_target_id({symb => $symb, + part => '0'}); + $body_tag_start.='
    '. + ''. + ''. + ''. + '
    '; } } }