version 1.28, 2002/09/01 06:23:19
|
version 1.30, 2002/09/03 12:27:05
|
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->{$_}; |
} |
} |
Line 1249 sub DownloadStudentCourseDataSeparate {
|
Line 1250 sub DownloadStudentCourseDataSeparate {
|
$WhatIWant .= '|timestamp)'; |
$WhatIWant .= '|timestamp)'; |
$WhatIWant .= ')'; |
$WhatIWant .= ')'; |
|
|
&CheckForResidualDownload($courseID, $cacheDB, $students, $c); |
&CheckForResidualDownload($cacheDB, 'true', 'true', $courseID, $r, $c); |
|
|
my $studentCount = scalar(@$students); |
my $studentCount = scalar(@$students); |
if($status eq 'true') { |
if($status eq 'true') { |