--- loncom/interface/loncoursedata.pm	2023/11/04 00:06:00	1.209
+++ loncom/interface/loncoursedata.pm	2025/06/28 14:34:46	1.210
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.209 2023/11/04 00:06:00 raeburn Exp $
+# $Id: loncoursedata.pm,v 1.210 2025/06/28 14:34:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -220,6 +220,8 @@ sub init_dbs {
                       type => 'SMALLINT UNSIGNED' },
                     { name => 'awarded',
                       type => 'REAL' },
+                    { name => 'latefrac',
+                      type => 'REAL' },
                     { name => 'award',
                       type => 'TINYTEXT' },
                     { name => 'awarddetail',
@@ -257,6 +259,8 @@ sub init_dbs {
                       type => 'REAL' },
                     { name => 'previous',
                       type => 'SMALLINT UNSIGNED' },
+                    { name => 'latefrac',
+                      type => 'REAL' },
 #                    { name => 'regrader',
 #                      type => 'TINYTEXT' },
 #                    { name => 'afterduedate',
@@ -1186,7 +1190,7 @@ sub store_student_data {
         #
         # Parameters
         while (my ($parameter,$value) = each(%$param_hash)) {
-            if ($parameter !~ /(timestamp|resource\.(.*)\.(solved|tries|awarded|award|awarddetail|previous))/) {
+            if ($parameter !~ /(timestamp|resource\.(.*)\.(solved|tries|awarded|award|awarddetail|previous|latefrac))/) {
                 my $sql_parameter = "('".join("','",
                                               $symb_id,$student_id,
                                               $parameter)."',".