[LON-CAPA-cvs] cvs: loncom /interface lonselstudent.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Wed, 17 May 2006 15:22:32 -0000
albertel Wed May 17 11:22:32 2006 EDT
Modified files:
/loncom/interface lonselstudent.pm
Log:
- death to $_
Index: loncom/interface/lonselstudent.pm
diff -u loncom/interface/lonselstudent.pm:1.5 loncom/interface/lonselstudent.pm:1.6
--- loncom/interface/lonselstudent.pm:1.5 Wed May 17 11:20:56 2006
+++ loncom/interface/lonselstudent.pm Wed May 17 11:22:32 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# lonselstudent.pm : Reusable subs for student selection.
#
-# $Id: lonselstudent.pm,v 1.5 2006/05/17 15:20:56 albertel Exp $
+# $Id: lonselstudent.pm,v 1.6 2006/05/17 15:22:32 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -113,26 +113,27 @@
- for (@keys) {
+ for my $user (@keys) {
- if ( $classlist->{$_}->[$status] eq
+ if ( $classlist->{$user}->[$status] eq
'Active') {
- push(@current_members, [$_, $classlist->{$_}->[$fullname],
- $classlist->{$_}->[$section],
- $classlist->{$_}->[$status], 'Student']);
+ push(@current_members, [$user, $classlist->{$user}->[$fullname],
+ $classlist->{$user}->[$section],
+ $classlist->{$user}->[$status], 'Student']);
} else {
# Need to figure out if this user is future or
# Expired... If the start date is in the future
# the user is future...else expired.
my $now = time;
- if ($classlist->{$_}->[$start_date] > $now) {
- push(@future_members, [$_, $classlist->{$_}->[$fullname],
- $classlist->{$_}->[$section],
+ if ($classlist->{$user}->[$start_date] > $now) {
+ push(@future_members, [$user, $classlist->{$user}->[$fullname],
+ $classlist->{$user}->[$section],
"Future", "Student"]);
} else {
- push(@expired_members, [$_, $classlist->{$_}->[$fullname],
- $classlist->{$_}->[$section],
+ push(@expired_members, [$user,
+ $classlist->{$user}->[$fullname],
+ $classlist->{$user}->[$section],
"Expired", "Student"]);
}