--- loncom/homework/grades.pm	2008/12/31 18:09:57	1.544
+++ loncom/homework/grades.pm	2009/01/16 02:31:49	1.547
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.544 2008/12/31 18:09:57 raeburn Exp $
+# $Id: grades.pm,v 1.547 2009/01/16 02:31:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -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)) {
@@ -7584,7 +7584,7 @@ sub grade_student_bubbles {
                     'grade_domain'  => $udom,
                     'grade_courseid'=> $env{'request.course.id'},
                     'grade_symb'    => $resource->symb(),
-                    'code'          => $scancode);
+                    'CODE'          => $scancode);
         my $result=&ssi_with_retries($resource->src(),$ssi_retries,%form);
         return 'ssi_error' if ($ssi_error);
         last if (&Apache::loncommon::connection_aborted($r));
@@ -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.