loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.102, 2004/06/04 17:41:35	version 1.103, 2004/06/04 21:42:18
Line 905 Ensures all student data is up to date.	Line 905 Ensures all student data is up to date.
###############################################	###############################################
###############################################	###############################################
sub Gather_Full_Student_Data {	sub Gather_Full_Student_Data {
my ($r) = @_;	my ($r,$formname,$inputname) = @_;
	my $status_type;
	if (defined($formname)) {
	$status_type = 'inline';
	} else {
	$status_type = 'popup';
	}
my $c = $r->connection();	my $c = $r->connection();
#	#
&Apache::loncoursedata::clear_internal_caches();	&Apache::loncoursedata::clear_internal_caches();
Line 915 sub Gather_Full_Student_Data {	Line 921 sub Gather_Full_Student_Data {
# Open the progress window	# Open the progress window
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
($r,&mt('Student Data Compilation Status'),	($r,&mt('Student Data Compilation Status'),
&mt('Student Data Compilation Progress'), scalar(@Students));	&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());