loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.23, 2003/09/17 17:32:56	version 1.25, 2003/10/02 17:07:41
Line 50 use Apache::Constants qw(:common :http);	Line 50 use Apache::Constants qw(:common :http);
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
use Apache::Spreadsheet;	use Apache::Spreadsheet;
	use Apache::loncoursedata();
use HTML::Entities();	use HTML::Entities();
use Spreadsheet::WriteExcel;	use Spreadsheet::WriteExcel;
use GDBM_File;	use GDBM_File;
Line 148 sub save_cached_export_rows {	Line 149 sub save_cached_export_rows {

sub initialize {	sub initialize {
&clear_package();	&clear_package();
	&Apache::loncoursedata::clear_internal_caches();
}	}

########################################################	########################################################
Line 173 sub initialize_package {	Line 175 sub initialize_package {
}	}
&load_cached_export_rows();	&load_cached_export_rows();
&load_parameter_caches();	&load_parameter_caches();
	&Apache::loncoursedata::clear_internal_caches();
}	}


Line 689 sub compute {	Line 692 sub compute {
while (my ($parm,$value) = each(%parameters)) {	while (my ($parm,$value) = each(%parameters)) {
last if ($self->blackout());	last if ($self->blackout());
next if ($parm !~ /^(parameter_.*)_problemstatus$/);	next if ($parm !~ /^(parameter_.*)_problemstatus$/);
if ($parameters{$1.'_answerdate'} eq '' \|\|	if ($parameters{$1.'_answerdate'} ne '' &&
$parameters{$1.'_answerdate'} < time) {	$parameters{$1.'_answerdate'} < time) {
next;	next;
}	}