[LON-CAPA-cvs] cvs: loncom /homework grades.pm

[www]

www		Tue Nov 22 14:10:17 2005 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  Bug #2644: give instructors some feedback that they sent the message
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.295 loncom/homework/grades.pm:1.296
--- loncom/homework/grades.pm:1.295	Tue Nov 22 11:39:34 2005
+++ loncom/homework/grades.pm	Tue Nov 22 14:10:16 2005
@@ -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.296 2005/11/22 19:10:16 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1879,7 +1879,16 @@
 
     # print end of form
     if ($counter == $total) {
-	my $endform='<table border="0"><tr><td>'."\n";
+	my $endform='';
+	if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
+	    $endform.='<br />'.
+		&Apache::loncommon::track_student_link(&mt('View recent activity'),$uname,$udom,'check');
+	}
+	if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
+	    $endform.='<br />'.
+		&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$uname,$udom,$symb,'check');
+	}
+        $endform.='<table border="0"><tr><td>'."\n";
 	$endform.='<input type="button" value="Save & Next" '.
 	    'onClick="javascript:checksubmit(this.form,\'Save & Next\','.
 	    $total.','.scalar(@partlist).');" TARGET=_self> &nbsp;'."\n";
@@ -1980,6 +1989,8 @@
 		$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");