loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.19, 2003/09/05 01:57:54	version 1.20, 2003/09/09 18:46:28
Line 263 sub parmval {	Line 263 sub parmval {
my $result='';	my $result='';
#	#
# This should be a	# This should be a
my ($mapname,$id,$fn)=split(/___/,$symb);	my ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($symb);
# Cascading lookup scheme	# Cascading lookup scheme
my $rwhat=$what;	my $rwhat=$what;
$what =~ s/^parameter\_//;	$what =~ s/^parameter\_//;
Line 548 sub compute {	Line 548 sub compute {
my %parameters; # holds underscored parameters by name	my %parameters; # holds underscored parameters by name
#	#
# Get the metadata fields and determine their proper names	# Get the metadata fields and determine their proper 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)_/);