@@ -253,19 +253,12 @@ sub renderPG ($c, $effectiveUser, $set, $problem, $psvn, $formFields, $translati
253253 flags => $pg -> {flags },
254254 };
255255
256- # get a list of the deprecated macros
257- my @deprecated_macros ;
258- for (keys %{ $pg -> {pgcore }{PG_loadMacros }{macroFileList } }) {
259- my @dirs = split (' /' , $_ );
260- push (@deprecated_macros , $dirs [-1]) if $dirs [-2] eq ' deprecated' ;
261- }
262-
263256 if (ref ($pg -> {pgcore }) eq ' PGcore' ) {
264257 $ret -> {internal_debug_messages } = $pg -> {pgcore }-> get_internal_debug_messages;
265258 $ret -> {warning_messages } = $pg -> {pgcore }-> get_warning_messages();
266259 $ret -> {debug_messages } = $pg -> {pgcore }-> get_debug_messages();
267- $ret -> { deprecated_macros } = \ @deprecated_macros ;
268- $ret -> {PG_ANSWERS_HASH } = {
260+
261+ $ret -> {PG_ANSWERS_HASH } = {
269262 map {
270263 $_ => {
271264 response_obj => unbless($pg -> {pgcore }{PG_ANSWERS_HASH }{$_ }-> response_obj),
@@ -279,6 +272,14 @@ sub renderPG ($c, $effectiveUser, $set, $problem, $psvn, $formFields, $translati
279272 keys %{ $pg -> {pgcore }{PG_alias }{resource_list } }
280273 };
281274 $ret -> {PERSISTENCE_HASH } = $pg -> {pgcore }{PERSISTENCE_HASH };
275+
276+ # Get a list of the deprecated macros used in the problem.
277+ my @deprecated_macros ;
278+ for (keys %{ $pg -> {pgcore }{PG_loadMacros }{macroFileList } }) {
279+ my @dirs = split (' /' , $_ );
280+ push (@deprecated_macros , $dirs [-1]) if $dirs [-2] eq ' deprecated' ;
281+ }
282+ $ret -> {deprecated_macros } = \@deprecated_macros ;
282283 }
283284
284285 # Save the problem source. This is used by Caliper::Entity. Why?
0 commit comments