version 1.123, 2005/04/07 06:56:23
|
version 1.124, 2005/04/07 07:34:52
|
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'); |