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

[raeburn]

raeburn		Sat Aug 30 01:55:27 2025 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - Fix some indents and a typo in a comment.
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.823 loncom/homework/grades.pm:1.824
--- loncom/homework/grades.pm:1.823	Fri Aug 29 22:15:31 2025
+++ loncom/homework/grades.pm	Sat Aug 30 01:55:27 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.823 2025/08/29 22:15:31 raeburn Exp $
+# $Id: grades.pm,v 1.824 2025/08/30 01:55:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2061,7 +2061,7 @@
                 foreach my $part (sort(keys(%partlist))) {
                     $table.= '<th>'.&mt('Current post-due fraction').'<br />'.&mt('Part').
                              ': '.$part.'</th>'."\n".
-			     '<th>'.&mt('New post-due fraction').'<br />'.&mt('Part').
+                             '<th>'.&mt('New post-due fraction').'<br />'.&mt('Part').
                              ': '.$part.'</th>'."\n".
                              '<th>'.&mt('Update to new').'<br />'.&mt('Part').
                              ': '.$part.'</th>'."\n";
@@ -2081,7 +2081,7 @@
                     my $udom = $classlist->{$student}->[&Apache::loncoursedata::CL_SDOM()];
                     my $uname = $classlist->{$student}->[&Apache::loncoursedata::CL_SNAME()];
                     my %record =
-		        &Apache::lonnet::restore($symb,$env{'request.course.id'},$udom,$uname);
+                        &Apache::lonnet::restore($symb,$env{'request.course.id'},$udom,$uname);
                     $table.= &Apache::loncommon::start_data_table_row().
                              '<td>'.$ctr.'</td><td>'.
                              &nameUserString(undef,$$fullname{$student},$uname,$udom).
@@ -2107,7 +2107,7 @@
                                         &HTML::Entities::encode($value,'\'"<>&').'"'.$disabled.' /></td>'."\n";
                                 $updateable ++;
                             }
-			} else {
+                        } else {
                             $table.='<td colspan="3"> </td>';
                         }
                     }
@@ -2738,9 +2738,9 @@
     function checksec() {
         for (i=0; i<document.forms.'.$form.'.elements.length; i++) {
             ele = document.forms.'.$form.'.elements[i];
-           string = document.forms.'.$form.'.chksec.value;
-           if (ele.value.indexOf(":::SECTION"+string)>0) {
-              document.forms.'.$form.'.elements[i].checked=true;
+            string = document.forms.'.$form.'.chksec.value;
+            if (ele.value.indexOf(":::SECTION"+string)>0) {
+                document.forms.'.$form.'.elements[i].checked=true;
             }
         }
     }
@@ -4694,9 +4694,9 @@
                     @collaborators = map { &unescape($_); } @collaborators;
 		    foreach my $collaborator (@collaborators) {
                         my ($collabuname,$collabudom) = split(/:/,$collaborator);
-			my ($errorflag,$pts,$wgt,$numchg,$numupdate,$cblatefrac) =
-			    &saveHandGrade($request,$symb,$collabuname,$collabudom,$ctr,
-					   $env{'form.unamedom'.$ctr},$part,\%queueable);
+                        my ($errorflag,$pts,$wgt,$numchg,$numupdate,$cblatefrac) =
+                            &saveHandGrade($request,$symb,$collabuname,$collabudom,$ctr,
+                                           $env{'form.unamedom'.$ctr},$part,\%queueable);
 			if ($errorflag eq 'not_allowed') {
 			    $request->print("<span class=\"LC_error\">".&mt('Not allowed to modify grades for [_1]',"$collaborator:$udom")."</span>");
 			    next;
@@ -5032,7 +5032,7 @@
 		if ($record{$reckey} ne 'correct_by_override') {
 		    $newrecord{$reckey} = 'correct_by_override';
 		}
-	    }	    
+	    }
 	    if ($submitter) {
 		if ($record{'resource.'.$new_part.'.submitted_by'} ne $submitter) {
 		    $newrecord{'resource.'.$new_part.'.submitted_by'} = $submitter;
@@ -6064,7 +6064,7 @@
 	}
         my %aggregate = ();
         my $aggregateflag = 0;
-	$user=~s/:/_/; # colon doen't work in javascript for names
+	$user=~s/:/_/; # colon doesn't work in javascript for names
         my (%weights,%awardeds,%excuseds,%latefracs);
 	foreach (@partid) {
 	    my $old_aw    = $env{'form.GD_'.$user.'_'.$_.'_awarded_s'};