version 1.55.2.1, 2003/10/28 20:08:23
|
version 1.56, 2003/08/27 21:33:33
|
Line 310 sub CreateAndParseOutputSelector {
|
Line 310 sub CreateAndParseOutputSelector {
|
|
|
=pod |
=pod |
|
|
=item &Gather_Student_Data() |
|
|
|
Ensures all student data is up to date. |
|
|
|
=cut |
|
|
|
############################################### |
|
############################################### |
|
sub Gather_Student_Data { |
|
my ($r) = @_; |
|
my $c = $r->connection(); |
|
# |
|
my @Sequences = &Apache::lonstatistics::Sequences_with_Assess(); |
|
# |
|
my @Students = @Apache::lonstatistics::Students; |
|
# |
|
# Open the progress window |
|
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
|
($r,'Statistics Compilation Status', |
|
'Statistics Compilation Progress', scalar(@Students)); |
|
# |
|
while (my $student = shift @Students) { |
|
return if ($c->aborted()); |
|
my ($status,undef) = &Apache::loncoursedata::ensure_current_data |
|
($student->{'username'},$student->{'domain'}, |
|
$ENV{'request.course.id'}); |
|
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
|
'last student'); |
|
} |
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
$r->rflush(); |
|
} |
|
|
|
############################################### |
|
############################################### |
|
|
|
=pod |
|
|
|
=item &BuildProblemStatisticsPage() |
=item &BuildProblemStatisticsPage() |
|
|
Main interface to problem statistics. |
Main interface to problem statistics. |
Line 371 sub BuildProblemStatisticsPage {
|
Line 333 sub BuildProblemStatisticsPage {
|
return; |
return; |
} |
} |
# |
# |
&Gather_Student_Data($r); |
&Apache::lonstatistics::Gather_Student_Data($r); |
# |
# |
# |
# |
if ($output_mode eq 'html') { |
if ($output_mode eq 'html') { |
Line 869 sub DrawGraph {
|
Line 831 sub DrawGraph {
|
$title = '' if (! defined($title)); |
$title = '' if (! defined($title)); |
$xaxis = '' if (! defined($xaxis)); |
$xaxis = '' if (! defined($xaxis)); |
$yaxis = '' if (! defined($yaxis)); |
$yaxis = '' if (! defined($yaxis)); |
$title = &Apache::lonnet::escape($title); |
|
$xaxis = &Apache::lonnet::escape($xaxis); |
|
$yaxis = &Apache::lonnet::escape($yaxis); |
|
# |
# |
my $sendValues = join(',', @$values); |
my $sendValues = join(',', @$values); |
my $sendCount = scalar(@$values); |
my $sendCount = scalar(@$values); |