loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.51, 2005/10/12 21:29:49	version 1.51.2.1, 2006/05/15 23:44:46
Line 312 sub parmval {	Line 312 sub parmval {
# This should be a	# This should be a
if (!defined($mapname) \|\| !defined($id) \|\| !defined($fn)) {	if (!defined($mapname) \|\| !defined($id) \|\| !defined($fn)) {
($mapname,$id,$fn)=&Apache::lonnet::decode_symb($symb);	($mapname,$id,$fn)=&Apache::lonnet::decode_symb($symb);
	$mapname = &Apache::lonnet::deversion($mapname);
}	}
# Cascading lookup scheme	# Cascading lookup scheme
my $rwhat=$what;	my $rwhat=$what;
Line 631 sub get_parameter_values {	Line 632 sub get_parameter_values {
if (tie(%parmhash,'GDBM_File',	if (tie(%parmhash,'GDBM_File',
$self->{'coursefilename'}.'_parms.db',&GDBM_READER(),0640)) {	$self->{'coursefilename'}.'_parms.db',&GDBM_READER(),0640)) {
my ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($self->{'symb'});	my ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($self->{'symb'});
	$mapname = &Apache::lonnet::deversion($mapname);
foreach my $parmname (@Parameters) {	foreach my $parmname (@Parameters) {
my $value = $self->parmval($parmname,$self->{'symb'},	my $value = $self->parmval($parmname,$self->{'symb'},
$self->{'name'},$self->{'domain'},	$self->{'name'},$self->{'domain'},