|
version 1.28, 2002/09/01 06:23:19
|
version 1.31, 2002/09/14 18:57:59
|
|
Line 322 sub ProcessTopResourceMap {
|
Line 322 sub ProcessTopResourceMap {
|
| my (@sequences, @currentResource, @finishResource); |
my (@sequences, @currentResource, @finishResource); |
| my ($currentSequence, $currentResourceID, $lastResourceID); |
my ($currentSequence, $currentResourceID, $lastResourceID); |
| |
|
| $currentResourceID=$hash{'ids_/res/'.$ENV{'request.course.uri'}}; |
$currentResourceID=$hash{'ids_'. |
| |
&Apache::lonnet::clutter($ENV{'request.course.uri'})}; |
| push(@currentResource, $currentResourceID); |
push(@currentResource, $currentResourceID); |
| $lastResourceID=-1; |
$lastResourceID=-1; |
| $currentSequence=-1; |
$currentSequence=-1; |
|
Line 737 sub ProcessStudentData {
|
Line 738 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 1251 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') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncoursedata.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface