From: dpvc v. a. <we...@ma...> - 2008-09-23 21:59:58
|
Log Message: ----------- Include a noinherit routine so that things like test_values and other temporary items are not inheritted. Only things like limits and so on. Modified Files: -------------- pg/lib/Value: Formula.pm Revision Data ------------- Index: Formula.pm =================================================================== RCS file: /webwork/cvs/system/pg/lib/Value/Formula.pm,v retrieving revision 1.61 retrieving revision 1.62 diff -Llib/Value/Formula.pm -Llib/Value/Formula.pm -u -r1.61 -r1.62 --- lib/Value/Formula.pm +++ lib/Value/Formula.pm @@ -220,6 +220,16 @@ } # +# Don't inherit test values or adapted values, or other temporary items +# +sub noinherit { + my $self = shift; + ($self->SUPER::noinherit(@_),"test_values","test_adapt","tree","string","variables", + "f","stack","ref","tokens","values","space","domainMismatch"); +} + + +# # Create the value list from a given set of test points # sub createPointValues { |