version 1.123, 2005/04/07 06:56:23
|
version 1.127, 2005/12/13 16:32:22
|
Line 197 sub PrepareClasslist {
|
Line 197 sub PrepareClasslist {
|
my $cid = $env{'request.course.id'}; |
my $cid = $env{'request.course.id'}; |
my $cdom = $env{'course.'.$cid.'.domain'}; |
my $cdom = $env{'course.'.$cid.'.domain'}; |
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($cdom, |
$cdom,$cnum); |
$cnum); |
my @selected_sections = &get_selected_sections(); |
my @selected_sections = &get_selected_sections(); |
# |
# |
# Deal with instructors with restricted section access |
# Deal with instructors with restricted section access |
Line 267 sub PrepareClasslist {
|
Line 267 sub PrepareClasslist {
|
# Sort the Students |
# Sort the Students |
my $sortby = 'fullname'; |
my $sortby = 'fullname'; |
$sortby = $env{'form.sort'} if (exists($env{'form.sort'})); |
$sortby = $env{'form.sort'} if (exists($env{'form.sort'})); |
my @TmpStudents = sort { $a->{$sortby} cmp $b->{$sortby} || |
my @TmpStudents = sort { lc($a->{$sortby}) cmp lc($b->{$sortby}) || |
$a->{'fullname'} cmp $b->{'fullname'} } @Students; |
lc($a->{'fullname'}) cmp lc($b->{'fullname'}) || |
|
lc($a->{'username'}) cmp lc($b->{'username'}) } @Students; |
@Students = @TmpStudents; |
@Students = @TmpStudents; |
# |
# |
# Now deal with that current student thing.... |
# Now deal with that current student thing.... |
Line 298 sub PrepareClasslist {
|
Line 299 sub PrepareClasslist {
|
} |
} |
# |
# |
if (exists($env{'form.StudentData'})) { |
if (exists($env{'form.StudentData'})) { |
if (ref($env{'form.StudentData'}) eq 'ARRAY') { |
@SelectedStudentData = |
@SelectedStudentData = @{$env{'form.StudentData'}}; |
&Apache::loncommon::get_env_multiple('form.StudentData'); |
} else { |
|
@SelectedStudentData = ($env{'form.StudentData'}); |
|
} |
|
} else { |
} else { |
@SelectedStudentData = ('username'); |
@SelectedStudentData = ('username'); |
} |
} |
Line 330 Returns an array of the selected section
|
Line 328 Returns an array of the selected section
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
sub get_selected_sections { |
sub get_selected_sections { |
my @selected_sections; |
my @selected_sections = |
if (exists($env{'form.Section'})) { |
&Apache::loncommon::get_env_multiple('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); |
@selected_sections = ('all') if (! @selected_sections); |
foreach (@selected_sections) { |
foreach (@selected_sections) { |
if ($_ eq 'all') { |
if ($_ eq 'all') { |
Line 569 Returns: Array of symbs of selected maps
|
Line 561 Returns: Array of symbs of selected maps
|
####################################################### |
####################################################### |
sub get_selected_maps { |
sub get_selected_maps { |
my ($elementname) = @_; |
my ($elementname) = @_; |
my @selected_maps; |
my @selected_maps = |
if (exists($env{'form.'.$elementname})) { |
&Apache::loncommon::get_env_multiple('form.'.$elementname); |
if (ref($env{'form.'.$elementname})) { |
@selected_maps = ('all') if (! @selected_maps); |
@selected_maps = @{$env{'form.'.$elementname}}; |
|
} else { |
|
@selected_maps = ($env{'form.'.$elementname}); |
|
} |
|
} else { |
|
@selected_maps = ('all'); |
|
} |
|
foreach my $map (@selected_maps) { |
foreach my $map (@selected_maps) { |
if ($map eq 'all') { |
if ($map eq 'all') { |
@selected_maps = ('all'); |
@selected_maps = ('all'); |