[BACK]Return to grades.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.596.2.12.2.60.2.2 and 1.596.2.12.2.63

version 1.596.2.12.2.60.2.2, 2023/03/10 20:23:34 version 1.596.2.12.2.63, 2024/12/09 01:24:24
Line 2523  sub submission { Line 2523  sub submission {
     #             (3) All transactions (by date)      #             (3) All transactions (by date)
     #             (4) The whole record (with detailed information for all transactions)      #             (4) The whole record (with detailed information for all transactions)
   
     my ($string,$timestamp,$lastgradetime,$lastsubmittime) = &get_last_submission(\%record);      my ($string,$timestamp,$lastgradetime,$lastsubmittime) =
           &get_last_submission(\%record);
   
     my $lastsubonly;      my $lastsubonly;
   
Line 2895  sub get_last_submission { Line 2896  sub get_last_submission {
                     $prevsolved{$1} = $solved{$1};                      $prevsolved{$1} = $solved{$1};
                     $solved{$1} = $lasthash{$key};                      $solved{$1} = $lasthash{$key};
                 }                  }
       }
             foreach my $partid (keys(%handgraded)) {              foreach my $partid (keys(%handgraded)) {
                 if (($prevsolved{$partid} eq 'ungraded_attempted') &&                  if (($prevsolved{$partid} eq 'ungraded_attempted') &&
                     (($solved{$partid} eq 'incorrect_by_override') ||                      (($solved{$partid} eq 'incorrect_by_override') ||
Line 2905  sub get_last_submission { Line 2907  sub get_last_submission {
                     $prevsolved{$partid} = $solved{$partid};                      $prevsolved{$partid} = $solved{$partid};
                 }                  }
             }              }
     $timestamp =   
  &Apache::lonlocal::locallocaltime($$returnhash{$version.':timestamp'});  
  }   }
   #
   # Timestamp is for last transaction for this resource, which does not
   # necessarily correspond to the time of last submission for problem (or part).
   #
           if ($lasthash{'timestamp'} ne '') {
               $timestamp = &Apache::lonlocal::locallocaltime($lasthash{'timestamp'});
           }
         my (%typeparts,%randombytry);          my (%typeparts,%randombytry);
         my $showsurv =           my $showsurv = 
             &Apache::lonnet::allowed('vas',$env{'request.course.id'});              &Apache::lonnet::allowed('vas',$env{'request.course.id'});
Line 3799  sub version_portfiles { Line 3806  sub version_portfiles {
             $$record{$key} = join(',',@versioned_portfiles);              $$record{$key} = join(',',@versioned_portfiles);
             push(@returned_keys,$key);              push(@returned_keys,$key);
         }          }
     }       }
     return (@returned_keys);         return (@returned_keys);
 }  }
   
 sub get_next_version {  sub get_next_version {
Line 5118  sub csvuploadassign { Line 5125  sub csvuploadassign {
                                              $env{'course.'.$env{'request.course.id'}.'.domain'},                                               $env{'course.'.$env{'request.course.id'}.'.domain'},
                                              $env{'course.'.$env{'request.course.id'}.'.num'},                                               $env{'course.'.$env{'request.course.id'}.'.num'},
                                              $domain,$username);                                               $domain,$username);
                 $countdone++;
    } else {     } else {
       $request->print("<p><span class=\"LC_error\">".        $request->print("<p><span class=\"LC_error\">".
                               &mt("Failed to save data for student [_1]. Message when trying to save was: [_2]",                                &mt("Failed to save data for student [_1]. Message when trying to save was: [_2]",
                                   "$username:$domain",$result)."</span></p>");                                    "$username:$domain",$result)."</span></p>");
    }     }
    $request->rflush();     $request->rflush();
    $countdone++;  
         }          }
     }      }
     $request->print('<br />'.&Apache::lonhtmlcommon::confirm_success(&mt("Saved scores for [quant,_1,student]",$countdone),$countdone==0));      $request->print('<br />'.&Apache::lonhtmlcommon::confirm_success(&mt("Saved scores for [quant,_1,student]",$countdone),$countdone==0));
Removed from v.1.596.2.12.2.60.2.2  
changed lines
  Added in v.1.596.2.12.2.63

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>