version 1.29, 2002/09/03 02:22:40
|
version 1.32, 2002/09/17 15:34:42
|
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 585 browser
|
Line 586 browser
|
Output: @names |
Output: @names |
|
|
@names: An array of students whose information has been processed, and are to |
@names: An array of students whose information has been processed, and are to |
be considered in an arbitrary order. |
be considered in an arbitrary order. The entries in @names are of the form |
|
username:domain. |
|
|
|
The values in $cache are as follows: |
|
|
|
*NOTE: for the following $name implies username:domain |
|
$name.':error' only defined if an error occured. Value |
|
contains the error message |
|
$name.':lastDownloadTime' unconverted time of the last update of a |
|
student\'s course data |
|
$name.'updateTime' coverted time of the last update of a |
|
student\'s course data |
|
$name.':username' username of a student |
|
$name.':domain' domain of a student |
|
$name.':fullname' full name of a student |
|
$name.':id' PID of a student |
|
$name.':Status' active/expired status of a student |
|
$name.':section' section of a student |
|
|
=back |
=back |
|
|
Line 608 sub ProcessClasslist {
|
Line 626 sub ProcessClasslist {
|
if($c->aborted()) { |
if($c->aborted()) { |
return (); |
return (); |
} |
} |
my $studentInformation = $classlist->{$name.':studentInformation'}, |
my $studentInformation = $classlist->{$name.':studentInformation'}; |
my $sectionData = $classlist->{$name.':sections'}, |
my $date = $classlist->{$name}; |
my $date = $classlist->{$name}, |
|
my ($studentName,$studentDomain) = split(/\:/,$name); |
my ($studentName,$studentDomain) = split(/\:/,$name); |
|
|
$cache->{$name.':username'}=$studentName; |
$cache->{$name.':username'}=$studentName; |
Line 645 sub ProcessClasslist {
|
Line 662 sub ProcessClasslist {
|
$courseID=~s/^(\w)/\/$1/; |
$courseID=~s/^(\w)/\/$1/; |
|
|
my $sec=''; |
my $sec=''; |
|
my $sectionData = $classlist->{$name.':sections'}; |
foreach my $key (keys (%$sectionData)) { |
foreach my $key (keys (%$sectionData)) { |
my $value = $sectionData->{$key}; |
my $value = $sectionData->{$key}; |
if ($key=~/^$courseID(?:\/)*(\w+)*\_st$/) { |
if ($key=~/^$courseID(?:\/)*(\w+)*\_st$/) { |
Line 652 sub ProcessClasslist {
|
Line 670 sub ProcessClasslist {
|
if($key eq $courseID.'_st') { |
if($key eq $courseID.'_st') { |
$tempsection=''; |
$tempsection=''; |
} |
} |
my ($dummy,$roleend,$rolestart)=split(/\_/,$value); |
my (undef,$roleend,$rolestart)=split(/\_/,$value); |
if($roleend eq $end && $rolestart eq $start) { |
if($roleend eq $end && $rolestart eq $start) { |
$sec = $tempsection; |
$sec = $tempsection; |
last; |
last; |
Line 1250 sub DownloadStudentCourseDataSeparate {
|
Line 1268 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') { |