loncom/interface/statistics/lonstathelpers.pm - diff

Return to lonstathelpers.pm CVS log

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

version 1.16, 2004/06/23 20:50:26	version 1.18, 2004/08/03 19:53:12
Line 639 sub ensure_proper_cache {	Line 639 sub ensure_proper_cache {
my ($symb) = @_;	my ($symb) = @_;
my $cid = $ENV{'request.course.id'};	my $cid = $ENV{'request.course.id'};
my $new_filename = '/home/httpd/perl/tmp/'.	my $new_filename = '/home/httpd/perl/tmp/'.
'problemanalsysis_'.$cid.'answer_cache.db';	'problemanalysis_'.$cid.'_answer_cache.db';
if (! defined($cache_filename) \|\|	if (! defined($cache_filename) \|\|
$cache_filename ne $new_filename \|\|	$cache_filename ne $new_filename \|\|
! defined($current_symb) \|\|	! defined($current_symb) \|\|
Line 1096 sub manage_caches {	Line 1096 sub manage_caches {
('<input type="submit" name="ClearCache" '.	('<input type="submit" name="ClearCache" '.
'value="'.&mt('Clear Caches').'" />',	'value="'.&mt('Clear Caches').'" />',
'<input type="submit" name="updatecaches" '.	'<input type="submit" name="updatecaches" '.
'value="'.&mt('Update Caches').'" />',	'value="'.&mt('Update Caches').'" />'.
	&Apache::loncommon::help_open_topic('Statistics_Cache'),
'<input type="hidden" name="prevsection" value="'.$sectionkey.'" />',	'<input type="hidden" name="prevsection" value="'.$sectionkey.'" />',
'<input type="hidden" name="prevenrollstatus" value="'.$statuskey.'" />'	'<input type="hidden" name="prevenrollstatus" value="'.$statuskey.'" />'
);	);