--- loncom/homework/grades.pm	2005/11/22 16:39:34	1.295
+++ 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.295 2005/11/22 16:39:34 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('<br />'.
+	    &Apache::loncommon::track_student_link(&mt('View recent activity'),$uname,$udom,'check'));
+    }
+    if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
+	$request->print('<br />'.
+	    &Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$uname,$udom,$symb,'check'));
+    }
 
     my %seen = ();
     my @partlist;
@@ -1980,6 +1988,8 @@ sub processHandGrade {
 		$msgstatus = &Apache::lonmsg::user_normal_msg ($uname,$udom,
 							       $env{'form.msgsub'}.' ['.
 							       &Apache::lonnet::declutter($url).']',$message);
+		$request->print('<br />'.&mt('Sending message to [_1]@[_2]',$uname,$udom).': '.
+				$msgstatus);
 	    }
 	    if ($env{'form.collaborator'.$ctr}) {
 		my @collabstrs=&Apache::loncommon::get_env_multiple("form.collaborator$ctr");