version 1.10, 2002/08/01 20:49:06
|
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 246 smoothly.
|
Line 249 smoothly.
|
=cut |
=cut |
|
|
sub ProcessTopResourceMap { |
sub ProcessTopResourceMap { |
my ($cache,$c,$r)=@_; |
my ($cache,$c)=@_; |
my %hash; |
my %hash; |
my $fn=$ENV{'request.course.fn'}; |
my $fn=$ENV{'request.course.fn'}; |
if(-e "$fn.db") { |
if(-e "$fn.db") { |
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 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)". |