[LON-CAPA-cvs] cvs: loncom(version_1_2_X) /interface lonprintout.pm

[albertel]

albertel		Wed Sep 29 02:07:36 2004 EDT

  Modified files:              (Branch: version_1_2_X)
    /loncom/interface	lonprintout.pm 
  Log:
  - backport 1.332
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.316.2.3 loncom/interface/lonprintout.pm:1.316.2.4
--- loncom/interface/lonprintout.pm:1.316.2.3	Fri Sep 24 17:01:50 2004
+++ loncom/interface/lonprintout.pm	Wed Sep 29 02:07:36 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.316.2.3 2004/09/24 21:01:50 albertel Exp $
+# $Id: lonprintout.pm,v 1.316.2.4 2004/09/29 06:07:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1319,10 +1319,9 @@
 		    my $current_counter=$ENV{'form.counter'};
 		    if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
 		       ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
-			my %form;
-			$form{'answer_output_mode'}='tex';
-			$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
-			my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%form);
+			$moreenv->{'answer_output_mode'}='tex';
+			$moreenv->{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
+			my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%{$moreenv});
 			&Apache::lonnet::appenv(('form.counter' => $current_counter));
 			if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
 			    $rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;