version 1.101, 2004/04/01 18:49:39
|
version 1.103, 2004/06/04 21:42:18
|
Line 471 assessments.
|
Line 471 assessments.
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
sub Sequences_with_Assess { |
sub Sequences_with_Assess { |
|
my ($mode) = @_; |
|
$mode = 'selected' if (! defined($mode)); |
my @Sequences_to_Show; |
my @Sequences_to_Show; |
foreach my $map_symb (@SelectedMaps) { |
foreach my $sequence (@Sequences) { |
foreach my $sequence (@Sequences) { |
next if ($sequence->{'num_assess'} < 1); |
next if ($sequence->{'symb'} ne $map_symb && $map_symb ne 'all'); |
if ($mode eq 'all') { |
next if ($sequence->{'num_assess'} < 1); |
|
push (@Sequences_to_Show,$sequence); |
push (@Sequences_to_Show,$sequence); |
|
} elsif ($mode eq 'selected') { |
|
foreach my $map_symb (@SelectedMaps) { |
|
if ($sequence->{'symb'} eq $map_symb || $map_symb eq 'all'){ |
|
push (@Sequences_to_Show,$sequence); |
|
last; # Only put it in once |
|
} |
|
} |
} |
} |
|
|
} |
} |
return @Sequences_to_Show; |
return @Sequences_to_Show; |
} |
} |
Line 896 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 906 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()); |