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

sakharuk lon-capa-cvs@mail.lon-capa.org
Mon, 30 Jun 2003 20:24:58 -0000


sakharuk		Mon Jun 30 16:24:58 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
   Single resource can be printed on a few pages.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.199 loncom/interface/lonprintout.pm:1.200
--- loncom/interface/lonprintout.pm:1.199	Wed Jun 25 15:37:04 2003
+++ loncom/interface/lonprintout.pm	Mon Jun 30 16:24:58 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.199 2003/06/25 19:37:04 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.200 2003/06/30 20:24:58 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -623,7 +623,8 @@
 	    $moreenv{'request.filename'}=$currentURL;
 	    my %form;
 	    $form{'grade_target'}='tex';
-	    $form{'textwidth'}=$LaTeXwidth;
+	    $form{'textwidth'}=$LaTeXwidth;	
+	    $form{'problem_split'}=$parmhash{'problem_stream_switch'}; 
 	    my $rndseed=time;
 	    $form{'rndseed'}=$rndseed;
 	    &Apache::lonnet::appenv(%moreenv);
@@ -886,6 +887,11 @@
 
     my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});
     
+#	my $key; 
+#	foreach $key (keys %parmhash) {
+#	    $r->print(' '.$key.'->'.$parmhash{$key}.'<-<br />');
+#	}
+#	return OK;
 
     &output_data($r,$helper,\%parmhash);
     return OK;