diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-18 09:55:53 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-18 09:55:53 +0000 |
commit | 13f00d321d17cfb45fe16f4f062b0a2fb95f30d7 (patch) | |
tree | 12fd4854de0f8ac43f85a9f8d32f84cbc02e1472 /lib/sbin/ImpParamConsistency.pl | |
parent | 07210304ff0ecbbb22d69846c9655d0f40237577 (diff) |
Don't add extended ranges to master parameter.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1052 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/ImpParamConsistency.pl')
-rw-r--r-- | lib/sbin/ImpParamConsistency.pl | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lib/sbin/ImpParamConsistency.pl b/lib/sbin/ImpParamConsistency.pl index 9f12e1ff..d6a720cc 100644 --- a/lib/sbin/ImpParamConsistency.pl +++ b/lib/sbin/ImpParamConsistency.pl @@ -54,20 +54,22 @@ sub CheckImpParamConsistency # Check that the parameter is in the restricted block. if($parameter_database{"\U$other_thorn RESTRICTED\E variables"} =~ m:\b$parameter\b:i) { - # Loop through all the added ranges. - for($range=1; - $range <= $parameter_database{"\U$thorn $parameter\E ranges"}; - $range++) - { - # Increment the number of ranges for the extended parameter - $parameter_database{"\U$other_thorn $parameter\E ranges"}++; + +# This lot is done by C now, and SHOULD NOT BE DONE by the perl +# # Loop through all the added ranges. +# for($range=1; +# $range <= $parameter_database{"\U$thorn $parameter\E ranges"}; +# $range++) +# { +# # Increment the number of ranges for the extended parameter +# $parameter_database{"\U$other_thorn $parameter\E ranges"}++; # Add in the range - $parameter_database{"\U$other_thorn $parameter\E range $parameter_database{\"\U$other_thorn $parameter\E ranges\"} range"} = $parameter_database{"\U$thorn $parameter\E range $range range"}; +# $parameter_database{"\U$other_thorn $parameter\E range $parameter_database{\"\U$other_thorn $parameter\E ranges\"} range"} = $parameter_database{"\U$thorn $parameter\E range $range range"}; # Add in the range description - $parameter_database{"\U$other_thorn $parameter\E range $parameter_database{\"\U$other_thorn $parameter\E ranges\"} description"} = $parameter_database{"\U$thorn $parameter\E range $range description"}; - } +# $parameter_database{"\U$other_thorn $parameter\E range $parameter_database{\"\U$other_thorn $parameter\E ranges\"} description"} = $parameter_database{"\U$thorn $parameter\E range $range description"}; +# } } else { |