loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.159, 2003/03/13 20:46:36	version 1.160, 2003/03/13 20:56:13
Line 1623 sub parmval_real {	Line 1623 sub parmval_real {
my ($space,@qualifier)=split(/\./,$rwhat);	my ($space,@qualifier)=split(/\./,$rwhat);
my $qualifier=join('.',@qualifier);	my $qualifier=join('.',@qualifier);
unless ($space eq '0') {	unless ($space eq '0') {
my ($part,$id)=split(/\_/,$space);	my @parts=split(/_/,$space);
if ($id) {	my $id=pop(@parts);
my $partgeneral=$self->parmval($part.".$qualifier",$symb);	my $part=join('_',@parts);
if (defined($partgeneral)) { return $partgeneral; }	if ($part eq '') { $part='0'; }
} else {	my $partgeneral=$self->parmval($part.".$qualifier",$symb);
my $resourcegeneral=$self->parmval("0.$qualifier",$symb);	if (defined($partgeneral)) { return $partgeneral; }
if (defined($resourcegeneral)) { return $resourcegeneral; }
}
}	}
return '';	return '';
}	}