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 ''; |
} |
} |