version 1.201, 2016/08/16 00:46:58
|
version 1.203, 2018/03/11 12:44:22
|
Line 1775 sub populate_weight_table {
|
Line 1775 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 1933 sub rank_students_by_scores_on_resources
|
Line 1933 sub rank_students_by_scores_on_resources
|
$limits =~ s/( AND )$//; # Remove extra conjunction |
$limits =~ s/( AND )$//; # Remove extra conjunction |
$request .= "WHERE $limits"; |
$request .= "WHERE $limits"; |
} |
} |
$request .= " $award_clause GROUP BY a.student_id ORDER BY score"; |
$request .= " $award_clause GROUP BY a.student_id ORDER BY score, b.student"; |
#&Apache::lonnet::logthis('request = '.$/.$request); |
#&Apache::lonnet::logthis('request = '.$/.$request); |
my $sth = $dbh->prepare($request) or die "Can't prepare $request"; |
my $sth = $dbh->prepare($request) or die "Can't prepare $request"; |
$sth->execute(); |
$sth->execute(); |