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

[sakharuk]

sakharuk		Tue Apr  6 11:47:52 2004 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Added possibility to print separate problem from the construction space in the exam mode. You just have to pick up option 'Print As Exam Problem' from already existing menu. Working on the adjustion tables for bubbles printing. Need to do this due to changes in general table tag (more exactly due to changes in table environment associated with table tag). 
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.288 loncom/interface/lonprintout.pm:1.289
--- loncom/interface/lonprintout.pm:1.288	Thu Apr  1 10:24:44 2004
+++ loncom/interface/lonprintout.pm	Tue Apr  6 11:47:52 2004
@@ -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 @@
 		    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 @@
         $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;