--- loncom/interface/loncoursedata.pm 2021/03/05 17:18:40 1.201.2.5 +++ loncom/interface/loncoursedata.pm 2023/11/04 00:06:00 1.209 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursedata.pm,v 1.201.2.5 2021/03/05 17:18:40 raeburn Exp $ +# $Id: loncoursedata.pm,v 1.209 2023/11/04 00:06:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1901,7 +1901,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)) { @@ -2520,7 +2520,7 @@ sub get_student_scores { &Apache::lonnet::logthis('prepared then executed '.$/.$request); return undef; } - $request = 'SELECT score,COUNT(*) FROM '.$tmptable.' GROUP BY score'; + $request = 'SELECT score,COUNT(*) FROM '.$tmptable.' GROUP BY score ORDER BY score'; # &Apache::lonnet::logthis("request = \n".$request); $sth = $dbh->prepare($request); $sth->execute(); @@ -2619,6 +2619,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) = @_;