version 1.3, 2006/05/17 15:01:40
|
version 1.4, 2006/05/17 15:04:42
|
Line 71 sub get_people_in_class {
|
Line 71 sub get_people_in_class {
|
# Enumerate the course_personnel. |
# Enumerate the course_personnel. |
# |
# |
my @course_personnel; |
my @course_personnel; |
for (sort keys %coursepersonnel) { |
for (sort(keys(%coursepersonnel))) { |
for my $role (split /,/, $coursepersonnel{$_}) { |
for my $role (split(/,/, $coursepersonnel{$_})) { |
# extract the names so we can sort them |
# extract the names so we can sort them |
my @people; |
my @people; |
|
|
for (split /,/, $role) { |
for (split(/,/, $role)) { |
push @people, [split /:/, $role]; |
push(@people, [split(/:/, $role)]); |
} |
} |
|
|
@people = sort { $a->[0] cmp $b->[0] } @people; |
@people = sort { $a->[0] cmp $b->[0] } (@people); |
|
|
for my $person (@people) { |
for my $person (@people) { |
push @course_personnel, [join(':', @$person), $person->[0], '', $_]; |
push(@course_personnel, [join(':', @$person), $person->[0], '', $_]); |
} |
} |
} |
} |
} |
} |
Line 102 sub get_people_in_class {
|
Line 102 sub get_people_in_class {
|
|
|
|
|
my $classlist = &Apache::loncoursedata::get_classlist(); |
my $classlist = &Apache::loncoursedata::get_classlist(); |
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]) { |
if ($classlist->{$a}->[$section] ne $classlist->{$b}->[$section]) { |
return $classlist->{$a}->[$section] cmp $classlist->{$b}->[$section]; |
return $classlist->{$a}->[$section] cmp $classlist->{$b}->[$section]; |
} |
} |
return $classlist->{$a}->[$fullname] cmp $classlist->{$b}->[$fullname]; |
return $classlist->{$a}->[$fullname] cmp $classlist->{$b}->[$fullname]; |
} @keys; |
} (@keys); |
|
|
|
|
|
|
Line 118 sub get_people_in_class {
|
Line 118 sub get_people_in_class {
|
|
|
if ( $classlist->{$_}->[$status] eq |
if ( $classlist->{$_}->[$status] eq |
'Active') { |
'Active') { |
push @current_members, [$_, $classlist->{$_}->[$fullname], |
push(@current_members, [$_, $classlist->{$_}->[$fullname], |
$classlist->{$_}->[$section], |
$classlist->{$_}->[$section], |
$classlist->{$_}->[$status], 'Student']; |
$classlist->{$_}->[$status], 'Student']); |
} else { |
} else { |
# Need to figure out if this user is future or |
# Need to figure out if this user is future or |
# Expired... If the start date is in the future |
# Expired... If the start date is in the future |
Line 128 sub get_people_in_class {
|
Line 128 sub get_people_in_class {
|
|
|
my $now = time; |
my $now = time; |
if ($classlist->{$_}->[$start_date] > $now) { |
if ($classlist->{$_}->[$start_date] > $now) { |
push @future_members, [$_, $classlist->{$_}->[$fullname], |
push(@future_members, [$_, $classlist->{$_}->[$fullname], |
$classlist->{$_}->[$section], |
$classlist->{$_}->[$section], |
"Future", "Student"]; |
"Future", "Student"]); |
} else { |
} else { |
push @expired_members, [$_, $classlist->{$_}->[$fullname], |
push(@expired_members, [$_, $classlist->{$_}->[$fullname], |
$classlist->{$_}->[$section], |
$classlist->{$_}->[$section], |
"Expired", "Student"]; |
"Expired", "Student"]); |
} |
} |
|
|
} |
} |
Line 355 SCRIPT
|
Line 355 SCRIPT
|
|
|
# Figure out which students are checked by default... |
# Figure out which students are checked by default... |
|
|
if(%$defaultusers) { |
if (%$defaultusers) { |
if (exists ($defaultusers->{$user})) { |
if (exists ($defaultusers->{$user})) { |
$result .= ' checked ="checked" '; |
$result .= ' checked ="checked" '; |
$checked = 1; |
$checked = 1; |
Line 364 SCRIPT
|
Line 364 SCRIPT
|
$result .= ' checked="checked" '; |
$result .= ' checked="checked" '; |
$checked = 1; # First one for radio if no default specified. |
$checked = 1; # First one for radio if no default specified. |
} |
} |
$result .= ' value="'. HTML::Entities::encode($user . ':' |
$result .= ' value="'.&HTML::Entities::encode($user . ':' |
.$student->[2] . ':' |
.$student->[2] . ':' |
.$student->[1] . ':' |
.$student->[1] . ':' |
.$student->[3] . ':' |
.$student->[3] . ':' |
.$student->[4] . ":" |
.$student->[4] . ":" |
.$formprefix, "<>&\"'") |
.$formprefix, "<>&\"'") |
."\" /></td><td>\n"; |
."\" /></td><td>\n"; |
$result .= HTML::Entities::encode($student->[1], '<>&"') |
$result .= &HTML::Entities::encode($student->[1], '<>&"') |
. '</td><td align="center" >'."\n"; |
. '</td><td align="center" >'."\n"; |
$result .= HTML::Entities::encode($student->[2], '<>&"') |
$result .= &HTML::Entities::encode($student->[2], '<>&"') |
. '</td><td align="center">'."\n"; |
. '</td><td align="center">'."\n"; |
$result .= HTML::Entities::encode($student->[3], '<>&"') |
$result .= &HTML::Entities::encode($student->[3], '<>&"') |
. '</td><td align="center">'."\n"; |
. '</td><td align="center">'."\n"; |
$result .= HTML::Entities::encode($student->[4], '<>&"') |
$result .= &HTML::Entities::encode($student->[4], '<>&"') |
. '</td><td align="center">'."\n"; |
. '</td><td align="center">'."\n"; |
$result .= HTML::Entities::encode($student->[0], '<>&"') |
$result .= &HTML::Entities::encode($student->[0], '<>&"') |
. '</td>'.&Apache::loncommon::end_data_table_row(). |
. '</td>'.&Apache::loncommon::end_data_table_row(). |
"\n"; |
"\n"; |
} |
} |