--- loncom/interface/lonprintout.pm	2004/04/01 15:24:44	1.288
+++ loncom/interface/lonprintout.pm	2004/04/06 15:47:52	1.289
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.288 2004/04/01 15:24:44 albertel Exp $
+# $Id: lonprintout.pm,v 1.289 2004/04/06 15:47:52 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -750,6 +750,7 @@ ENDPART
 		    my $put_result = &Apache::lonnet::put('environment',{'construct.style'=>$helper->{'VARS'}->{'style_file'}},$dom,$user);
 		}
 		my %form;
+                if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'exam') {$form{'problemtype'}='exam';}
 		$form{'grade_target'}='tex';
 		$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
 		$form{'problem_split'}=$parmhash{'problem_stream_switch'};
@@ -1703,7 +1704,9 @@ CHOOSE_FROM_ANY_SEQUENCE
         $paramHash->{CHOICES} = [
                                    ['Without Answers', 'yes'],
                                    ['With Answers', 'no'],
-                                   ['Only Answers', 'only'] ];
+                                   ['Only Answers', 'only'],
+                                   ['As Exam Problem', 'exam']
+                                ];
         Apache::lonhelper::dropdown->new();
 	addMessage("</td></tr>");
 	$startedTable = 1;