version 1.50, 2005/05/17 20:14:19
|
version 1.51, 2005/10/12 21:29:49
|
Line 703 sub parameter_part_is_valid {
|
Line 703 sub parameter_part_is_valid {
|
return 1; |
return 1; |
} |
} |
# |
# |
my (undef,$part) = |
my ($start,@pieces)=split('_',$parameter); |
($parameter =~ m/^(resource|stores|parameter)_([^_]+)_.*/); |
if ( $start !~ m/^(resource|stores|parameter)$/) { return 0; } |
if (exists($self->{'Parts'}) && |
while (@pieces) { |
exists($self->{'Parts'}->{$part}) && |
pop(@pieces); |
$self->{'Parts'}->{$part} ) { |
my $testpart=join('_',@pieces); |
return 1; |
if (exists($self->{'Parts'}->{$testpart}) && |
} else { |
$self->{'Parts'}->{$testpart} ) { |
return 0; |
return 1; |
|
} |
} |
} |
|
return 0; |
} |
} |
|
|
sub compute { |
sub compute { |