version 1.118, 2005/03/01 22:25:59
|
version 1.122, 2005/03/21 19:47:53
|
Line 50 use vars qw(
|
Line 50 use vars qw(
|
@FullClasslist |
@FullClasslist |
@Students |
@Students |
@Sections |
@Sections |
@SelectedSections |
|
%StudentData |
%StudentData |
@StudentDataOrder |
@StudentDataOrder |
@SelectedStudentData |
@SelectedStudentData |
Line 124 undef the following package variables:
|
Line 123 undef the following package variables:
|
|
|
=item @Sections |
=item @Sections |
|
|
=item @SelectedSections |
|
|
|
=item %StudentData |
=item %StudentData |
|
|
=item @StudentDataOrder |
=item @StudentDataOrder |
Line 148 sub clear_classlist_variables {
|
Line 145 sub clear_classlist_variables {
|
undef(@FullClasslist); |
undef(@FullClasslist); |
undef(@Students); |
undef(@Students); |
undef(@Sections); |
undef(@Sections); |
undef(@SelectedSections); |
|
undef(%StudentData); |
undef(%StudentData); |
undef(@SelectedStudentData); |
undef(@SelectedStudentData); |
undef($curr_student); |
undef($curr_student); |
Line 174 the following package variables:
|
Line 170 the following package variables:
|
|
|
=item @Sections |
=item @Sections |
|
|
=item @SelectedSections |
|
|
|
=item %StudentData |
=item %StudentData |
|
|
=item @SelectedStudentData |
=item @SelectedStudentData |
Line 205 sub PrepareClasslist {
|
Line 199 sub PrepareClasslist {
|
my $cnum = $ENV{'course.'.$cid.'.num'}; |
my $cnum = $ENV{'course.'.$cid.'.num'}; |
my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist($cid, |
my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist($cid, |
$cdom,$cnum); |
$cdom,$cnum); |
if (exists($ENV{'form.Section'})) { |
my @selected_sections = &get_selected_sections(); |
if (ref($ENV{'form.Section'})) { |
|
@SelectedSections = @{$ENV{'form.Section'}}; |
|
} elsif ($ENV{'form.Section'} !~ /^\s*$/) { |
|
@SelectedSections = ($ENV{'form.Section'}); |
|
} |
|
} |
|
@SelectedSections = ('all') if (! @SelectedSections); |
|
foreach (@SelectedSections) { |
|
if ($_ eq 'all') { |
|
@SelectedSections = ('all'); |
|
} |
|
} |
|
# |
# |
# Deal with instructors with restricted section access |
# Deal with instructors with restricted section access |
if ($ENV{'request.course.sec'} !~ /^\s*$/) { |
if ($ENV{'request.course.sec'} !~ /^\s*$/) { |
@SelectedSections = ($ENV{'request.course.sec'}); |
@selected_sections = ($ENV{'request.course.sec'}); |
} |
} |
# |
# |
# Set up %StudentData |
# Set up %StudentData |
Line 262 sub PrepareClasslist {
|
Line 244 sub PrepareClasslist {
|
$Sections{$section}++; |
$Sections{$section}++; |
# |
# |
# Only put in the list those students we are interested in |
# Only put in the list those students we are interested in |
foreach my $sect (@SelectedSections) { |
foreach my $sect (@selected_sections) { |
if ( (($sect eq 'all') || |
if ( (($sect eq 'all') || |
($section eq $sect)) && |
($section eq $sect)) && |
(($studenthash->{'status'} eq $enrollment_status) || |
(($studenthash->{'status'} eq $enrollment_status) || |
Line 334 sub PrepareClasslist {
|
Line 316 sub PrepareClasslist {
|
return; |
return; |
} |
} |
|
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item get_selected_sections |
|
|
|
Returns an array of the selected sections |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub get_selected_sections { |
|
my @selected_sections; |
|
if (exists($ENV{'form.Section'})) { |
|
if (ref($ENV{'form.Section'})) { |
|
@selected_sections = @{$ENV{'form.Section'}}; |
|
} elsif ($ENV{'form.Section'} !~ /^\s*$/) { |
|
@selected_sections = ($ENV{'form.Section'}); |
|
} |
|
} |
|
@selected_sections = ('all') if (! @selected_sections); |
|
foreach (@selected_sections) { |
|
if ($_ eq 'all') { |
|
@selected_sections = ('all'); |
|
} |
|
} |
|
# |
|
# Deal with instructors with restricted section access |
|
if ($ENV{'request.course.sec'} !~ /^\s*$/) { |
|
@selected_sections = ($ENV{'request.course.sec'}); |
|
} |
|
return @selected_sections; |
|
} |
|
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item §ion_and_enrollment_description |
|
|
|
Returns a string describing the currenly selected section(s) and |
|
enrollment status. |
|
|
|
Inputs: mode = 'plaintext' or 'localized' (defaults to 'localized') |
|
'plaintext' is used for example in Excel spreadsheets. |
|
Returns: scalar description string. |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub section_and_enrollment_description { |
|
my ($mode) = @_; |
|
if (! defined($mode)) { $mode = 'localized'; } |
|
my @sections = &Apache::lonstatistics::get_selected_sections(); |
|
my $description; |
|
if ($mode eq 'localized') { |
|
$description = &mt('Unable to determine section and enrollment'); |
|
} elsif ($mode eq 'plaintext') { |
|
$description = 'Unable to determine section and enrollment'; |
|
} else { |
|
$description = 'Bad parameter passed to lonstatistics::section_and_enrollment_description'; |
|
&Apache::lonnet::logthis($description); |
|
} |
|
if (scalar(@sections) == 1 && $sections[0] ne 'all') { |
|
if ($mode eq 'localized') { |
|
$description = &mt('Section [_1]. [_2] enrollment status.', |
|
$sections[0],$ENV{'form.Status'}); |
|
} elsif ($mode eq 'plaintext') { |
|
$description = 'Section '.$sections[0].'. '. |
|
$ENV{'form.Status'}.' enrollment status.'; |
|
} |
|
} elsif (scalar(@sections) && $sections[0] eq 'all') { |
|
if ($mode eq 'localized') { |
|
$description = &mt('All sections. [_1] enrollment status.', |
|
$ENV{'form.Status'}); |
|
} elsif ($mode eq 'plaintext') { |
|
$description = 'All sections. '. |
|
$ENV{'form.Status'}.' enrollment status.'; |
|
} |
|
} elsif (scalar(@sections)) { |
|
my $lastsection = pop(@sections); |
|
if ($mode eq 'localized') { |
|
$description = &mt('Sections [_1] and [_2]. [_3] enrollment status.', |
|
join(', ',@sections),$lastsection, |
|
$ENV{'form.Status'}); |
|
} elsif ($mode eq 'plaintext') { |
|
$description = |
|
'Sections '.join(', ',@sections).' and '.$lastsection.'. '. |
|
$ENV{'form.Status'}.' enrollment status.'; |
|
} |
|
} |
|
return $description; |
|
} |
|
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
Line 541 sub selected_sequences_with_assessments
|
Line 620 sub selected_sequences_with_assessments
|
sub { shift->is_map(); },1,0,1); |
sub { shift->is_map(); },1,0,1); |
my @sequences_with_assessments; |
my @sequences_with_assessments; |
for my $sequence ($navmap->getById('0.0'), @sequences) { |
for my $sequence ($navmap->getById('0.0'), @sequences) { |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0)){ |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); },0,1)){ |
push(@sequences_with_assessments,$sequence); |
push(@sequences_with_assessments,$sequence); |
} |
} |
} |
} |
Line 644 sub map_select {
|
Line 723 sub map_select {
|
Returns html for a selection box allowing the user to choose one (or more) |
Returns html for a selection box allowing the user to choose one (or more) |
of the sections in the course. |
of the sections in the course. |
|
|
Uses the package variables @Sections and @SelectedSections |
Uses the package variables @Sections |
=over 4 |
=over 4 |
|
|
=item $elementname The name of the HTML form element |
=item $elementname The name of the HTML form element |
Line 681 sub SectionSelect {
|
Line 760 sub SectionSelect {
|
# Loop through the sequences |
# Loop through the sequences |
foreach my $s (@Sections) { |
foreach my $s (@Sections) { |
$Str .= ' <option value="'.$s.'" '; |
$Str .= ' <option value="'.$s.'" '; |
foreach (@SelectedSections) { |
foreach (&get_selected_sections()) { |
if ($s eq $_) { |
if ($s eq $_) { |
$Str .= 'selected '; |
$Str .= 'selected '; |
last; |
last; |
Line 726 sub DisplayClasslist {
|
Line 805 sub DisplayClasslist {
|
my @Fields = ('fullname','username','domain','id','section','status'); |
my @Fields = ('fullname','username','domain','id','section','status'); |
# |
# |
$Str = ''; |
$Str = ''; |
|
my @selected_sections = &get_selected_sections(); |
if (! @Students) { |
if (! @Students) { |
if ($SelectedSections[0] eq 'all') { |
if ($selected_sections[0] eq 'all') { |
if (lc($ENV{'form.Status'}) eq 'any') { |
if (lc($ENV{'form.Status'}) eq 'any') { |
$Str .= '<h2>'. |
$Str .= '<h2>'. |
&mt('There are no students in the course.'). |
&mt('There are no students in the course.'). |