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()); |