--- loncom/homework/grades.pm 2003/06/20 21:28:18 1.104
+++ loncom/homework/grades.pm 2003/06/21 00:39:46 1.106
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.104 2003/06/20 21:28:18 albertel Exp $
+# $Id: grades.pm,v 1.106 2003/06/21 00:39:46 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2080,10 +2080,15 @@ sub editgrades {
my ($uname,$udom)=split(/_/,$user);
my %newrecord;
my $updateflag = 0;
-
$line .= '
'.$uname.' | '.
$udom.' | '.
$$fullname{$usercolon}.' | ';
+ my $usec=%$classlist->{"$uname:$udom"}[5];
+ if (!&canmodify($usec)) {
+ my $numcols=scalar(@partid)*(scalar(@parts)-1)*2;
+ $noupdate.=$line."Not allowed to modify student |
";
+ next;
+ }
foreach (@partid) {
my $old_aw = $ENV{'form.GD_'.$user.'_'.$_.'_awarded_s'};
my $old_part_pcr = $old_aw/($weight{$_} ne '0' ? $weight{$_}:1);
@@ -2141,7 +2146,8 @@ sub editgrades {
}
}
if ($noupdate) {
- $result .= 'No Changes Occured For the Students Below |
'.$noupdate;
+ my $numcols=(scalar(@partid)*(scalar(@parts)-1)*2)+3;
+ $result .= 'No Changes Occured For the Students Below |
'.$noupdate;
}
$result .= ''."\n".
&show_grading_menu_form ($symb,$url);
@@ -2344,7 +2350,7 @@ CSVFORMJS
$result.=''."\n";
my $upfile_select=&Apache::loncommon::upfile_select_html();
$result.=<
+ |