[WWcvs] webwork-modperl: display mode was inadvertently reset with other

[Robert V. D. v. a. <act...@de...>]

Log Message:
-----------
display mode was inadvertently reset with other problem/set elements
that are safe to reset (rather than keep sticky) since they will be updated
from the newly saved database record or thrown away as expected

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
        ProblemSetDetail.pm

Revision Data
-------------
Index: ProblemSetDetail.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -Llib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm -Llib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm -u -r1.16 -r1.17
--- lib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm
@@ -758,10 +758,9 @@
 		# if the current naming scheme is changed/broken, this could reek havoc
 		# on all kinds of things
 		foreach my $param ($r->param) {
-			$r->param($param, "") if $param =~ /^(set|problem|header)\./;
+			$r->param($param, "") if $param =~ /^(set|problem|header)\./  && $param !~ /displaymode/;
 		}
 	}
-	
 }
 
 # helper method for debugging