loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.201.2.5, 2021/03/05 17:18:40	version 1.201.2.6.2.2, 2024/08/22 19:15:58
Line 1901 sub populate_weight_table {	Line 1901 sub populate_weight_table {
my @resources;	my @resources;
foreach my $seq (@sequences) {	foreach my $seq (@sequences) {
push(@resources,$navmap->retrieveResources($seq,	push(@resources,$navmap->retrieveResources($seq,
sub {shift->is_problem();},	sub {shift->is_gradable();},
0,0,0));	0,0,0));
}	}
if (! scalar(@resources)) {	if (! scalar(@resources)) {
Line 2520 sub get_student_scores {	Line 2520 sub get_student_scores {
&Apache::lonnet::logthis('prepared then executed '.$/.$request);	&Apache::lonnet::logthis('prepared then executed '.$/.$request);
return undef;	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);	# &Apache::lonnet::logthis("request = \n".$request);
$sth = $dbh->prepare($request);	$sth = $dbh->prepare($request);
$sth->execute();	$sth->execute();
Line 2619 sub CL_PHOTO { return 16; }	Line 2619 sub CL_PHOTO { return 16; }
sub CL_THUMBNAIL { return 17; }	sub CL_THUMBNAIL { return 17; }
sub CL_AUTHORQUOTA { return 18; }	sub CL_AUTHORQUOTA { return 18; }
sub CL_AUTHORUSAGE { return 19; }	sub CL_AUTHORUSAGE { return 19; }
	sub CL_CAMANAGER {return 20; }

sub get_classlist {	sub get_classlist {
my ($cdom,$cnum) = @_;	my ($cdom,$cnum) = @_;