[WWcvs] pg: Fixed propagation of PGcore object to Local.pm

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
Fixed propagation of PGcore object to Local.pm

Modified Files:
--------------
    pg/lib/WeBWorK/PG:
        Translator.pm

Revision Data
-------------
Index: Translator.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/WeBWorK/PG/Translator.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -Llib/WeBWorK/PG/Translator.pm -Llib/WeBWorK/PG/Translator.pm -u -r1.27 -r1.28
--- lib/WeBWorK/PG/Translator.pm
+++ lib/WeBWorK/PG/Translator.pm
@@ -943,7 +943,7 @@
 
 =cut
 
-				my ($PG_PROBLEM_TEXT_REF, $PG_HEADER_TEXT_REF, $PG_ANSWER_HASH_REF, $PG_FLAGS_REF)
+				my ($PG_PROBLEM_TEXT_REF, $PG_HEADER_TEXT_REF, $PG_ANSWER_HASH_REF, $PG_FLAGS_REF, $PGcore)
 				      =$safe_cmpt->reval("   $evalString");
                #warn "using safe compartment ", $safe_cmpt->root;
 # This section could use some more error messages.  In particular if a problem doesn't produce the right output, the user needs
@@ -1033,6 +1033,7 @@
 			$PG_ANSWER_HASH_REF -- Reference to an array containing the answer evaluators.
 			$PG_FLAGS_REF -- Reference to a hash containing flags and other references:
 				'error_flag' is set to 1 if there were errors in rendering
+			$PGcore -- the PGcore object
 
 =cut
 
@@ -1051,7 +1052,10 @@
 	    $self ->{ PG_HEADER_TEXT_REF 	}		= $PG_HEADER_TEXT_REF;
 	    $self ->{ rh_correct_answers	}		= $PG_ANSWER_HASH_REF;
 	    $self ->{ PG_FLAGS_REF			}		= $PG_FLAGS_REF;
-	    $self ->{errors};
+	    $self ->{ rh_pgcore             }       = $PGcore;
+	    
+	    #warn "PGcore is ", ref($PGcore), " in Translator";
+	    #$self ->{errors};
 }  # end translate