--- loncom/homework/grades.pm 2005/11/22 19:10:16 1.296
+++ loncom/homework/grades.pm 2005/11/22 19:31:43 1.297
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.296 2005/11/22 19:10:16 www Exp $
+# $Id: grades.pm,v 1.297 2005/11/22 19:31:43 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1851,6 +1851,14 @@ KEYWORDS
if ($env{'form.handgrade'} eq 'yes');
$request->print($result);
}
+ if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
+ $request->print('
'.
+ &Apache::loncommon::track_student_link(&mt('View recent activity'),$uname,$udom,'check'));
+ }
+ if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
+ $request->print('
'.
+ &Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$uname,$udom,$symb,'check'));
+ }
my %seen = ();
my @partlist;
@@ -1879,16 +1887,7 @@ KEYWORDS
# print end of form
if ($counter == $total) {
- my $endform='';
- if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
- $endform.='
'.
- &Apache::loncommon::track_student_link(&mt('View recent activity'),$uname,$udom,'check');
- }
- if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
- $endform.='
'.
- &Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$uname,$udom,$symb,'check');
- }
- $endform.='