loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursedata.pm between versions 1.22 and 1.31

version 1.22, 2002/08/28 21:50:27	version 1.31, 2002/09/14 18:57:59
Line 89 Input: $courseID, $lastDownloadTime, $c	Line 89 Input: $courseID, $lastDownloadTime, $c
$courseID: The id of the course	$courseID: The id of the course

$lastDownloadTime: This is the date stamp for when this information was	$lastDownloadTime: This is the date stamp for when this information was
last gathered. If it is set to 'Not downloaded', it will gather the data	last gathered. If it is set to Not downloaded, it will gather the data
again, though it currently does not remove the old data.	again, though it currently does not remove the old data.

$c: The connection class that can determine if the browser has aborted. It	$c: The connection class that can determine if the browser has aborted. It
Line 103 Output: \%classlist	Line 103 Output: \%classlist
-A list of student name:domain (as keys) (known below as $name)	-A list of student name:domain (as keys) (known below as $name)

-A hash pointer for each student containing lastname, generation, firstname,	-A hash pointer for each student containing lastname, generation, firstname,
middlename, and PID : Key is $name.'studentInformation'	middlename, and PID : Key is $name.studentInformation

-A hash pointer to each students section data : Key is $name.section	-A hash pointer to each students section data : Key is $name.section

Line 125 sub DownloadClasslist {	Line 125 sub DownloadClasslist {
$Apache::lonnet::perlvar{'lonUsersDir'});	$Apache::lonnet::perlvar{'lonUsersDir'});

