loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.22, 2003/09/12 19:00:54	version 1.24, 2003/09/22 21:03:25
Line 563 sub get_parm_names {	Line 563 sub get_parm_names {
my @Mandatory_parameters = @_;	my @Mandatory_parameters = @_;
my %parameters_and_names;	my %parameters_and_names;
#	#
my ($symap,$syid,$srcf)=split(/___/,$self->{'symb'});	my ($symap,$syid,$srcf) = &Apache::lonnet::decode_symb($self->{'symb'});
my @Metadata = split(/\,/,&Apache::lonnet::metadata($srcf,'keys'));	my @Metadata = split(/\,/,&Apache::lonnet::metadata($srcf,'keys'));
foreach my $parm (@Mandatory_parameters,@Metadata) {	foreach my $parm (@Mandatory_parameters,@Metadata) {
next if ($parm !~ /^(resource\.\|stores\|parameter)_/);	next if ($parm !~ /^(resource\.\|stores\|parameter)_/);
Line 689 sub compute {	Line 689 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;
}	}