version 1.7, 2002/07/26 16:22:09
|
version 1.11, 2002/08/03 18:47:24
|
Line 197 sub DownloadCourseInformation {
|
Line 197 sub DownloadCourseInformation {
|
} |
} |
|
|
# Download course data |
# Download course data |
|
my $WhatIWant = '(version:(\w|\/|\.)+?$|'; |
|
$WhatIWant .= '\d+?:(\w|\/|\.)+?:(resource\.\d+\.'; |
|
$WhatIWant .= '(solved|tries|previous|awarded|(\d+\.submission))'; |
|
$WhatIWant .= '|timestamp)'; |
|
$WhatIWant .= ')'; |
|
# %courseData=&Apache::lonnet::dump($courseID, $domain, $name, $WhatIWant); |
%courseData=&Apache::lonnet::dump($courseID, $domain, $name); |
%courseData=&Apache::lonnet::dump($courseID, $domain, $name); |
$courseData{'UpToDate'} = 'false'; |
$courseData{'UpToDate'} = 'false'; |
$courseData{'lastDownloadTime'}=time; |
$courseData{'lastDownloadTime'}=time; |
Line 255 sub ProcessTopResourceMap {
|
Line 261 sub ProcessTopResourceMap {
|
if($c->aborted()) { |
if($c->aborted()) { |
return; |
return; |
} |
} |
if(tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) { |
if(tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) { |
last; |
last; |
} |
} |
$tieTries++; |
$tieTries++; |
Line 278 sub ProcessTopResourceMap {
|
Line 284 sub ProcessTopResourceMap {
|
$currentSequence=-1; |
$currentSequence=-1; |
my $topLevelSequenceNumber = $currentSequence; |
my $topLevelSequenceNumber = $currentSequence; |
|
|
|
my %sequenceRecord; |
while(1) { |
while(1) { |
if($c->aborted()) { |
if($c->aborted()) { |
last; |
last; |
} |
} |
# HANDLE NEW SEQUENCE! |
# HANDLE NEW SEQUENCE! |
#if page || sequence |
#if page || sequence |
if(defined($hash{'map_pc_'.$hash{'src_'.$currentResourceID}})) { |
if(defined($hash{'map_pc_'.$hash{'src_'.$currentResourceID}}) && |
|
!defined($sequenceRecord{$currentResourceID})) { |
|
$sequenceRecord{$currentResourceID}++; |
push(@sequences, $currentSequence); |
push(@sequences, $currentSequence); |
push(@currentResource, $currentResourceID); |
push(@currentResource, $currentResourceID); |
push(@finishResource, $lastResourceID); |
push(@finishResource, $lastResourceID); |
Line 322 sub ProcessTopResourceMap {
|
Line 331 sub ProcessTopResourceMap {
|
my $partB=$2; |
my $partB=$2; |
if($hash{'src_'.$currentResourceID}=~ |
if($hash{'src_'.$currentResourceID}=~ |
/\.(problem|exam|quiz|assess|survey|form)$/ && |
/\.(problem|exam|quiz|assess|survey|form)$/ && |
$partA eq $currentSequence) { |
$partA eq $currentSequence && |
|
!defined($sequenceRecord{$currentSequence.':'. |
|
$currentResourceID})) { |
|
$sequenceRecord{$currentSequence.':'.$currentResourceID}++; |
my $Problem = &Apache::lonnet::symbclean( |
my $Problem = &Apache::lonnet::symbclean( |
&Apache::lonnet::declutter($hash{'map_id_'.$partA}). |
&Apache::lonnet::declutter($hash{'map_id_'.$partA}). |
'___'.$partB.'___'. |
'___'.$partB.'___'. |
Line 342 sub ProcessTopResourceMap {
|
Line 354 sub ProcessTopResourceMap {
|
# &Apache::lonnet::metdata($meta,'title'); |
# &Apache::lonnet::metdata($meta,'title'); |
$cache->{$currentResourceID.':title'}= |
$cache->{$currentResourceID.':title'}= |
$hash{'title_'.$currentResourceID}; |
$hash{'title_'.$currentResourceID}; |
|
$cache->{$currentResourceID.':source'}= |
|
$hash{'src_'.$currentResourceID}; |
|
|
# Get Parts for problem |
# Get Parts for problem |
foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) { |
my %beenHere; |
if($_=~/^stores\_(\d+)\_tries$/) { |
foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) { |
my $Part=&Apache::lonnet::metadata($meta,$_.'.part'); |
if(/^\w+response_\d+.*/) { |
if(!defined($cache->{$currentSequence.':'. |
my (undef, $partId, $responseId) = split(/_/,$_); |
$currentResourceID.':parts'})) { |
if($beenHere{'p:'.$partId} == 0) { |
$cache->{$currentSequence.':'.$currentResourceID. |
$beenHere{'p:'.$partId}++; |
':parts'}=$Part; |
if(!defined($cache->{$currentSequence.':'. |
} else { |
$currentResourceID.':parts'})) { |
$cache->{$currentSequence.':'.$currentResourceID. |
$cache->{$currentSequence.':'.$currentResourceID. |
':parts'}.=':'.$Part; |
':parts'}=$partId; |
|
} else { |
|
$cache->{$currentSequence.':'.$currentResourceID. |
|
':parts'}.=':'.$partId; |
|
} |
|
} |
|
if($beenHere{'r:'.$partId.':'.$responseId} == 0) { |
|
$beenHere{'r:'.$partId.':'.$responseId}++; |
|
if(!defined($cache->{$currentSequence.':'. |
|
$currentResourceID.':'.$partId. |
|
':responseIDs'})) { |
|
$cache->{$currentSequence.':'.$currentResourceID. |
|
':'.$partId.':responseIDs'}=$responseId; |
|
} else { |
|
$cache->{$currentSequence.':'.$currentResourceID. |
|
':'.$partId.':responseIDs'}.=':'. |
|
$responseId; |
|
} |
} |
} |
foreach (split(/\,/, |
if(/^optionresponse/ && |
&Apache::lonnet::metadata($meta,'packages'))) { |
$beenHere{'o:'.$partId.':'.$currentResourceID} == 0) { |
if($_=~/^optionresponse\_($Part)\_(\w+)$/) { |
$beenHere{'o:'.$partId.$currentResourceID}++; |
if(defined($cache->{'OptionResponses'})) { |
if(defined($cache->{'OptionResponses'})) { |
$cache->{'OptionResponses'}.= ':::'. |
$cache->{'OptionResponses'}.= ':::'. |
$hash{'src_'.$currentResourceID}.'::'. |
$currentResourceID.':'. |
$hash{'title_'.$currentResourceID}.'::'. |
$partId.':'.$responseId; |
$Part.'::'.$Problem; |
} else { |
} else { |
$cache->{'OptionResponses'}= $currentResourceID. |
$cache->{'OptionResponses'}= |
':'.$partId.':'.$responseId; |
$hash{'src_'.$currentResourceID}.'::'. |
|
$hash{'title_'.$currentResourceID}.'::'. |
|
$Part.'::'.$Problem; |
|
} |
|
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
|
|
# if resource == finish resource, then it is the end of a sequence/page |
# if resource == finish resource, then it is the end of a sequence/page |
if($currentResourceID eq $lastResourceID) { |
if($currentResourceID eq $lastResourceID) { |
Line 422 sub ProcessTopResourceMap {
|
Line 449 sub ProcessTopResourceMap {
|
if($currentSequence eq $topLevelSequenceNumber) { |
if($currentSequence eq $topLevelSequenceNumber) { |
last; |
last; |
} |
} |
} |
} |
|
|
# MOVE!!! |
# MOVE!!! |
# move to next resource |
# move to next resource |
unless(defined($hash{'to_'.$currentResourceID})) { |
unless(defined($hash{'to_'.$currentResourceID})) { |
# big problem, need to handle. Next is probably wrong |
# big problem, need to handle. Next is probably wrong |
|
my $errorMessage = 'Big problem in '; |
|
$errorMessage .= 'loncoursedata::ProcessTopLevelMap.'; |
|
$errorMessage .= ' bighash to_$currentResourceID not defined!'; |
|
&Apache::lonnet::logthis($errorMessage); |
last; |
last; |
} |
} |
my @nextResources=(); |
my @nextResources=(); |
foreach (split(/\,/,$hash{'to_'.$currentResourceID})) { |
foreach (split(/\,/,$hash{'to_'.$currentResourceID})) { |
push(@nextResources, $hash{'goesto_'.$_}); |
if(!defined($sequenceRecord{$currentSequence.':'. |
|
$hash{'goesto_'.$_}})) { |
|
push(@nextResources, $hash{'goesto_'.$_}); |
|
} |
} |
} |
push(@currentResource, @nextResources); |
push(@currentResource, @nextResources); |
# Set the next resource to be processed |
# Set the next resource to be processed |
Line 514 sub ProcessClasslist {
|
Line 548 sub ProcessClasslist {
|
|
|
$cache->{$name.':username'}=$studentName; |
$cache->{$name.':username'}=$studentName; |
$cache->{$name.':domain'}=$studentDomain; |
$cache->{$name.':domain'}=$studentDomain; |
|
# Initialize timestamp for student |
if(!defined($cache->{$name.':lastDownloadTime'})) { |
if(!defined($cache->{$name.':lastDownloadTime'})) { |
$cache->{$name.':lastDownloadTime'}='Not downloaded'; |
$cache->{$name.':lastDownloadTime'}='Not downloaded'; |
$cache->{$name.':updateTime'}=' Not updated'; |
$cache->{$name.':updateTime'}=' Not updated'; |
Line 781 sub TestCacheData {
|
Line 816 sub TestCacheData {
|
while($tieTries < $totalDelay) { |
while($tieTries < $totalDelay) { |
my $result=0; |
my $result=0; |
if($isCached) { |
if($isCached) { |
$result=tie(%testData,'GDBM_File',$ChartDB,&GDBM_READER,0640); |
$result=tie(%testData,'GDBM_File',$ChartDB,&GDBM_READER(),0640); |
} else { |
} else { |
$result=tie(%testData,'GDBM_File',$ChartDB,&GDBM_NEWDB,0640); |
$result=tie(%testData,'GDBM_File',$ChartDB,&GDBM_NEWDB(),0640); |
} |
} |
if($result) { |
if($result) { |
last; |
last; |