--- loncom/homework/bridgetask.pm 2006/01/30 21:01:46 1.99 +++ loncom/homework/bridgetask.pm 2006/02/08 22:04:34 1.102 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.99 2006/01/30 21:01:46 albertel Exp $ +# $Id: bridgetask.pm,v 1.102 2006/02/08 22:04:34 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1443,10 +1443,12 @@ sub select_user { $seclist.=''; } + my $studentdis = $student; + $studentdis =~ tr/:/@/; $result.=< -
+ @@ -1454,7 +1456,7 @@ sub select_user { $seclist
- $fullname->{$student} + $fullname->{$student} ($studentdis) RESULT } @@ -1474,6 +1476,9 @@ RESULT if ($status{'version'}) { $result .= ' '.&mt('Version').' '.$status{'version'}; } + if ($status{'grader'}) { + $result .= ' '.&mt('(Graded by [_1])',$status{'grader'}).' '; + } $result.= ''; if ($status{'reviewqueue'} eq 'enqueued') { $result .= &mt('Awaiting Review'); @@ -1677,7 +1682,7 @@ sub get_instance { $result.=&Apache::scripttag::xmlparse($dimension{$instance.'.criteria.'.$id}); $result.='

'.$status_display.'

'; if ($Apache::lonhomework::history{"resource.$version.0.$dim.$instance.$id.comment"}) { - $result.='

'.$Apache::lonhomework::history{"resource.$version.0.$dim.$instance.$id.comment"}.'

'; + $result.='

'.&mt('Comment: [_1]',$Apache::lonhomework::history{"resource.$version.0.$dim.$instance.$id.comment"}).'

'; } $result.=''; }