loncom/interface/lonselstudent.pm - diff

Return to lonselstudent.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2006/05/17 15:20:56	version 1.6, 2006/05/17 15:22:32
Line 113 sub get_people_in_class {	Line 113 sub get_people_in_class {



for (@keys) {	for my $user (@keys) {

if ( $classlist->{$_}->[$status] eq	if ( $classlist->{$user}->[$status] eq
'Active') {	'Active') {
push(@current_members, [$_, $classlist->{$_}->[$fullname],	push(@current_members, [$user, $classlist->{$user}->[$fullname],
$classlist->{$_}->[$section],	$classlist->{$user}->[$section],
$classlist->{$_}->[$status], 'Student']);	$classlist->{$user}->[$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
# the user is future...else expired.	# the user is future...else expired.

my $now = time;	my $now = time;
if ($classlist->{$_}->[$start_date] > $now) {	if ($classlist->{$user}->[$start_date] > $now) {
push(@future_members, [$_, $classlist->{$_}->[$fullname],	push(@future_members, [$user, $classlist->{$user}->[$fullname],
$classlist->{$_}->[$section],	$classlist->{$user}->[$section],
"Future", "Student"]);	"Future", "Student"]);
} else {	} else {
push(@expired_members, [$_, $classlist->{$_}->[$fullname],	push(@expired_members, [$user,
$classlist->{$_}->[$section],	$classlist->{$user}->[$fullname],
	$classlist->{$user}->[$section],
"Expired", "Student"]);	"Expired", "Student"]);
}	}