loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.410, 2008/01/20 01:52:47	version 1.411, 2008/01/24 22:12:02
Line 2299 sub parmval {	Line 2299 sub parmval {
my $hashkey = $what."\|\|\|".$symb;	my $hashkey = $what."\|\|\|".$symb;

if (defined($self->{PARM_CACHE}->{$hashkey})) {	if (defined($self->{PARM_CACHE}->{$hashkey})) {
if (wantarray) {	if (ref($self->{PARM_CACHE}->{$hashkey}) eq 'ARRAY') {
return @{$self->{PARM_CACHE}->{$hashkey}};	if (defined($self->{PARM_CACHE}->{$hashkey}->[0])) {
} else {	if (wantarray) {
return $self->{PARM_CACHE}->{$hashkey}->[0];	return @{$self->{PARM_CACHE}->{$hashkey}};
}	} else {
	return $self->{PARM_CACHE}->{$hashkey}->[0];
	}
	}
	} else {
	return $self->{PARM_CACHE}->{$hashkey};
	}
}	}

my $result = $self->parmval_real($what, $symb, $recurse);	my $result = $self->parmval_real($what, $symb, $recurse);
$self->{PARM_CACHE}->{$hashkey} = $result;	$self->{PARM_CACHE}->{$hashkey} = $result;
if (wantarray) {	if (wantarray) {
return @{$result};	return @{$result};
}	}
return $result->[0];	return $result->[0];
}	}