# Always download the information if lastDownloadTime is set to	# Always download the information if lastDownloadTime is set to
# 'Not downloaded', otherwise it is only downloaded if the file	# Not downloaded, otherwise it is only downloaded if the file
# has been updated and has a more recent date stamp	# has been updated and has a more recent date stamp
if($lastDownloadTime ne 'Not downloaded' &&	if($lastDownloadTime ne 'Not downloaded' &&
$lastDownloadTime >= $modifiedTime && $modifiedTime >= 0) {	$lastDownloadTime >= $modifiedTime && $modifiedTime >= 0) {
Line 195 $namedata: student name:domain	Line 195 $namedata: student name:domain
$courseID: The id of the course	$courseID: The id of the course

$lastDownloadTime: This is the date stamp for when this information was	$lastDownloadTime: This is the date stamp for when this information was
last gathered. If it is set to 'Not downloaded', it will gather the data	last gathered. If it is set to Not downloaded, it will gather the data
again, though it currently does not remove the old data.	again, though it currently does not remove the old data.

$WhatIWant: Regular expression used to get selected data with dump	$WhatIWant: Regular expression used to get selected data with dump

Output: \%courseData	Output: \%courseData

\%courseData: A hash pointer to the raw data from the student's course	\%courseData: A hash pointer to the raw data from the students course
database.	database.

=back	=back
Line 254 sub DownloadCourseInformation {	Line 254 sub DownloadCourseInformation {
These functions process all the data for all the students. Also, they	These functions process all the data for all the students. Also, they
are the functions that access the cache database for writing the majority of	are the functions that access the cache database for writing the majority of
the time. The downloading and caching were separated to reduce problems	the time. The downloading and caching were separated to reduce problems
with stopping downloading then can't tie hash to database later.	with stopping downloading then can not tie hash to database later.

=cut	=cut

Line 309 sub ProcessTopResourceMap {	Line 309 sub ProcessTopResourceMap {
return 'Can not open Coursemap.';	return 'Can not open Coursemap.';
}	}

	my $oldkeys;
	if(defined($cache->{'ResourceKeys'})) {
	$oldkeys = $cache->{'ResourceKeys'};
	foreach (split(':::', $cache->{'ResourceKeys'})) {
	delete $cache->{$_};
	}
	delete $cache->{'ResourceKeys'};
	}

# Initialize state machine. Set information pointing to top level map.	# Initialize state machine. Set information pointing to top level map.
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;
my $topLevelSequenceNumber = $currentSequence;	my $topLevelSequenceNumber = $currentSequence;

my %sequenceRecord;	my %sequenceRecord;
	my %allkeys;
while(1) {	while(1) {
if($c->aborted()) {	if($c->aborted()) {
last;	last;
Line 344 sub ProcessTopResourceMap {	Line 355 sub ProcessTopResourceMap {
} else {	} else {
$cache->{'orderedSequences'}.=':'.$currentSequence;	$cache->{'orderedSequences'}.=':'.$currentSequence;
}	}
	$allkeys{'orderedSequences'}++;

$lastResourceID=$hash{'map_finish_'.	$lastResourceID=$hash{'map_finish_'.
$hash{'src_'.$currentResourceID}};	$hash{'src_'.$currentResourceID}};
Line 378 sub ProcessTopResourceMap {	Line 390 sub ProcessTopResourceMap {
$currentResourceID}));	$currentResourceID}));

$cache->{$currentResourceID.':problem'}=$Problem;	$cache->{$currentResourceID.':problem'}=$Problem;
	$allkeys{$currentResourceID.':problem'}++;
if(!defined($cache->{$currentSequence.':problems'})) {	if(!defined($cache->{$currentSequence.':problems'})) {
$cache->{$currentSequence.':problems'}=$currentResourceID;	$cache->{$currentSequence.':problems'}=$currentResourceID;
} else {	} else {
$cache->{$currentSequence.':problems'}.=	$cache->{$currentSequence.':problems'}.=
':'.$currentResourceID;	':'.$currentResourceID;
}	}
	$allkeys{$currentSequence.':problems'}++;

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};
	$allkeys{$currentResourceID.':title'}++;
$cache->{$currentResourceID.':source'}=	$cache->{$currentResourceID.':source'}=
$hash{'src_'.$currentResourceID};	$hash{'src_'.$currentResourceID};
	$allkeys{$currentResourceID.':source'}++;

# Get Parts for problem	# Get Parts for problem
my %beenHere;	my %beenHere;
Line 408 sub ProcessTopResourceMap {	Line 424 sub ProcessTopResourceMap {
$cache->{$currentSequence.':'.$currentResourceID.	$cache->{$currentSequence.':'.$currentResourceID.
':parts'}.=':'.$partId;	':parts'}.=':'.$partId;
}	}
	$allkeys{$currentSequence.':'.$currentResourceID.
	':parts'}++;
}	}
if($beenHere{'r:'.$partId.':'.$responseId} == 0) {	if($beenHere{'r:'.$partId.':'.$responseId} == 0) {
$beenHere{'r:'.$partId.':'.$responseId}++;	$beenHere{'r:'.$partId.':'.$responseId}++;
Line 421 sub ProcessTopResourceMap {	Line 439 sub ProcessTopResourceMap {
':'.$partId.':responseIDs'}.=':'.	':'.$partId.':responseIDs'}.=':'.
$responseId;	$responseId;
}	}
	$allkeys{$currentSequence.':'.$currentResourceID.':'.
	$partId.':responseIDs'}++;
}	}
if(/^optionresponse/ &&	if(/^optionresponse/ &&
$beenHere{'o:'.$partId.':'.$currentResourceID} == 0) {	$beenHere{'o:'.$partId.':'.$currentResourceID} == 0) {
Line 434 sub ProcessTopResourceMap {	Line 454 sub ProcessTopResourceMap {
$currentResourceID.':'.	$currentResourceID.':'.
$partId.':'.$responseId;	$partId.':'.$responseId;
}	}
	$allkeys{'OptionResponses'}++;
}	}
}	}
}	}
Line 449 sub ProcessTopResourceMap {	Line 470 sub ProcessTopResourceMap {
# Capture sequence information here	# Capture sequence information here
$cache->{$currentSequence.':title'}=	$cache->{$currentSequence.':title'}=
$hash{'title_'.$currentResourceID};	$hash{'title_'.$currentResourceID};
	$allkeys{$currentSequence.':title'}++;
$cache->{$currentSequence.':source'}=	$cache->{$currentSequence.':source'}=
$hash{'src_'.$currentResourceID};	$hash{'src_'.$currentResourceID};
	$allkeys{$currentSequence.':source'}++;

my $totalProblems=0;	my $totalProblems=0;
foreach my $currentProblem (split(/\:/,	foreach my $currentProblem (split(/\:/,
Line 474 sub ProcessTopResourceMap {	Line 497 sub ProcessTopResourceMap {
$cache->{$currentSequence.':columnWidth'}=	$cache->{$currentSequence.':columnWidth'}=
(scalar @titleLength);	(scalar @titleLength);
}	}
	$allkeys{$currentSequence.':columnWidth'}++;
} else {	} else {
# Remove sequence from list, if it contains no problems to	# Remove sequence from list, if it contains no problems to
# display.	# display.
Line 510 sub ProcessTopResourceMap {	Line 534 sub ProcessTopResourceMap {
$currentResourceID=pop(@currentResource);	$currentResourceID=pop(@currentResource);
}	}

	my @theKeys = keys(%allkeys);
	my $newkeys = join(':::', @theKeys);
	$cache->{'ResourceKeys'} = join(':::', $newkeys);
	if($newkeys ne $oldkeys) {
	$cache->{'ResourceUpdated'} = 'true';
	} else {
	$cache->{'ResourceUpdated'} = 'false';
	}

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 540 $cache: A hash pointer to store the data	Line 573 $cache: A hash pointer to store the data

$classlist: The hash of data collected about a student from	$classlist: The hash of data collected about a student from
&DownloadClasslist(). The hash contains a list of students, a pointer	&DownloadClasslist(). The hash contains a list of students, a pointer
to a hash of student information for each student, and each student's section	to a hash of student information for each student, and each students section
number.	number.

$courseID: The course ID	$courseID: The course ID
Line 661 Takes the course data downloaded for a s	Line 694 Takes the course data downloaded for a s
&DownloadCourseInformation() and breaks it up into key value pairs	&DownloadCourseInformation() and breaks it up into key value pairs
to be stored in the cached data. The keys are comprised of the	to be stored in the cached data. The keys are comprised of the
$username:$domain:$keyFromCourseDatabase. The student username:domain is	$username:$domain:$keyFromCourseDatabase. The student username:domain is
stored away signifying that the student's information has been downloaded and	stored away signifying that the students information has been downloaded and
can be reused from cached data.	can be reused from cached data.

=over 4	=over 4
Line 693 sub ProcessStudentData {	Line 726 sub ProcessStudentData {
return;	return;
}	}

	# This little delete thing, should not be here. Move some other
	# time though.
	if(defined($cache->{$name.':keys'})) {
	foreach (split(':::', $cache->{$name.':keys'})) {
	delete $cache->{$name.':'.$_};
	}
	delete $cache->{$name.':keys'};
	}

	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 = $_;
	$currentKey =~ s/^$name//;
	$courseKeys{$currentKey}++;
$cache->{$_}=$courseData->{$_};	$cache->{$_}=$courseData->{$_};
}	}

	$cache->{$name.':keys'} = join(':::', keys(%courseKeys));

return;	return;
}	}

Line 753 sub ExtractStudentData {	Line 801 sub ExtractStudentData {
return;	return;
}	}

	# This little delete thing, should not be here. Move some other
	# time though.
	my %allkeys;
	if(defined($output->{$name.':keys'})) {
	foreach (split(':::', $output->{$name.':keys'})) {
	delete $output->{$name.':'.$_};
	}
	delete $output->{$name.':keys'};
	}

my ($username,$domain)=split(':',$name);	my ($username,$domain)=split(':',$name);

my $Version;	my $Version;
Line 768 sub ExtractStudentData {	Line 826 sub ExtractStudentData {

# Output dashes for all the parts of this problem if there	# Output dashes for all the parts of this problem if there
# is no version information about the current problem.	# is no version information about the current problem.
	$output->{$name.':'.$problemID.':NoVersion'} = 'false';
	$allkeys{$name.':'.$problemID.':NoVersion'}++;
if(!$LatestVersion) {	if(!$LatestVersion) {
foreach my $part (split(/\:/,$data->{$sequence.':'.	foreach my $part (split(/\:/,$data->{$sequence.':'.
$problemID.	$problemID.
Line 775 sub ExtractStudentData {	Line 835 sub ExtractStudentData {
$output->{$name.':'.$problemID.':'.$part.':tries'} = 0;	$output->{$name.':'.$problemID.':'.$part.':tries'} = 0;
$output->{$name.':'.$problemID.':'.$part.':awarded'} = 0;	$output->{$name.':'.$problemID.':'.$part.':awarded'} = 0;
$output->{$name.':'.$problemID.':'.$part.':code'} = ' ';	$output->{$name.':'.$problemID.':'.$part.':code'} = ' ';
	$allkeys{$name.':'.$problemID.':'.$part.':tries'}++;
	$allkeys{$name.':'.$problemID.':'.$part.':awarded'}++;
	$allkeys{$name.':'.$problemID.':'.$part.':code'}++;
$totalProblems++;	$totalProblems++;
}	}
$output->{$name.':'.$problemID.':NoVersion'} = 'true';	$output->{$name.':'.$problemID.':NoVersion'} = 'true';
Line 860 sub ExtractStudentData {	Line 923 sub ExtractStudentData {
':parts'})) {	':parts'})) {
$output->{$name.':'.$problemID.':'.$part.':wrong'} =	$output->{$name.':'.$problemID.':'.$part.':wrong'} =
$partData{$part.':tries'};	$partData{$part.':tries'};
	$allkeys{$name.':'.$problemID.':'.$part.':wrong'}++;

if($partData{$part.':code'} eq '*') {	if($partData{$part.':code'} eq '*') {
$output->{$name.':'.$problemID.':'.$part.':wrong'}--;	$output->{$name.':'.$problemID.':'.$part.':wrong'}--;
Line 875 sub ExtractStudentData {	Line 939 sub ExtractStudentData {
$partData{$part.':code'};	$partData{$part.':code'};
$output->{$name.':'.$problemID.':'.$part.':awarded'} =	$output->{$name.':'.$problemID.':'.$part.':awarded'} =
$partData{$part.':awarded'};	$partData{$part.':awarded'};
	$allkeys{$name.':'.$problemID.':'.$part.':tries'}++;
	$allkeys{$name.':'.$problemID.':'.$part.':code'}++;
	$allkeys{$name.':'.$problemID.':'.$part.':awarded'}++;

$totalAwarded += $partData{$part.':awarded'};	$totalAwarded += $partData{$part.':awarded'};
$output->{$name.':'.$problemID.':'.$part.':timestamp'} =	$output->{$name.':'.$problemID.':'.$part.':timestamp'} =
$partData{$part.':timestamp'};	$partData{$part.':timestamp'};
	$allkeys{$name.':'.$problemID.':'.$part.':timestamp'}++;

foreach my $response (split(':', $data->{$sequence.':'.	foreach my $response (split(':', $data->{$sequence.':'.
$problemID.':'.	$problemID.':'.
$part.':responseIDs'})) {	$part.':responseIDs'})) {
$output->{$name.':'.$problemID.':'.$part.':'.$response.	$output->{$name.':'.$problemID.':'.$part.':'.$response.
':submission'}=join(':::',@submissions);	':submission'}=join(':::',@submissions);
	$allkeys{$name.':'.$problemID.':'.$part.':'.$response.
	':submission'}++;
}	}

if($partData{$part.':code'} ne 'x') {	if($partData{$part.':code'} ne 'x') {
Line 892 sub ExtractStudentData {	Line 964 sub ExtractStudentData {
}	}

$output->{$name.':'.$sequence.':problemsCorrect'} = $problemsCorrect;	$output->{$name.':'.$sequence.':problemsCorrect'} = $problemsCorrect;
	$allkeys{$name.':'.$sequence.':problemsCorrect'}++;
$problemsSolved += $problemsCorrect;	$problemsSolved += $problemsCorrect;
$problemsCorrect=0;	$problemsCorrect=0;
}	}
Line 899 sub ExtractStudentData {	Line 972 sub ExtractStudentData {
$output->{$name.':problemsSolved'} = $problemsSolved;	$output->{$name.':problemsSolved'} = $problemsSolved;
$output->{$name.':totalProblems'} = $totalProblems;	$output->{$name.':totalProblems'} = $totalProblems;
$output->{$name.':totalAwarded'} = $totalAwarded;	$output->{$name.':totalAwarded'} = $totalAwarded;
	$allkeys{$name.':problemsSolved'}++;
	$allkeys{$name.':totalProblems'}++;
	$allkeys{$name.':totalAwarded'}++;

	$output->{$name.':keys'} = join(':::', keys(%allkeys));

return;	return;
}	}
Line 1043 $ChartDB: The name of the cache database	Line 1121 $ChartDB: The name of the cache database

Output: -1, 0, 1	Output: -1, 0, 1

-1: Couldn't tie database	-1: Could not tie database
0: Use cached data	0: Use cached data
1: New cache database created, use that.	1: New cache database created, use that.

Line 1095 sub DownloadStudentCourseData {	Line 1173 sub DownloadStudentCourseData {
my $title = 'LON-CAPA Statistics';	my $title = 'LON-CAPA Statistics';
my $heading = 'Download and Process Course Data';	my $heading = 'Download and Process Course Data';
my $studentCount = scalar(@$students);	my $studentCount = scalar(@$students);
my %cache;


my $WhatIWant;	my $WhatIWant;
$WhatIWant = '(^version:\|';	$WhatIWant = '(^version:\|';
Line 1113 sub DownloadStudentCourseData {	Line 1189 sub DownloadStudentCourseData {
my $displayString;	my $displayString;
my $count=0;	my $count=0;
foreach (@$students) {	foreach (@$students) {
	my %cache;

if($c->aborted()) { return 'Aborted'; }	if($c->aborted()) { return 'Aborted'; }

if($status eq 'true') {	if($status eq 'true') {
Line 1122 sub DownloadStudentCourseData {	Line 1200 sub DownloadStudentCourseData {
}	}

my $downloadTime='Not downloaded';	my $downloadTime='Not downloaded';
	my $needUpdate = 'false';
if($checkDate eq 'true' &&	if($checkDate eq 'true' &&
tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {	tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
$downloadTime = $cache{$_.':lastDownloadTime'};	$downloadTime = $cache{$_.':lastDownloadTime'};
	$needUpdate = $cache{'ResourceUpdated'};
untie(%cache);	untie(%cache);
}	}

if($c->aborted()) { return 'Aborted'; }	if($c->aborted()) { return 'Aborted'; }

if($downloadTime eq 'Not downloaded') {	if($needUpdate eq 'true') {
my $courseData =	$downloadTime = 'Not downloaded';
&DownloadCourseInformation($_, $courseID, $downloadTime,	}
$WhatIWant);	my $courseData =
if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT(),0640)) {	&DownloadCourseInformation($_, $courseID, $downloadTime,
foreach my $key (keys(%$courseData)) {	$WhatIWant);
if($key =~ /^(con_lost\|error\|no_such_host)/i) {	if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT(),0640)) {
$courseData->{$_.':error'} = 'No course data for '.$_;	foreach my $key (keys(%$courseData)) {
last;	if($key =~ /^(con_lost\|error\|no_such_host)/i) {
}	$courseData->{$_.':error'} = 'No course data for '.$_;
}	last;
if($extract eq 'true') {	}
&ExtractStudentData($courseData, \%cache, \%cache, $_);	}
} else {	if($extract eq 'true') {
&ProcessStudentData(\%cache, $courseData, $_);	&ExtractStudentData($courseData, \%cache, \%cache, $_);
}	} else {
untie(%cache);	&ProcessStudentData(\%cache, $courseData, $_);
} else {	}
next;	untie(%cache);
}	} else {
}	next;
	}
}	}
if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r); }	if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r); }

Line 1170 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 %cache;

my $studentCount = scalar(@$students);	my $studentCount = scalar(@$students);
if($status eq 'true') {	if($status eq 'true') {
Line 1191 sub DownloadStudentCourseDataSeparate {	Line 1270 sub DownloadStudentCourseDataSeparate {
&Apache::lonhtmlcommon::Update_PrgWin($displayString, $r);	&Apache::lonhtmlcommon::Update_PrgWin($displayString, $r);
}	}

	my %cache;
my $downloadTime='Not downloaded';	my $downloadTime='Not downloaded';
	my $needUpdate = 'false';
if($checkDate eq 'true' &&	if($checkDate eq 'true' &&
tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {	tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
$downloadTime = $cache{$_.':lastDownloadTime'};	$downloadTime = $cache{$_.':lastDownloadTime'};
	$needUpdate = $cache{'ResourceUpdated'};
untie(%cache);	untie(%cache);
}	}

Line 1202 sub DownloadStudentCourseDataSeparate {	Line 1284 sub DownloadStudentCourseDataSeparate {
return 'Aborted';	return 'Aborted';
}	}

if($downloadTime eq 'Not downloaded') {	if($needUpdate eq 'true') {
my $error = 0;	$downloadTime = 'Not downloaded';
my $courseData =	}
&DownloadCourseInformation($_, $courseID, $downloadTime,
$WhatIWant);	my $error = 0;
my %downloadData;	my $courseData =
unless(tie(%downloadData,'GDBM_File',$residualFile,	&DownloadCourseInformation($_, $courseID, $downloadTime,
&GDBM_WRCREAT(),0640)) {	$WhatIWant);
return 'Failed to tie temporary download hash.';	my %downloadData;
}	unless(tie(%downloadData,'GDBM_File',$residualFile,
foreach my $key (keys(%$courseData)) {	&GDBM_WRCREAT(),0640)) {
$downloadData{$key} = $courseData->{$key};	return 'Failed to tie temporary download hash.';
if($key =~ /^(con_lost\|error\|no_such_host)/i) {	}
$error = 1;	foreach my $key (keys(%$courseData)) {
last;	$downloadData{$key} = $courseData->{$key};
}	if($key =~ /^(con_lost\|error\|no_such_host)/i) {
	$error = 1;
	last;
}	}
if($error) {	}
foreach my $deleteKey (keys(%$courseData)) {	if($error) {
delete $downloadData{$deleteKey};	foreach my $deleteKey (keys(%$courseData)) {
}	delete $downloadData{$deleteKey};
$downloadData{$_.':error'} = 'No course data for '.$_;
}	}
untie(%downloadData);	$downloadData{$_.':error'} = 'No course data for '.$_;
}	}
	untie(%downloadData);
}	}
if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r); }	if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r); }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.22
changed lines
	Added in v.1.31