--- loncom/interface/loncoursedata.pm	2021/09/16 16:20:36	1.201.2.6
+++ 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.201.2.6 2021/09/16 16:20:36 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)."',".
@@ -1901,7 +1905,7 @@ sub populate_weight_table {
     my @resources;
     foreach my $seq (@sequences) {
         push(@resources,$navmap->retrieveResources($seq,
-                                                   sub {shift->is_problem();},
+                                                   sub {shift->is_gradable();},
                                                    0,0,0));
     }
     if (! scalar(@resources)) {
@@ -2619,6 +2623,7 @@ sub CL_PHOTO   { return 16; }
 sub CL_THUMBNAIL { return 17; }
 sub CL_AUTHORQUOTA { return 18; }
 sub CL_AUTHORUSAGE { return 19; }
+sub CL_CAMANAGER {return 20; }
 
 sub get_classlist {
     my ($cdom,$cnum) = @_;