version 1.28, 2002/09/01 06:23:19
|
version 1.29, 2002/09/03 02:22:40
|
Line 737 sub ProcessStudentData {
|
Line 737 sub ProcessStudentData {
|
my %courseKeys; |
my %courseKeys; |
# user name:domain was prepended earlier in DownloadCourseInformation |
# user name:domain was prepended earlier in DownloadCourseInformation |
foreach (keys %$courseData) { |
foreach (keys %$courseData) { |
my $currentKey =~ s/^$name//; |
my $currentKey = $_; |
|
$currentKey =~ s/^$name//; |
$courseKeys{$currentKey}++; |
$courseKeys{$currentKey}++; |
$cache->{$_}=$courseData->{$_}; |
$cache->{$_}=$courseData->{$_}; |
} |
} |