version 1.8, 2002/07/30 21:31:48
|
version 1.12, 2002/08/05 14:16:19
|
Line 182 database.
|
Line 182 database.
|
=cut |
=cut |
|
|
sub DownloadCourseInformation { |
sub DownloadCourseInformation { |
my ($namedata,$courseID,$lastDownloadTime)=@_; |
my ($namedata,$courseID,$lastDownloadTime,$WhatIWant)=@_; |
my %courseData; |
my %courseData; |
my ($name,$domain) = split(/\:/,$namedata); |
my ($name,$domain) = split(/\:/,$namedata); |
|
|
Line 197 sub DownloadCourseInformation {
|
Line 197 sub DownloadCourseInformation {
|
} |
} |
|
|
# Download course data |
# Download course data |
%courseData=&Apache::lonnet::dump($courseID, $domain, $name); |
if(!defined($WhatIWant)) { |
|
$WhatIWant = '.'; |
|
} |
|
%courseData=&Apache::lonnet::dump($courseID, $domain, $name, $WhatIWant); |
$courseData{'UpToDate'} = 'false'; |
$courseData{'UpToDate'} = 'false'; |
$courseData{'lastDownloadTime'}=time; |
$courseData{'lastDownloadTime'}=time; |
return \%courseData; |
return \%courseData; |
Line 255 sub ProcessTopResourceMap {
|
Line 258 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 281 sub ProcessTopResourceMap {
|
$currentSequence=-1; |
$currentSequence=-1; |
my $topLevelSequenceNumber = $currentSequence; |
my $topLevelSequenceNumber = $currentSequence; |
|
|
|
my $problemCount=0; |
|
my $problemCount2=0; |
|
my %sequenceRecord; |
|
my $sequenceCount=0; |
|
my $sequenceCount2=0; |
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})) { |
|
$sequenceCount++; |
|
$sequenceRecord{$currentResourceID}++; |
push(@sequences, $currentSequence); |
push(@sequences, $currentSequence); |
push(@currentResource, $currentResourceID); |
push(@currentResource, $currentResourceID); |
push(@finishResource, $lastResourceID); |
push(@finishResource, $lastResourceID); |
Line 314 sub ProcessTopResourceMap {
|
Line 325 sub ProcessTopResourceMap {
|
last; |
last; |
} |
} |
} |
} |
|
next; |
} |
} |
|
|
# Handle gradable resources: exams, problems, etc |
# Handle gradable resources: exams, problems, etc |
$currentResourceID=~/(\d+)\.(\d+)/; |
$currentResourceID=~/(\d+)\.(\d+)/; |
my $partA=$1; |
my $partA=$1; |
my $partB=$2; |
my $partB=$2; |
|
if($hash{'src_'.$currentResourceID}=~/\.problem$/) { |
|
$problemCount++; |
|
} |
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})) { |
|
$problemCount2++; |
|
$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 337 sub ProcessTopResourceMap {
|
Line 356 sub ProcessTopResourceMap {
|
':'.$currentResourceID; |
':'.$currentResourceID; |
} |
} |
|
|
$cache->{$currentResourceID.':source'} = |
|
$hash{'src_'.$currentResourceID}; |
|
my $meta=$hash{'src_'.$currentResourceID}; |
my $meta=$hash{'src_'.$currentResourceID}; |
# $cache->{$currentResourceID.':title'}= |
# $cache->{$currentResourceID.':title'}= |
# &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 |
my %beenHere; |
my %beenHere; |
Line 397 sub ProcessTopResourceMap {
|
Line 416 sub ProcessTopResourceMap {
|
$lastResourceID=pop(@finishResource); |
$lastResourceID=pop(@finishResource); |
|
|
if(defined($cache->{$currentSequence.':problems'})) { |
if(defined($cache->{$currentSequence.':problems'})) { |
|
$sequenceCount2++; |
# Capture sequence information here |
# Capture sequence information here |
$cache->{$currentSequence.':title'}= |
$cache->{$currentSequence.':title'}= |
$hash{'title_'.$currentResourceID}; |
$hash{'title_'.$currentResourceID}; |
Line 437 sub ProcessTopResourceMap {
|
Line 457 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 |
$currentResourceID=pop(@currentResource); |
$currentResourceID=pop(@currentResource); |
} |
} |
|
|
|
$cache->{'jasoncount'}=$problemCount; |
|
$cache->{'jasoncount2'}=$problemCount2; |
|
$cache->{'jasonseq'}=$sequenceCount; |
|
$cache->{'jasonseq2'}=$sequenceCount2; |
unless (untie(%hash)) { |
unless (untie(%hash)) { |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
"Could not untie coursemap $fn (browse)". |
"Could not untie coursemap $fn (browse)". |
Line 529 sub ProcessClasslist {
|
Line 560 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 796 sub TestCacheData {
|
Line 828 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; |