--- trunk/webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm	2002/06/19 13:54:23	387
+++ trunk/webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm	2002/06/19 20:03:53	388
@@ -1,6 +1,8 @@
 package WeBWorK::ContentGenerator::Problem;
 our @ISA = qw(WeBWorK::ContentGenerator);
-
+use lib '/Users/gage/webwork/xmlrpc/daemon';
+use lib '/Users/gage/webwork-modperl/lib';
+use PGtranslator5;
 use WeBWorK::ContentGenerator;
 use Apache::Constants qw(:common);
 
@@ -17,9 +19,168 @@
 	my $courseEnvironment = $self->{courseEnvironment};
 	my $user = $r->param('user');
 	
-	print "Problem goes here";
-		
+	print "Problem goes here<p>\n";
+	
+	print "<P>Request item<P>\n\n";
+	print "<TABLE border=\"3\">";
+	print $self->print_form_data('<tr><td>','</td><td>','</td></tr>');
+	print "</table>\n";
+	print "<P>\n\ncourseEnvironment<P>\n\n";
+	print pretty_print_rh($courseEnvironment);
+	
+	###########################################################################
+	#  The pg problem class should have a method for installing it's problemEnvironment
+	###########################################################################
+	
+	$problemEnvir_rh = defineProblemEnvir($self);
+	
+	print "<P>\n\nproblemEnvironment<P>\n\n";
+	print pretty_print_rh($problemEnvir_rh);
+#	my $sig = do "pgGenerator.pl" ;
+#	 print "File not found $1" unless defined(sig);
+#	 print "Errors $@";
+#	print pgHTML(); 
+	 
 	"";
 }
 
