loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.295, 2005/11/22 16:39:34	version 1.297, 2005/11/22 19:31:43
Line 1851 KEYWORDS	Line 1851 KEYWORDS
if ($env{'form.handgrade'} eq 'yes');	if ($env{'form.handgrade'} eq 'yes');
$request->print($result);	$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 %seen = ();
my @partlist;	my @partlist;
Line 1980 sub processHandGrade {	Line 1988 sub processHandGrade {
$msgstatus = &Apache::lonmsg::user_normal_msg ($uname,$udom,	$msgstatus = &Apache::lonmsg::user_normal_msg ($uname,$udom,
$env{'form.msgsub'}.' ['.	$env{'form.msgsub'}.' ['.
&Apache::lonnet::declutter($url).']',$message);	&Apache::lonnet::declutter($url).']',$message);
	$request->print('<br />'.&mt('Sending message to [_1]@[_2]',$uname,$udom).': '.
	$msgstatus);
}	}
if ($env{'form.collaborator'.$ctr}) {	if ($env{'form.collaborator'.$ctr}) {
my @collabstrs=&Apache::loncommon::get_env_multiple("form.collaborator$ctr");	my @collabstrs=&Apache::loncommon::get_env_multiple("form.collaborator$ctr");