check answers for determination of new version

openwebwork · Oct 6, 2023 · b3d0464 · b3d0464
1 parent fb25f23
commit b3d0464
Showing 1 changed file with 18 additions and 4 deletions.
diff --git a/lib/WeBWorK/ContentGenerator/ShowMeAnother.pm b/lib/WeBWorK/ContentGenerator/ShowMeAnother.pm
@@ -137,7 +137,7 @@ async sub pre_header_initialize ($c) {
 			showHints                => 0,
 			showSolutions            => 0,
 			refreshMath2img          => 0,
-			processAnswers           => 0,
+			processAnswers           => 1,
 			permissionLevel          => $db->getPermissionLevel($userName)->permission,
 			effectivePermissionLevel => $db->getPermissionLevel($effectiveUserName)->permission,
 			useMathQuill             => $c->{will}{useMathQuill},
@@ -173,7 +173,7 @@ async sub pre_header_initialize ($c) {
 					showHints                => 0,
 					showSolutions            => 0,
 					refreshMath2img          => 0,
-					processAnswers           => 0,
+					processAnswers           => 1,
 					permissionLevel          => $db->getPermissionLevel($userName)->permission,
 					effectivePermissionLevel => $db->getPermissionLevel($effectiveUserName)->permission,
 					useMathQuill             => $c->{will}{useMathQuill},
@@ -188,7 +188,9 @@ async sub pre_header_initialize ($c) {
 			}
 
 			# check to see if we've found a new version
-			if ($new_body_text ne $orig_body_text) {
+			if ($new_body_text ne $orig_body_text
+				|| have_different_answers($showMeAnotherNewPG, $showMeAnotherOriginalPG))
+			{
 				# if we've found a new version, then
 				# increment the counter detailing the number of times showMeAnother has been used
 				# unless we're trying to check answers from the showMeAnother screen
@@ -232,7 +234,7 @@ async sub pre_header_initialize ($c) {
 				showHints                => 0,
 				showSolutions            => 0,
 				refreshMath2img          => 0,
-				processAnswers           => 0,
+				processAnswers           => 1,
 				permissionLevel          => $db->getPermissionLevel($userName)->permission,
 				effectivePermissionLevel => $db->getPermissionLevel($effectiveUserName)->permission,
 				useMathQuill             => $c->{will}{useMathQuill},
@@ -594,4 +596,16 @@ sub output_hidden_info ($c) {
 	return '';
 }
 
+# Checks the PG object for two different seeds of the same pg file
+sub have_different_answers ($pg1, $pg2) {
+	my $different = 0;
+	for (keys %{ $pg1->{answers} }) {
+		if ($pg1->{answers}{$_} ne $pg2->{answers}{$_}) {
+			$different = 1;
+			last;
+		}
+	}
+	return $different;
+}
+
 1;