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

[sakharuk]

sakharuk		Thu Nov  6 14:23:02 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  A possibility to use style file during printing from the construction space is included. It's just the first step so I did not care about elegant way to grab this style file - I used text field to write path to this style file in the format"/username/username/..../style_file. Nevertheless it works and I can think how to simplify the picking up this file now (through browsing machanism). 
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.261 loncom/interface/lonprintout.pm:1.262
--- loncom/interface/lonprintout.pm:1.261	Thu Oct 30 15:58:51 2003
+++ loncom/interface/lonprintout.pm	Thu Nov  6 14:23:02 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.261 2003/10/30 20:58:51 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.262 2003/11/06 19:23:02 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -701,6 +701,7 @@
 	    if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
 		my %moreenv;
 		$moreenv{'request.filename'}=$currentURL;
+		if ($helper->{'VARS'}->{'style_file'}=~/\w/) {$moreenv{'construction_space_style'}=$helper->{'VARS'}->{'style_file'};}
 		my %form;
 		$form{'grade_target'}='tex';
 		$form{'textwidth'}=$LaTeXwidth;	
@@ -1194,6 +1195,7 @@
     $helper->declareVar('filename');
     $helper->declareVar('construction');
     $helper->declareVar('assignment');
+    $helper->declareVar('style_file');
     
     # This will persistently load in the data we want from the
     # very first screen.
@@ -1542,7 +1544,10 @@
 		<defaultvalue>
 	            return $helper->{VARS}->{'curseed'};
 	        </defaultvalue>
-	     </string>
+	    </string>
+	     <message></td></tr><tr><td align="right">Use style file: </td><td></message>
+	    <string variable="style_file" size="25" maxlength="50">
+	    </string>
              <message></td></tr></message>
 RNDSEED
             &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);