version 1.123, 2005/04/07 06:56:23
|
version 1.125, 2005/10/04 18:27:32
|
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 298 sub PrepareClasslist {
|
Line 298 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 327 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 560 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'); |