[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm
From:       sakharuk <lon-capa-cvs () mail ! lon-capa ! org>
Date:       2003-06-30 20:24:58
Message-ID: cvssakharuk1057004698 () cvsserver
[Download RAW message or body]

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;



[prev in list] [next in list] [prev in thread] [next in thread]