loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.15, 2002/11/25 18:12:52	version 1.16, 2002/11/25 18:17:36
Line 117 sub BuildAnalyzePage {	Line 117 sub BuildAnalyzePage {
$r->print('Can not untie hash.');	$r->print('Can not untie hash.');
$r->rflush();	$r->rflush();
}	}
#if($status eq 'true')
{ &Apache::lonhtmlcommon::Close_PrgWin($r); }

	&Apache::lonhtmlcommon::Close_PrgWin($r);

	### jason code for checing is there data in cache
# my $error =	# my $error =
# &Apache::loncoursedata::DownloadStudentCourseDataSeparate($students,	# &Apache::loncoursedata::DownloadStudentCourseDataSeparate($students,
# 'true',	# 'true',
Line 134 sub BuildAnalyzePage {	Line 134 sub BuildAnalyzePage {
# return;	# return;
# }	# }


unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {	unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
$Str .= 'Unable to tie database.';	$Str .= 'Unable to tie database.';
$r->print($Str);	$r->print($Str);
Line 146 sub BuildAnalyzePage {	Line 145 sub BuildAnalyzePage {
my $problem = $cache{$problemId.':problem'};	my $problem = $cache{$problemId.':problem'};
my $title = $cache{$problemId.':title'};	my $title = $cache{$problemId.':title'};
my $interval = $cache{'Interval'};	my $interval = $cache{'Interval'};

# my $title = 'LON-CAPA Statistics';
my $heading = 'Restore this particular Option Response Problem '.	my $heading = 'Restore this particular Option Response Problem '.
'Results, Please wait...';	'Results, Please wait...';