loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonproblemstatistics.pm between versions 1.55 and 1.56

-version 1.55, 2003/07/28 15:30:46
+version 1.56, 2003/08/27 21:33:33
  Line 310  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.
- Line 371  sub BuildProblemStatisticsPage {
+ Line 333  sub BuildProblemStatisticsPage {
          return;
      }
      #
-     &Gather_Student_Data($r);
+     &Apache::lonstatistics::Gather_Student_Data($r);
      #
      #
      if ($output_mode eq 'html') {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.55
changed lines
	Added in v.1.56