version 1.7, 2006/05/23 21:41:26
|
version 1.8, 2006/06/30 01:43:06
|
Line 112 sub get_people_in_class {
|
Line 112 sub get_people_in_class {
|
my @keys = keys(%{$classlist}); |
my @keys = keys(%{$classlist}); |
# Sort by: Section, name |
# Sort by: Section, name |
@keys = sort { |
@keys = sort { |
if ($classlist->{$a}->[$section] ne $classlist->{$b}->[$section]) { |
lc($classlist->{$a}[$section]) cmp lc($classlist->{$b}[$section]) || |
return $classlist->{$a}->[$section] cmp $classlist->{$b}->[$section]; |
lc($classlist->{$a}[$fullname]) cmp lc($classlist->{$b}[$fullname]) || |
} |
lc($a) cmp lc($b) |
return $classlist->{$a}->[$fullname] cmp $classlist->{$b}->[$fullname]; |
|
} (@keys); |
} (@keys); |
|
|
|
|
Line 188 sub render_student_list {
|
Line 187 sub render_student_list {
|
|
|
my $result = ""; |
my $result = ""; |
|
|
|
# no students so no output |
|
return if (!@$students); |
|
|
if ($javascript && $multiselect) { |
if ($javascript && $multiselect) { |
$result .= <<SCRIPT; |
$result .= <<SCRIPT; |
<script type="text/javascript"> |
<script type="text/javascript"> |