--- loncom/interface/statistics/lonproblemstatistics.pm 2003/07/28 15:30:46 1.55 +++ loncom/interface/statistics/lonproblemstatistics.pm 2003/08/27 21:33:33 1.56 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonproblemstatistics.pm,v 1.55 2003/07/28 15:30:46 matthew Exp $ +# $Id: lonproblemstatistics.pm,v 1.56 2003/08/27 21:33:33 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -310,44 +310,6 @@ sub CreateAndParseOutputSelector { =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() Main interface to problem statistics. @@ -371,7 +333,7 @@ sub BuildProblemStatisticsPage { return; } # - &Gather_Student_Data($r); + &Apache::lonstatistics::Gather_Student_Data($r); # # if ($output_mode eq 'html') {