+
+########################################################################################
+# This is the structure that needs to be filled out in order to call PGtranslator;
+########################################################################################
+
+sub defineProblemEnvir {
+	my $self = shift;
+	my $r = $self->{r};
+	my $courseEnvironment = $self->{courseEnvironment};
+    my %envir=();
+#    $envir{'refSubmittedAnswers'}  =   $refSubmittedAnswers if defined($refSubmittedAnswers);
+     $envir{'psvnNumber'}	   		=   123456789;
+  	$envir{'psvn'}		   			=	123456789;
+ 	 $envir{'studentName'}	   		=   'Jane Doe';
+	$envir{'studentLogin'}	    	=	'jd001m';
+	$envir{'studentID'}	    		=	'xxx-xx-4321';
+	$envir{'sectionName'}	    	=	'gage';
+	$envir{'sectionNumber'}	    	=	'111foobar';
+	$envir{'recitationName'}	    =	'gage_recitation';
+	$envir{'recitationNumber'}	    =	'11_foobar recitation';
+	$envir{'setNumber'}	    		=	'setAlgebraicGeometry';
+	$envir{'questionNumber'}      	=	43;
+	$envir{'probNum'} 	    		=	43;
+	$envir{'openDate'}	    		=	3014438528;
+	$envir{'formattedOpenDate'}    	=	'3/4/02';
+	$envir{'dueDate'} 	    		=	4014438528;
+	$envir{'formattedDueDate'}     	=	'10/4/04';
+	$envir{'answerDate'}	    	=	4014438528;
+	$envir{'formattedAnswerDate'}  	=	'10/4/04';
+	$envir{'problemValue'}	    	=	1;
+	$envir{'fileName'}	    		=	'problem1';
+	$envir{'probFileName'}	    	=	'problem1';
+	$envir{'languageMode'}	    	=	'HTML_tth';
+	$envir{'displayMode'}	    	=	'HTML_tth';
+	$envir{'outputMode'}	    	=	'HTML_tth';
+ 	$envir{'courseName'}	    	=	$courseEnvironment ->{courseName};
+	$envir{'sessionKey'}	    	=	'asdf';
+
+#	initialize constants for PGanswermacros.pl
+	$envir{'numRelPercentTolDefault'} 	=     .1;
+	$envir{'numZeroLevelDefault'}		=     1E-14;
+	$envir{'numZeroLevelTolDefault'} 	=     1E-12;
+	$envir{'numAbsTolDefault'} 			=     .001;
+	$envir{'numFormatDefault'}			=     '';
+	$envir{'functRelPercentTolDefault'} =     .1;
+	$envir{'functZeroLevelDefault'} 	=     1E-14;
+	$envir{'functZeroLevelTolDefault'} 	=     1E-12;
+	$envir{'functAbsTolDefault'} 		=     .001;
+	$envir{'functNumOfPoints'} 			=     3;
+	$envir{'functVarDefault'} 			=     'x';
+	$envir{'functLLimitDefault'} 		=     .0000001;
+	$envir{'functULimitDefault'} 		=     .9999999;
+	$envir{'functMaxConstantOfIntegration'} = 1E8;
+#	kludge check definition of number of attempts again. The +1 is because this is used before the current answer is evaluated.
+	$envir{'numOfAttempts'}             =    2; #&getProblemNumOfCorrectAns($probNum,$psvn)
+	                                            # &getProblemNumOfIncorrectAns($probNum,$psvn)+1;
+
+# 
+# 
+# 	defining directorys and URLs
+ 	$envir{'templateDirectory'}   		=	$courseEnvironment ->{courseDirs}->{templates};
+############	$envir{'classDirectory'}   			=	$Global::classDirectory;
+#	$envir{'cgiDirectory'}   			=	$Global::cgiDirectory;
+#	$envir{'cgiURL'}                    =   getWebworkCgiURL();
+#	$envir{'macroDirectory'}   			=	getCourseMacroDirectory();
+#	$envir{'courseScriptsDirectory'}   	=	getCourseScriptsDirectory();
+	$envir{'htmlDirectory'}             =   $courseEnvironment ->{courseDirectory}->{html};
+#	$envir{'htmlURL'}   				=	getCourseHtmlURL();
+#	$envir{'tempDirectory'}             =   getCourseTempDirectory();
+#	$envir{'tempURL'}                   =   getCourseTempURL();
+# 	$envir{'scriptDirectory'}   		=	$Global::scriptDirectory;##omit
+	$envir{'webworkDocsURL'}   			=	'http://webwork.math.rochester.edu';
+	$envir{'externalTTHPath'}   		=	'/usr/local/bin/tth';
+	
+
+# 
+	$envir{'inputs_ref'}                =   $r->param;
+ 	$envir{'problemSeed'}	   			=   3245;
+ 	$envir{'displaySolutionsQ'}			= 	1;
+ 	$envir{'displayHintsQ'}				= 	1;
+
+	# here is a way to pass environment variables defined in webworkCourse.ph
+#	my $k;
+#	foreach $k (keys %Global::PG_environment ) {
+#		$envir{$k} = $Global::PG_environment{$k};
+#	}
+	\%envir;
+}
+
+########################################################################################
+# This recursive pretty_print function will print a hash and its sub hashes.
+########################################################################################
+sub pretty_print_rh {
+    my $r_input = shift;
+    my $out = '';
+    if ( not ref($r_input) ) {
+    	$out = $r_input;    # not a reference
+    } elsif (is_hash_ref($r_input)) {
+	    local($^W) = 0;
+		$out .= "<TABLE border = \"2\" cellpadding = \"3\" BGCOLOR = \"#FFFFFF\">";
+		foreach my $key (sort keys %$r_input ) {
+			$out .= "<tr><TD> $key</TD><TD>=&gt;</td><td>&nbsp;".pretty_print_rh($r_input->{$key}) . "</td></tr>";
+		}
+		$out .="</table>";
+	} elsif (is_array_ref($r_input) ) {
+		my @array = @$r_input;
+		$out .= "( " ;
+		while (@array) {
+			$out .= pretty_print_rh(shift @array) . " , ";
+		}
+		$out .= " )"; 
+	} elsif (ref($r_input) eq 'CODE') {
+		$out = "$r_input";
+	} else {
+		$out = $r_input;
+	}
+		$out;
+}
+
+sub is_hash_ref {
+	my $in =shift;
+	my $save_SIG_die_trap = $SIG{__DIE__};
+    $SIG{__DIE__} = sub {CORE::die(@_) };
+	my $out = eval{  %{   $in  }  };
+	$out = ($@ eq '') ? 1 : 0;
+	$@='';
+	$SIG{__DIE__} = $save_SIG_die_trap;
+	$out;
+}
+sub is_array_ref {
+	my $in =shift;
+	my $save_SIG_die_trap = $SIG{__DIE__};
+    $SIG{__DIE__} = sub {CORE::die(@_) };
+	my $out = eval{  @{   $in  }  };
+	$out = ($@ eq '') ? 1 : 0;
+	$@='';
+	$SIG{__DIE__} = $save_SIG_die_trap;
+	$out;
+}
 1;