--- loncom/homework/grades.pm 2008/12/24 07:04:58 1.543
+++ loncom/homework/grades.pm 2009/01/06 21:57:06 1.546
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.543 2008/12/24 07:04:58 raeburn Exp $
+# $Id: grades.pm,v 1.546 2009/01/06 21:57:06 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2094,7 +2094,7 @@ KEYWORDS
' ) ';
my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);
if (@$files) {
- $lastsubonly.='
'.&mt('Like all files provided by users, this file may contain virusses').'
';
+ $lastsubonly.='
'.&mt('Like all files provided by users, this file may contain viruses').'
';
my $file_counter = 0;
foreach my $file (@$files) {
$file_counter++;
@@ -2317,7 +2317,7 @@ sub get_last_submission {
$$returnhash{$version.':keys'}))) {
$lasthash{$key}=$$returnhash{$version.':'.$key};
$timestamp =
- scalar(localtime($$returnhash{$version.':timestamp'}));
+ &Apache::lonlocal::locallocaltime($$returnhash{$version.':timestamp'});
}
}
foreach my $key (keys(%lasthash)) {
@@ -7778,7 +7778,7 @@ sub checkscantron_results {
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Scantron/Submissions Comparison Status',
'Progress of Scantron Data/Submission Records Comparison',$count,
'inline',undef,'checkscantron');
- my ($username,$domain,$uname,$started);
+ my ($username,$domain,$started);
&Apache::grades::scantron_get_maxbubble(); # Need the bubble lines array to parse.