loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.46, 2002/08/14 20:42:48	version 1.47.2.1, 2002/09/03 01:32:10
Line 318 sub PrepareData {	Line 318 sub PrepareData {
return "Unable to tie hash to db file.";	return "Unable to tie hash to db file.";
}	}

if(!$isCached) {	# if(!$isCached) {
my $processTopResourceMapReturn=	my $processTopResourceMapReturn=
&Apache::loncoursedata::ProcessTopResourceMap(\%cache, $c, $r);	&Apache::loncoursedata::ProcessTopResourceMap(\%cache, $c);
if($processTopResourceMapReturn ne 'OK') {	if($processTopResourceMapReturn ne 'OK') {
untie(%cache);	untie(%cache);
return $processTopResourceMapReturn;	return $processTopResourceMapReturn;
}	}
}	# }

if($c->aborted()) {	if($c->aborted()) {
untie(%cache);	untie(%cache);
Line 516 sub BuildStatistics {	Line 516 sub BuildStatistics {
my $cacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".	my $cacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
"_$ENV{'user.domain'}_$courseID\_statistics.db";	"_$ENV{'user.domain'}_$courseID\_statistics.db";

$r->print(&Apache::lonhtmlcommon::Title('LON-CAPA Statistics'));	$r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts'));

my ($returnValue, $students) = &PrepareData($c, $cacheDB,	my ($returnValue, $students) = &PrepareData($c, $cacheDB,
\@studentInformation,	\@studentInformation,