loncom/interface/statistics/lonstathelpers.pm - diff

Return to lonstathelpers.pm CVS log

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

version 1.67, 2011/07/04 09:25:02	version 1.68, 2011/12/21 21:25:51
Line 716 sub GetStudentAnswers {	Line 716 sub GetStudentAnswers {
# Read in the cache (if it exists) before we start timing things.	# Read in the cache (if it exists) before we start timing things.
&Apache::lonstathelpers::ensure_proper_cache($resource->{'symb'});	&Apache::lonstathelpers::ensure_proper_cache($resource->{'symb'});
# Open progress window	# Open progress window
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$Students));
($r,'Student Answer Compilation Status',
'Student Answer Compilation Progress', scalar(@$Students),
$status_type,undef,$formname,$inputname);
$r->rflush();	$r->rflush();
foreach my $student (@$Students) {	foreach my $student (@$Students) {
last if ($c->aborted());	last if ($c->aborted());
Line 1492 sub gather_full_student_data {	Line 1489 sub gather_full_student_data {
my @Students = @Apache::lonstatistics::Students;	my @Students = @Apache::lonstatistics::Students;
#	#
# Open the progress window	# Open the progress window
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@Students));
($r,&mt('Student Data Compilation Status'),
&mt('Student Data Compilation Progress'), scalar(@Students),
$status_type,undef,$formname,$inputname);
#	#
while (my $student = shift @Students) {	while (my $student = shift @Students) {
return if ($c->aborted());	return if ($c->aborted());