--- loncom/homework/grades.pm	2013/06/16 16:59:29	1.691
+++ loncom/homework/grades.pm	2013/06/26 21:22:48	1.692
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.691 2013/06/16 16:59:29 raeburn Exp $
+# $Id: grades.pm,v 1.692 2013/06/26 21:22:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8340,6 +8340,13 @@ SCANTRONFORM
             return '';      # Why return ''?  Beats me.
         }
 
+        if (($scancode) && ($randomorder || $randompick)) {
+            my $parmresult =
+                &Apache::lonparmset::storeparm_by_symb($symb,
+                                                       '0_examcode',2,$scancode,
+                                                       'string_examcode',$uname,
+                                                       $udom);
+        }
 	$completedstudents{$uname}={'line'=>$line};
         if ($env{'form.verifyrecord'}) {
             my $lastpos = $env{'form.scantron_maxbubble'}*$scantron_config{'Qlength'};