Warn instructors if using deprecated_macros.

This adds a warning next to the problem comment on the PGProblemEditor,
Library Browser (and maybe other places that use the Library Browser
render) right before any instructor problem if deprecated macros are
used in the problem.

Author: somiaj

htdocs/js/PGProblemEditor/pgproblemeditor.js

@@ -512,6 +512,17 @@
 						container.innerHTML = data.pg_flags.comment;
 						iframe.after(container);
 					}
+					if (data.deprecated_macros?.length) {
+						const container = document.createElement('div');
+						container.classList.add('alert', 'alert-danger', 'mx-2');
+						container.innerHTML =
+							'Warning!! This problem uses the following deprecated macros:' +
+							'<ul class="mb-0">' +
+							data.deprecated_macros.reduce((acc, item) => `${acc}<li>${item}</li>`, '') +
+							'</ul>If this is an OPL problem, please report this issue to the OPL. ' +
+							'If this is a custom problem, please update the problem to use modern macros.';
+						iframe.after(container);
+					}
 
 					iframe.addEventListener(
 						'load',

htdocs/js/RenderProblem/renderproblem.js

@@ -77,6 +77,17 @@
 							container.innerHTML = data.pg_flags.comment;
 							iframe.after(container);
 						}
+						if (data.deprecated_macros?.length) {
+							const container = document.createElement('div');
+							container.classList.add('alert', 'alert-danger');
+							container.innerHTML =
+								'Warning!! This problem uses the following deprecated macros:' +
+								'<ul class="mb-0">' +
+								data.deprecated_macros.reduce((acc, item) => `${acc}<li>${item}</li>`, '') +
+								'</ul>If this is an OPL problem, please report this issue to the OPL. ' +
+								'If this is a custom problem, please update the problem to use modern macros.';
+							iframe.after(container);
+						}
 						iFrameResize(
 							{
 								checkOrigin: false,

lib/FormatRenderedProblem.pm

@@ -286,7 +286,12 @@ sub formatRenderedProblem {
 
 	return $ws->c->render(%template_params) if $formatName eq 'json' || !$ws->{inputs_ref}{send_pg_flags};
 	return $ws->c->render(
-		json => { html => $ws->c->render_to_string(%template_params)->to_string, pg_flags => $rh_result->{flags} });
+		json => {
+			html              => $ws->c->render_to_string(%template_params)->to_string,
+			pg_flags          => $rh_result->{flags},
+			deprecated_macros => $rh_result->{deprecated_macros}
+		}
+	);
 }
 
 sub saveGradeToLTI {

lib/WeBWorK/Utils/Rendering.pm

@@ -272,6 +272,7 @@ sub renderPG ($c, $effectiveUser, $set, $problem, $psvn, $formFields, $translati
 			$ret->{internal_debug_messages} = $pg->{pgcore}->get_internal_debug_messages;
 			$ret->{warning_messages}        = $pg->{pgcore}->get_warning_messages();
 			$ret->{debug_messages}          = $pg->{pgcore}->get_debug_messages();
+			$ret->{deprecated_macros}       = $pg->{pgcore}{PG_loadMacros}{deprecated_macros};
 			$ret->{PG_ANSWERS_HASH}         = {
 				map {
 					$_ => {

lib/WebworkWebservice/RenderProblem.pm

@@ -279,8 +279,9 @@ async sub renderProblem {
 		psvn                    => $psvn,
 		problem_seed            => $problemSeed,
 		resource_list           => $pg->{resource_list},
-		warning_messages        => ref $pg->{warning_messages} eq 'ARRAY' ? $pg->{warning_messages} : [],
-		debug_messages          => ref $pg->{debug_messages} eq 'ARRAY'   ? $pg->{debug_messages}   : [],
+		warning_messages        => ref $pg->{warning_messages} eq 'ARRAY'  ? $pg->{warning_messages}  : [],
+		debug_messages          => ref $pg->{debug_messages} eq 'ARRAY'    ? $pg->{debug_messages}    : [],
+		deprecated_macros       => ref $pg->{deprecated_macros} eq 'ARRAY' ? $pg->{deprecated_macros} : [],
 		internal_debug_messages => ref $pg->{internal_debug_messages} eq 'ARRAY'
 		? $pg->{internal_debug_messages}
 		: [],